rc4加密

function  RC4(Expression, Password:  string ):  string ;

var

RB :  array [ 0..255 ]  of  Integer ;

X, Y, Z:  longint ;

Key :  array  of  byte ;

ByteArray :  array  of  Word ; //原来delphi 7下面 是 byte;

Temp:  byte ;

Counter:  integer ;

begin

   If  (Length(Expression) =  0 )  then  Exit;

   If  (Length(Password) =  0 )  then  Exit;

   If  (Length(Password) >  256 )  then  begin

     Password := Copy(Password,  1 ,  256 );

   end ;

   SetLength(Key, Length(Password));

   for  Counter :=  0  to  Length(Password) -  1  do

   begin

     Key[Counter] := ord(Password[Counter +  1 ]);

   end ;

   for  X :=  0  to  255  do

   begin

     RB[X] := X;

   end ;

   X :=  0 ;

   Y :=  0 ;

   Z :=  0 ;

   for  X :=  0  to  255  do

   begin

     Y := (Y + RB[X] + Key[X  mod  Length(Password)])  mod  256 ;

     Temp := RB[X];

     RB[X] := RB[Y];

     RB[Y] := Temp;

   end ;

   X :=  0 ;

   Y :=  0 ;

   Z :=  0 ;

   SetLength(ByteArray, Length(Expression));

   for  Counter :=  0  to  Length(Expression) -  1  do

   begin

     ByteArray[Counter] := ord(Expression[Counter +  1 ]);

   end ;

   for  X :=  0  to  Length(Expression)  do

   begin

     Y := (Y +  1 )  mod  256 ;

     Z := (Z + RB[Y])  mod  256 ;

     Temp := RB[Y];

     RB[Y] := RB[Z];

     RB[Z] := Temp;

     ByteArray[X] := ByteArray[X]  xor  (RB[(RB[Y] + RB[Z])  mod  256 ]);

   end ;

   for  Counter :=  0  to  Length(Expression) -  1  do

   begin

     Result := Result + chr(ord(ByteArray[Counter]));

   end ;

end ;

转载于:https://www.cnblogs.com/onionhacker/p/3533641.html