会PHP的大神帮忙看下这个用易语言怎么实现

风中的玫瑰

如题:php代码：

function getkey(){
                $key = 185025305;
                $val = getror(time(),$key % 17);
                $val = $val ^ $key;
                return $val;
        }

function getror($val,$key)
        {
                $i = 0;
                while($i < $key){
                        $val = (0x7fffffff & ($val >> 1)) | (($val & 1) << 31);
                        ++$i;
                }
                return $val;


这个什么算法，易语言如何实现。

anyuezhiji

  

调试输出 (getkey ())

子程序名	返回值类型	公开	备 注
getkey	整数型

变量名	类 型	静态	数组	备 注
val	整数型
key	整数型

key ＝ 185025305
val ＝ getror (取启动时间 (), key ％ 17)
val ＝ 位异或 (val, key)
返回 (val)
' function getkey(){
' $key = 185025305;
' $val = getror(time(),$key % 17);
' $val = $val ^ $key;
' return $val;
' }

子程序名	返回值类型	公开	备 注
getror	整数型
参数名	类 型	参考	可空	数组	备 注
val
key

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 0
判断循环首 (i ＜ key)
val ＝ 位或 (位与 (十六进制 (“7fffffff”), 右移 (val, 1)), 左移 (位与 (val, 1), 31))
i ＝ i ＋ 1
判断循环尾 ()
返回 (val)
' function getror($val,$key)
' {
' $i = 0;
' while($i < $key){
' $val = (0x7fffffff & ($val >> 1)) | (($val & 1) << 31);
' ++$i;
' }
' return $val;

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (getkey ())<br /> <br /> .子程序 getkey, 整数型<br /> .局部变量 val, 整数型<br /> .局部变量 key, 整数型<br /> <br /> key ＝ 185025305<br /> val ＝ getror (取启动时间 (), key ％ 17)<br /> val ＝ 位异或 (val, key)<br /> 返回 (val)<br /> ' function getkey(){<br /> ' $key = 185025305;<br /> ' $val = getror(time(),$key % 17);<br /> ' $val = $val ^ $key;<br /> ' return $val;<br /> ' }<br /> <br /> .子程序 getror, 整数型<br /> .参数 val<br /> .参数 key<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 0<br /> .判断循环首 (i ＜ key)<br />     val ＝ 位或 (位与 (十六进制 (“7fffffff”), 右移 (val, 1)), 左移 (位与 (val, 1), 31))<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (val)<br /> ' function getror($val,$key)<br /> ' {<br /> ' $i = 0;<br /> ' while($i < $key){<br /> ' $val = (0x7fffffff & ($val >> 1)) | (($val & 1) << 31);<br /> ' ++$i;<br /> ' }<br /> ' return $val;

补充内容 (2016-8-31 20:00):
这是根据系统时间生成key

ovo555

你照做这个逻辑写两个方法就可以了

风中的玫瑰

回复楼上：
private long GenerateKeyRor(long value, int key)
{
        int i = 0;
        while (i < key)
        {
                value = ((uint)(value) >> 1) + ((value & 1) << 31);
                ++i;
        }
        return value;
}


private long GetKey(int stime)
{
        int key = 773625421;
        long value = GenerateKeyRor(stime, key % 13);
        value ^= key;
        value = GenerateKeyRor(value, key % 17);
        return value;
}
这个怎么弄，谢谢

anyuezhiji

风中的玫瑰 发表于 2016-8-31 20:08
回复楼上：
private long GenerateKeyRor(long value, int key)
{

  

调试输出 (GetKey_ (取启动时间 ()))

子程序名	返回值类型	公开	备 注
GetKey_	长整数型
参数名	类 型	参考	可空	数组	备 注
stime	整数型

变量名	类 型	静态	数组	备 注
val	长整数型
key	整数型

key ＝ 773625421
val ＝ GenerateKeyRor (stime, key ％ 13)
val ＝ 位异或 (val, key)
返回 (val)
' private long GetKey(int stime)
' {
' int key = 773625421;
' long value = GenerateKeyRor(stime, key % 13);
' value ^= key;
' value = GenerateKeyRor(value, key % 17);
' return value;
' }

子程序名	返回值类型	公开	备 注
GenerateKeyRor	长整数型
参数名	类 型	参考	可空	数组	备 注
value	长整数型
key

变量名	类 型	静态	数组	备 注
i	整数型

i ＝ 0
判断循环首 (i ＜ key)
value ＝ 右移 (到整数 (value), 1) ＋ 左移 (位与 (value, 1), 31)
i ＝ i ＋ 1
判断循环尾 ()
返回 (value)
' private long GenerateKeyRor(long value, int key)
' {
' int i = 0;
' while (i < key)
' {
' value = ((uint)(value) >> 1) + ((value & 1) << 31);
' ++i;
' }
' return value;
' }

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (GetKey_ (取启动时间 ()))<br /> <br /> .子程序 GetKey_, 长整数型<br /> .参数 stime, 整数型<br /> .局部变量 val, 长整数型<br /> .局部变量 key, 整数型<br /> <br /> key ＝ 773625421<br /> val ＝ GenerateKeyRor (stime, key ％ 13)<br /> val ＝ 位异或 (val, key)<br /> 返回 (val)<br /> ' private long GetKey(int stime)<br /> ' {<br /> ' int key = 773625421;<br /> ' long value = GenerateKeyRor(stime, key % 13);<br /> ' value ^= key;<br /> ' value = GenerateKeyRor(value, key % 17);<br /> ' return value;<br /> ' }<br /> <br /> .子程序 GenerateKeyRor, 长整数型<br /> .参数 value, 长整数型<br /> .参数 key<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 0<br /> .判断循环首 (i ＜ key)<br />     value ＝ 右移 (到整数 (value), 1) ＋ 左移 (位与 (value, 1), 31)<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (value)<br /> ' private long GenerateKeyRor(long value, int key)<br /> ' {<br /> ' int i = 0;<br /> ' while (i < key)<br /> ' {<br /> ' value = ((uint)(value) >> 1) + ((value & 1) << 31);<br /> ' ++i;<br /> ' }<br /> ' return value;<br /> ' }

补充内容 (2016-8-31 20:40):
还是根据系统时间生成key

易小猫

经过测试和PHP代码结果一致，望采纳，这个完全靠易语言原生支持库，不用模块

  

窗口程序集名	保 留	保 留	备 注
程序集_入口

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
输入	文本型

标准输出 (1, “当前时间戳：” ＋ 到文本 (time ()) ＋ #换行符 ＋ “getkey（）结果为：” ＋ 到文本 (getkey ()))
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
getkey	整数型

变量名	类 型	静态	数组	备 注
key	整数型
val	整数型
time	整数型			用于测试

' function getkey(){
' $key = 185025305;
' $val = getror(time(),$key % 17);
' $val = $val ^ $key;
' return $val;
' }
key ＝ 185025305
time ＝ time ()
' time ＝ 1548912121546 '用于测试，把这个值和PHP代码设置成一样的话如果输出一样证明正确
val ＝ getor (time, key ％ 17)
val ＝ 位异或 (val, key)
返回 (val)

子程序名	返回值类型	公开	备 注
getor	整数型
参数名	类 型	参考	可空	数组	备 注
val	整数型
key	整数型

变量名	类 型	静态	数组	备 注
i	整数型

' function getror($val,$key)
' {
' $i = 0;
' while($i < $key){
' $val = (0x7fffffff & ($val >> 1)) | (($val & 1) << 31);
' ++$i;
' }
' return $val;
' 0x7fffffff 的十进制为 2147483647
i ＝ 0
判断循环首 (i ＜ key)
val ＝ 位或 (位与 (2147483647, 右移 (val, 1)), 左移 (位与 (val, 1), 31))
i ＝ i ＋ 1
判断循环尾 ()
返回 (val)

子程序名	返回值类型	公开	备 注
time	双精度小数型		返回自从 Unix 纪元（格林威治时间 1970 年 1 月 1 日 00:00:00）到当前时间的秒数。

变量名	类 型	静态	数组	备 注
time	整数型

time ＝ 取时间间隔 (取现行时间 (), 到时间 (“1970/1/1 00:00:00”), #秒 )
time ＝ time － 8 × 3600 ' 因为中国在东八区，所以要减去八个小时
返回 (time)

.版本 2<br /> <br /> .程序集 程序集_入口<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 输入, 文本型<br /> <br /> <br /> 标准输出 (1, “当前时间戳：” ＋ 到文本 (time ()) ＋ #换行符 ＋ “getkey（）结果为：” ＋ 到文本 (getkey ()))<br /> 返回 (0) ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 getkey, 整数型<br /> .局部变量 key, 整数型<br /> .局部变量 val, 整数型<br /> .局部变量 time, 整数型, , , 用于测试<br /> <br /> ' function getkey(){<br /> ' $key = 185025305;<br /> ' $val = getror(time(),$key % 17);<br /> ' $val = $val ^ $key;<br /> ' return $val;<br /> ' }<br /> key ＝ 185025305<br /> time ＝ time ()<br /> ' time ＝ 1548912121546 '用于测试，把这个值和PHP代码设置成一样的话如果输出一样证明正确<br /> val ＝ getor (time, key ％ 17)<br /> val ＝ 位异或 (val, key)<br /> 返回 (val)<br /> <br /> .子程序 getor, 整数型<br /> .参数 val, 整数型<br /> .参数 key, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' function getror($val,$key)<br /> ' {<br /> ' $i = 0;<br /> ' while($i < $key){<br /> ' $val = (0x7fffffff & ($val >> 1)) | (($val & 1) << 31);<br /> ' ++$i;<br /> ' }<br /> ' return $val;<br /> ' 0x7fffffff 的十进制为 2147483647<br /> i ＝ 0<br /> <br /> .判断循环首 (i ＜ key)<br /> val ＝ 位或 (位与 (2147483647, 右移 (val, 1)), 左移 (位与 (val, 1), 31))<br /> i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (val)<br /> <br /> .子程序 time, 双精度小数型, , 返回自从 Unix 纪元（格林威治时间 1970 年 1 月 1 日 00:00:00）到当前时间的秒数。 <br /> .局部变量 time, 整数型<br /> <br /> time ＝ 取时间间隔 (取现行时间 (), 到时间 (“1970/1/1 00:00:00”), #秒)<br /> time ＝ time － 8 × 3600 ' 因为中国在东八区，所以要减去八个小时<br /> 返回 (time)