43 lines
1.1 KiB
Forth
43 lines
1.1 KiB
Forth
|
0 value ii 0 value jj
|
||
|
|
0 value KeyAddr 0 value KeyLen
|
||
|
|
create SArray 256 allot \ state array of 256 bytes
|
||
|
|
: KeyArray KeyLen mod KeyAddr ;
|
||
|
|
|
||
|
|
: get_byte + c@ ;
|
||
|
|
: set_byte + c! ;
|
||
|
|
: as_byte 255 and ;
|
||
|
|
: reset_ij 0 TO ii 0 TO jj ;
|
||
|
|
: i_update 1 + as_byte TO ii ;
|
||
|
|
: j_update ii SArray get_byte + as_byte TO jj ;
|
||
|
|
: swap_s_ij
|
||
|
|
jj SArray get_byte
|
||
|
|
ii SArray get_byte jj SArray set_byte
|
||
|
|
ii SArray set_byte
|
||
|
|
;
|
||
|
|
|
||
|
|
: rc4_init ( KeyAddr KeyLen -- )
|
||
|
|
256 min TO KeyLen TO KeyAddr
|
||
|
|
256 0 DO i i SArray set_byte LOOP
|
||
|
|
reset_ij
|
||
|
|
BEGIN
|
||
|
|
ii KeyArray get_byte jj + j_update
|
||
|
|
swap_s_ij
|
||
|
|
ii 255 < WHILE
|
||
|
|
ii i_update
|
||
|
|
REPEAT
|
||
|
|
reset_ij
|
||
|
|
;
|
||
|
|
: rc4_byte
|
||
|
|
ii i_update jj j_update
|
||
|
|
swap_s_ij
|
||
|
|
ii SArray get_byte jj SArray get_byte + as_byte SArray get_byte xor
|
||
|
|
;
|
||
|
|
|
||
|
|
hex
|
||
|
|
create AKey 61 c, 8A c, 63 c, D2 c, FB c,
|
||
|
|
\ create AKey 97 c, 8A c, 99 c, D2 c, FB c,
|
||
|
|
: test cr 0 DO rc4_byte . LOOP cr ;
|
||
|
|
AKey 5 rc4_init
|
||
|
|
2C F9 4C EE DC 5 test \ output should be: F1 38 29 C9 DE
|
||
|
|
|