|
Registrieren
Login
Autor
mastermaefju_
Tutorial Leser
Anmeldedatum: 26.03.2007
Beiträge: 30
cryptroutine die mit vb6 kompatibel ist
Verfasst am: 24.03.2008, 13:41
Hi!
ich suche eine schnell cryptroutine die mit vb6 compatibel ist!
Also im mom benutze ich immer AES für .net die is auch recht schnell und
eigentlich uncrackbar.
in vb6 benutze ich eigentlich immer rc4 is auch okay und schnell.
nur will ich jetzt mit einem vb.net prog einen string verschlüsseln und vb6 sollte ihne decrypten können. nur finde ich einfach keine routine die schnell und mit beiden zuverlässig funktioniert...
evtl hat ja einer ein rc4 modul für vb.net? oder eine völlig neue routine?
_________________
c0re_
« Moderator »
Anmeldedatum: 28.11.2007
Beiträge: 425
Verfasst am: 24.03.2008, 14:02
XOr?
_________________
mastermaefju_
Tutorial Leser
Anmeldedatum: 26.03.2007
Beiträge: 30
Verfasst am: 24.03.2008, 14:37
ja xor is ne gute alternative aber ich find für dateien is das voll ungeeignet weil das ewig dauert
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 24.03.2008, 15:02
Und absolut unsicher ist...
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
c0re_
« Moderator »
Anmeldedatum: 28.11.2007
Beiträge: 425
Verfasst am: 24.03.2008, 15:32
... weil Input XOr Output = Pass ist.
_________________
Hamtaro_
« Moderator »
Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW
Verfasst am: 24.03.2008, 15:37
@c0re: das hast du von mir, gibs zu!
Wie wärs mit RC4? http://www.freevbcode.com/ShowCode.asp?ID=4398
_________________
Wie findet ihr meine Sig?
c0re_
« Moderator »
Anmeldedatum: 28.11.2007
Beiträge: 425
Verfasst am: 24.03.2008, 15:48
Hamtaro, bei RC4 gilt das selbe, wie bei XOr.
Und ja, dass hab ich von dir. Hatten das Thema ja auch zusammen.
_________________
mastermaefju_
Tutorial Leser
Anmeldedatum: 26.03.2007
Beiträge: 30
Verfasst am: 24.03.2008, 16:37
@hamtaro der code is für vb5 bzw vb6 wenn du ihn für .net importieren kannst dann wäre ich sehr dankbar
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 24.03.2008, 17:22
Selbstständiges suchen ist explizit erlaubt!
http://dotnet-snippets.de/dns/c-rc4-verschluesselung-SID594.aspx
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
mastermaefju_
Tutorial Leser
Anmeldedatum: 26.03.2007
Beiträge: 30
Verfasst am: 24.03.2008, 18:58
ja und lesen auch -,- das ist CSHARP
meinste ich benutze kein google...
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 24.03.2008, 19:04
Basiert auch auf dem .NET Framework, richtig?
Also geb dir ein wenig Mühe und schreib es um...
Auch sehr nice -> http://www.codeproject.com/KB/vb/Crypto.aspx
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
mastermaefju_
Tutorial Leser
Anmeldedatum: 26.03.2007
Beiträge: 30
Verfasst am: 24.03.2008, 20:54
so hab das mal mit hilfe so konverteirt nur kommen da noch folgende fehler in der ide:
das mit t is ja kein problem....
aber mit i?
Code: Public Sub RC4(ByRef bytes() As Byte, ByVal key() As Byte)
Dim s(255) As Byte
Dim k(255) As Byte
Dim temp As Byte
Dim i As Integer
Dim j As Integer
For i As Integer = 0 To 255
'Die Variable "i" verbirgt eine Variable in einem einschließenden Block.
s(i) = CByte(i)
k(i) = key(i Mod key.GetLength(0))
Next
j = 0
For i As Integer = 0 To 255
j = (j + s(i) + k(i)) Mod 256
temp = s(i)
s(i) = s(j)
s(j) = temp
Next
i = j = 0
For x As Integer = 0 To bytes.GetLength(0) - 1
i = (i + 1) Mod 256
j = (j + s(i)) Mod 256
temp = s(i)
s(i) = s(j)
s(j) = temp
int(t = (s(i) + s(j)) Mod 256) 'der name t wurde nicht deklariert
bytes(x) = bytes(x) Xor s(t)
Next
End Sub
_________________
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
Verfasst am: 24.03.2008, 20:57
Du hast dreimal i deklariert.
Dim i As Integer
For i As Integer = 0 To 255
For i As Integer = 0 To 255
_________________
Avoid Suspicion, Manipulate your friends, Eliminate your enemies.
Verwandte Themen
Aufrufe
Letzter Beitrag
Wichtig: Vb6 und Mousewheel -> Scrollen
1944
02.02.2011, 08:50
Vb6 und WinVista
1941
01.04.2008, 08:39
Plug-Ins fähiges VB6 Programm
375
29.03.2008, 17:59
Vb6] Wie sockets einfügen?!?
411
29.04.2007, 10:37
Vb6 Coden Tut Übersetzen?
562
10.04.2007, 15:47
