Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Encrypt / Decrypt
Autor: heinzW
Datum: 05.04.08 21:07
Hallo, ich versuche eine Datei mit Encrypt zu verschlüsseln und anschließen mit Decrypt wieder zurückzuholen. Sieht ungefähr so aus: Set m_Crypt = New Encrypt 'Verschlüsselungsmodus einstellen m_Crypt.Mechanism = RC4 m_Crypt.KeyData = "Das ist der Zugang" m_Crypt.KeySize = 128 m_Crypt.Salt = "" m_Crypt.Mode = CBC lRet = m_Crypt.FileEncrypt(m_strFilename, bOutput) F = FreeFile Open m_strFilenameCrypt For Binary As F Put #F, , bOutput Close F Mit dieser Sequenz werden ca. 26000 Bytes geschrieben (im Verzeichnis überprüft). lRet = m_Crypt.Decrypt(m_strFilenameCrypt, bInput) Beim Entschlüsseln bekomme ich immer nur 38 Bytes zurück. Weiß jemand warum? Heinz

Encrypt / Decrypt	759	heinzW	05.04.08 21:07
Re: Encrypt / Decrypt	425	heinzW	05.04.08 21:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen