-
-
[旧帖]
[求助]PB翻译成DELPHI,我试了蛮久,可就是编译不通过,帮忙看看什么地方错了?
0.00雪花
-
发表于:
2008-5-8 23:50
3882
-
[旧帖] [求助]PB翻译成DELPHI,我试了蛮久,可就是编译不通过,帮忙看看什么地方错了?
0.00雪花
PB程序:
string ls_tmp
char lc_char
integer li_index
integer i
integer li_asc
ls_tmp = ""
li_index = 0
for i = 1 to len(ls_string)
lc_char = char(mid(ls_string,i,1))
li_asc = 255 - asc(lc_char)
ls_tmp = trim(ls_tmp) + char(li_asc)
next
return ls_tmp
delpi程序:自定义一个函数完成这个计算:
function AAA(n : string): string;
var
li_index : integer;
i : integer;
li_asc :integer;
ls_tmp : string;
lc_char : char;
begin
ls_tmp := "" ;
li_index := 0 ;
for i := 1 to Length(edit1.Text) do
lc_char := IntToStr(Copy(edit1.Text,i,1));
li_asc := 255 - Ord(lc_char);
ls_tmp := RightTrim(ls_tmp) + IntToStr(li_asc);
end;
[课程]Android-CTF解题方法汇总!