RC4 加密解密单元delphi版

附件压缩包里有两个单元文件，其中Rc4_Kol_Unit.pas是在delphi KOL编程时引用。若只是delphi编程只须引用Rc4_Unit.pas单元即可。

函数名:　　Rc4_StrEncrypt()
描 述:　　RC4 Based string encryption
参 数:　 i_Encrypt ——为 1 是加密, 0 是解密（integer类型）；
　　　　　 s_EncryptText ——待加密（解密）的字符串（string类型）；
　　　　　 s_EncryptPassword ——加密（解密）的密码（string类型）；
　　　　　 i_EncryptLevel ——加密级别（范围：1－－10；integer类型））
,RC4 encryption and decryption modules compression delphi edition paper bag has two units, which Rc4_Kol_Unit.pas programming in delphi KOL invoked. Delphi programming if it is invoked only to Rc4_Unit.pas unit. Function name: Rc4_StrEncrypt () Descr iption: RC4 Based string encryption parameters: i_Encrypt- 1 is encrypted, 0 is decrypted (integer type)　s_EncryptText- to be encrypted (decrypted) string (string type)　s_EncryptPassword- Encryption (decryption) password (string type)　i_EncryptLevel- encryption level (range :1- 10　integer type))