delphi版flashfxp密码解密算法(100)

求delphi版flashfxp密码解密算法以下是参考代码function decryptffxp($ciphertext) { $magic_buffer="yA36zA48dEhfrvghGRg57h5UlDv3"; $count =0; $length =strlen($ciphertext); while ($count < $length) { $cts.=chr(hexdec($ciphertext[$count] . $ciphertext[$count + 1])); $count+=2; } $length =strlen($cts); $count =0; $mbcount=0; while ($count + 1 < $length) { $foo = ord($cts[$count + 1]) ^ ord($magic_buffer[$mbcount]); if ($foo - ord($cts[$count]) < 0) { $plaintext.=chr($foo - ord($cts[$count]) + 255); } else { $plaintext.=chr($foo - ord($cts[$count])); } $count++; $mbcount++; if ($mbcount == 28) { $mbcount=0; } } return $plaintext; }

学习。