首页
社区
课程
招聘
[求助]python转Delphi 求助
发表于: 2015-7-11 21:33 3564

[求助]python转Delphi 求助

2015-7-11 21:33
3564
def modpow(b, e, m):
result = 1
while (e > 0):
if e & 1:
result = (result * b) % m
e = e >> 1
b = (b * b) % m
return resul
----------------------------------------------------------------------------------------------
def str_to_int(string):
str_int = 0
for i in range(len(string)):
str_int = str_int <<
str_int += ord(string[i]
return str_int

这个两段怎么转Delphi !!

以下是我自己转的第二段,不行,,,,求助

function str_to_int(SK: string): Integer;
var
I: Integer;
str_int: Integer;
begin
str_int := 0;
for i := 1 to Length(SK) do
begi
str_int := str_int shl 8;
str_int := str_int + ord(SK[i]);
end
Result := str_int;
end;

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (2)
雪    币: 485
活跃值: (78)
能力值: ( LV4,RANK:40 )
在线值:
发帖
回帖
粉丝
2
delphi自身不就已经有实现了?你还要自己写?闲得蛋疼
2015-7-12 21:42
0
雪    币: 230
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
不同的。你把python 代码复制自己试试就知道了对比一下Delphi
Delphi int64 长度问题的!
2015-7-13 00:45
0
游客
登录 | 注册 方可回帖
返回
//