Icq6 Pws auslesen

[br00_pwn]

dann hier nochmal was, was du dir anschauen solltest

Imports System
Imports System.Text
Namespace ConsoleApplication1
* * Class Program
* * * * Private Shared Sub Main(ByVal args As String())
* * * * * * Dim base64String As String = "SGFsbG8gV2VsdCE="
* * * * * * Dim text As String = Base64ToString(base64String)
* * * * * * Dim hexString As String = StringToHexString(text)
* * * * End Sub
* * * * 
* * * * Private Shared Function Base64ToString(ByVal base64String As String) As String
* * * * * * Dim buffer As Byte() = Convert.FromBase64String(base64String)
* * * * * * Return Encoding.[Default].GetString(buffer)
* * * * End Function
* * * * 
* * * * Private Shared Function StringToHexString(ByVal inputString As String) As String
* * * * * * Dim sb As New StringBuilder()
* * * * * * For Each c As Char In inputString
* * * * * * * * sb.Append("0x")
* * * * * * * * sb.Append(Convert.ToString(c, 16))
* * * * * * * * sb.Append(" ")
* * * * * * Next
* * * * * * 
* * * * * * Return sb.ToString()
* * * * End Function
* * End Class
End Namespace

Private Function EncryptString(ByVal lpString As String)
        Dim local() As Byte = System.Text.Encoding.Default.GetBytes(lpString)
        Return Convert.ToBase64String(local)
    End Function

    Private Function DecryptString(ByVal lpString As String)
        Return Convert.FromBase64String(lpString)
    End Function