42 123
µo·s¸ÜÃD
¥´¦L

IBM ¹q¸£

¤Þ¥Î:
­ì©«¥Ñ ª÷¤û347 ©ó 12-1-2012 22:06 µoªí http://www.michaelv.org/

Á¤À¨É.

§Ú­Ì­n§â¾ú¥v¯dµ¹¤U¤@¥N¤£¬O¤³«ë, ¦ý¤£¯àÅý¨B©ó¤£¦X²z¤§¤U

TOP

Anyone use these software before ?: 

                                   visicalc, dbase II, Wordstar, multiplain

                                   Assemble ( I hate this one ), Cobol  ( Include MS, RM, Micro Focus, Fuijisu)

                                   Pasacl,  Basic ( QuickBasic, Powerbuilder) , C, C++

There is a very strange computer programming langauge call Forth is a structured, imperative, reflective, concatenative, extensible, stack-based computer programming language and programming environment.

 

Sample:

 

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
;
hee hee   

TOP

 42 123
µo·s¸ÜÃD