Schreibt einfach was ihr meint welche Lücken er hat.
Das es kein 2. RSA ist ist mir klar
hier der code:
Code: Alles auswählen
Function GetPKeyVal(ByVal key As Byte(), ByVal KeyLength As Integer, ByVal R As Integer) As Integer
Dim Pos As Integer
Pos = Math.Round((KeyLength / 255) * (key(R Mod key.Length) Mod KeyLength - 1), 0)
If R Mod 3 = 0 Then Pos = KeyLength - Pos + 1
GetPKeyVal = Pos + 1 + (key(Pos Mod (key.Length - 1)))
End Function
Hinzu kommt noch eine Substitutionstabelle die aus einer Zeichenkette gebildet wird indem die Kette wenn sie kleiner als 255 (max. Byte) ist, die ersten Zeichen wieder angehängt werden,und wenn sie länger ist der Byte-Wert jedes übrigen Zeichens dividiert und gerundet + 1 zu jedem Zeichen addiert wird. Anschliessend wird jeder Doppelte-Wert mit dem ersten Nicht-Vorkommenden Wert ersetzt.