| RC4 KOmpatible DATA CRYPTING TOOL ;-) von we |
| so hier kommts : RC4 - RONS CODE 4 Compatible Code RC4 Datenstromkodierer mit pseudozufall(schlüsselabhängig) RC4 Originalcode nicht öffentlich , Pseudocode hat gleiche Wirkung Der Schlüssel darf 255 Bytes lang sein viel Spass [code:1:8b0da7b180] Dim sbox(255) ; substitutionsbox 255 Bytes Dim keyh(255) ; keyholderbox 255 bytes Global rc4$ Key$="BLITZ RULEZT" ; your key up to 255 bytes long ;---------------------------------------------------------------------------- verschlüsseln clear$="Dies ist der Klartext !" ; zu verschlüsselnder Text rc4init (key$) ; initialisiere SBOX ; goto sbox? a$= rc4code(clear$) ; verschlüssele clear$ zu a$ Print a$ ; das kommt raus !!!!!!!!!!!!!!! ;----------------------------------------------------------------------------- ende versclüsseln ;clear$="" ;----------------------------------------------------------------------------- entschlüsseln rc4init (key$) ; initialisiere SBOX clear$= rc4code(a$) ; entschlüssle a$ Print clear$ ; naja ihr wisst schon WaitKey() ; dito End ;dito Function rc4init(key$) ; sbox init keylen = Len(key$) ; key-länge For i = 0 To 255 ; alle 255 Bytes sbox(i) = i ; sbox inhalt = zähler kptr =kptr+1 ; schlüssellängenzähler keyh(i) = Asc(Mid$(key$,kptr,1)) ; KEYHOLDER array = ASCII vom SChlüsselbuchstaben If kptr = keylen Then kptr = 0 ; prüfen ob schlüssel < 255 bytes Next For i = 0 To 255 j= (j+sbox(i)+keyh(i)) ; zahl = sbox()+keyh()+zahl j= j Mod 256 ; > 256 ? swap = sbox(i) ; swapen (vertauschen) sbox(i) = sbox(j) ; dito sbox(j) = swap ; swap end Next i = rc4k(1) ; rc4k aufruf mit 1 End Function Function rc4k(init) ; ; cipher BYTE holen aus der sbox() Local x,y If init Then ; reset key x=0 y=0 Else x =x+1 x =x Mod 256 y =y+(sbox(x)) y =y Mod 256 swap = sbox(x) sbox(x) = sbox(y) sbox(y) = swap t = sbox(x)+sbox(y) t =t Mod 256 rc4k =sbox(t) Return rc4k End If End Function Function rc4code$(s$) slen = Len(s$) ; länge vom eingangs$ re$="" ; add verhindern For r = 1 To slen c = Asc(Mid$(s$,r,1)) ; ascii k = rc4k(0) ; sbox schlussel holen kein init re$=re$+(Chr$(c Xor k)) ; ascii Xor sbox() Next rc4$= re$ Return rc4$ End Function [/code:1:8b0da7b180] wie gesagt nur für private zwecke nutzen ! wer will kann ja PC1 einbauen (mod. RC4 Code ) Google wirkt |
| von |
| Seit ich S3D entwickle kommen solche Sprüche wie "also nur für privat nix für kommerz" ;) Aba ok. Den Algroythmus finde ich irgendwie Gut. (Und vom Code her, mal einen richtigen Aufbau) :) MfG ShadowTurtle |
| von ??? |
| Hi! Kannst Du den Algo mal kurz erleutern? mfg olli |
| code von ??? |
| :o Löschen bitte |
| .... von ??? |
| Jau, Löchen, Bevor ich das Weinen anfange. bye |
| von ??? |
| Hi. Warum denn? Für einige ist so etwas bestimmt brauchbar. MfG ShadowTurtle |
| @Sucox von ??? |
| HE sucox wieso weinen ? versteh ich nicht ? was ist den mit dem code ? |
| von ??? |
| @PANNO: ich glaub ma der wusste nicht das das dein thread iss... DaManiac :roll: |