摘要：
functionRC4(Expression,Password:string):string;varRB:array[0..255]ofInteger;X,Y,Z:longint;Key:arrayofbyte;ByteArray:arrayofWord;//原来delphi7下面是byte;Temp:byte;Counter:integer;beginIf(Length(Expression)=0)thenExit;If(Length(Password)=0)thenExit;If(Length(Password)>256)thenbeginPassword:=Copy(Passwor 阅读全文