FTP daten verschlüsseln,for...next probleme

[sp33dwalker]

moin wie ein paar von euch mitgekriegt haben,habe ich meinen TargetLogger released.Ich wollte es erst so machen das man eine zahl von tastendrücken bestimmen kann und solange loggt der keylogger nur aber das klappte nicht.also:

dim i as integer
for i = 0 to länge (string)

if getasynckeystate(-...)



next i

nun ist mein problem das wenn keine taste gedrückt wird,er sofort zum next i geht,also wie kann ich das machen das der erst runter zum next i geht wenn eine taste gedrückt wurde?
und jetzt noch ftp verschlüsselung.kennt da jemand ein beispiel?

[Sawyer]

also du hast da doch ne if abfrage drin oder ?

ich würde das so machen

If .... Then
Next i
Else
Exit Sub
End If
End Sub

ka ob dir das hilft

edit was meinst du mit ftp verschlüsselung?

MfG

[sp33dwalker]

mit ftp verschlüsselung meine ich,die ftp daten die z.B bei einem stealer an die stub angehangen werden stehen ja im plaintext da.Wie kann man die verschlüsseln damit man die daten net mit nem hexeditor auslesen kann?

[Sawyer]

ja das ist eigentlich leicht , du musst die Daten halt vorher einzeln mit ner Verschlüsselung (XoR , RC4) verschlüsseln

und dann übergeben

beim Start machst du das einfach wieder rückgängig^^

MfG

[Sirect]

    Public Function Encrypt(ByVal Key1 As String, ByVal Source As String)
        Dim rd As New RijndaelManaged
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(Key1))
        md5.Clear()
        rd.Key = key
        rd.GenerateIV()
        Dim iv() As Byte = rd.IV
        Dim ms As New MemoryStream
        ms.Write(iv, 0, iv.Length)
        Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Source)
        cs.Write(data, 0, data.Length)
        cs.FlushFinalBlock()
        Dim encdata() As Byte = ms.ToArray()
        Return Convert.ToBase64String(encdata)
        cs.Close()
        rd.Clear()
    End Function
    Public Function Decrypt(ByVal key1 As String, ByVal Source As String)
        Dim rd As New RijndaelManaged
        Dim rijndaelIvLength As Integer = 16
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(key1))
        md5.Clear()
        Dim encdata() As Byte = Convert.FromBase64String(Source)
        Dim ms As New MemoryStream(encdata)
        Dim iv(15) As Byte
        ms.Read(iv, 0, rijndaelIvLength)
        rd.IV = iv
        rd.Key = key
        Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
        Dim data(ms.Length - rijndaelIvLength) As Byte
        Dim i As Integer = cs.Read(data, 0, data.Length)
        Return System.Text.Encoding.UTF8.GetString(data, 0, i)
        cs.Close()
        rd.Clear()
    End Function

Hab ich selber geschrieben, key1 ist der Key und Source der Text den du ver- oder entschlüsseln willst.

[jojoistcool]

Aber wenn sich dein Programm auf den FTP verbindet kann man die Daten trotzdem Clean per Sniffer(z.B Wireshark) sehen

[Sawyer]

tolle Erleuchtung schlaumeier

das wissen wir alle hier , es geht rein darum das man sie nicht per hex Editor ermitteln kann

[sp33dwalker]

o.O das hätte ich jetzt nicht gedacht o.O
achtung ironie!