代码
复制代码代码如下所示：
*
* RC4加密算法
* $ pwd关键
*要加密的数据数据
* /
功能RC4（$ pwd，$data） / / $ pwd美元关键数据需要加密的字符串
{
$键；
$；
pwd_length美元= strlen（$ pwd）；
data_length美元= strlen（$数据）；
（$ i = 0；$ i < 256；$ + +）
{
关键我} = { $美元ORD（$ pwd { $我% $ pwd_length }）；
$ $；
}
对于（$ = $ I = 0；$ i < 256；$ + +）
{
$ =（$ j $ +框{ $ I } +键{ $ I }）% 256；
$ = $；
$；
$；
}
为（$ = $ J = $我= 0；美元美元美元我<< data_length；i++）
{
$ =（$ + 1）% 256；
$ =（$ J $ +盒{ }）% 256；
$ $ =；
$；
$；
$ $ = $ {（$），（}：$ 256）}；
密码= CHR（ORD（美元美元美元数据{我}）^ $ K）；
}

返回$密码；
}