设Range=100
给出
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
后dest的值

解决方案 »

  1.   

    我讨厌
    :=
    经常和=写混,后来就扔掉了pascal
      

  2.   

    function EnCrypt ($src,$key)
    {
    $keyLen = strlen($key);
    if ($keyLen == 0)
    {
    $key = 'Think Space';
    $keyLen = strlen($key);
    } $keyPos = 0;
    $srcPos = 0;
    $srcAsc = 0;
    $range = 256; $offset = rand(0, $range);
    $dest = sprintf("%2x", $offset);
    for ($srcPos = 1; $srcPos <= strlen($src); $srcPos++)
    {
    $srcAsc = (ord($src[$srcPos]) + $offset) % 255;
    if ($keyPos < $keylen) $keyPos++;
    else $keyPos = 1;
    $srcAsc = $srcAsc ^ ord($key[$keyPos]);
    $dest = $dest . sprintf("%2x", $srcAsc);
    $offset = $srcAsc;
    } return $dest;
    }看看是不是你要的:)
      

  3.   

    $range = 256; $offset = rand(0, $range);在这里我有点疑问,这个要来干啥还能还原么?
      

  4.   

    在delphi中,加密函数和一个解密函数正好配合工作, 可以正常解密的, 我试过很多次了。
    but,yh801216(艾奥利斯)改写的php程序,加密后的数据,用delphi的解密函数不能正常解密, 我也试了很多次了。不行:(
      

  5.   

    所以我要你给出
    offset:=Random(Range);
    dest:=format('%1.2x',[offset]);
    的结果进行判断如何翻译Random(Range) 返回值是否是小数?
    format('%1.2x',[offset]) 中 %1.2x 的含义是什么?
    按通常的意义理解应该是返回十六进制数,有一位整数和两位小数
    至少在php中并不存在这样的格式如果这两个问题不弄清楚,那么即使你试一万遍也是枉然