Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: [vb.net] rc4 verschlüsselung
Autor: ralf_oop (Moderator)
Datum: 24.03.08 20:57
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, j As Integer For i As Integer = 0 To 255 s(i) = CByte(i) k(i) = key(i Mod key.GetLength(0)) Next j = 0 For i As Integer = 0 Tp 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 bytes(x) = bytes(x) XOr s(t) End Sub Ich hoffe, dass ich mich nicht mit den Arraygrenzen vertan habe (C#-Angabe = Anzahl der Elemente (Index: 0 bis Anzahl - 1); VB-Angabe = Angabe des max. Index) ... Diese VB-Eigenheit kommt daher, da VB.NET kompatibel zur VB Classic Deklaration untereGrenze To obereGrenze sein soll... Ralf

[vb.net] rc4 verschlüsselung	1.490	mastermaefju	24.03.08 20:31
Re: [vb.net] rc4 verschlüsselung	1.010	ralf_oop	24.03.08 20:57
Re: [vb.net] rc4 verschlüsselung	1.190	mastermaefju	24.03.08 21:07
Re: [vb.net] rc4 verschlüsselung	832	ralf_oop	24.03.08 21:23
Re: [vb.net] rc4 verschlüsselung	886	FZelle	25.03.08 09:16
Re: [vb.net] rc4 verschlüsselung	853	mastermaefju	25.03.08 12:13
Re: [vb.net] rc4 verschlüsselung	965	ralf_oop	25.03.08 13:26

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