网站 › 『 编程之美 』 › 字符串处理函数

黑夜彩虹 发表于 2006-7-19 22:39:59

字符串处理函数

学破解这些天来，做注册写了一点字符串处理函数，现在拿出来与大家分享：

希望对你在写CrackMe或是写注册机有所帮助...

希望能起个抛砖引玉的作用~~~

function StrToBack(s: string): string;    //将字符串倒转过来
var i:integer;
begin
    for i:=1 to length(s) do
    begin
    result :=s+result;
    end;
end;

function StrToASCII16(s: string): string;      //字符串转换ascii码16进制
vari:integer;
begin
    for i:=1 to length(s) do
    begin
    result := result + IntToHex(ord(s),2);
    end;
end;

function StrToASCII10(s: string): string;    //字符串转换ascii码10进制
var i:integer;
begin
    for i:=1 to length(s) do
    begin
    result:= result + inttostr(ord(s));
    end;
end;

function SiftStr(Str: string): string;//过滤字符串
var i,j:integer;
begin
    Result:='';
    j:=Length(str);
    for i:=0 to j do
    begin
    if str in ['0'..'9','a'..'z','A'..'Z'] then
    Result:=Result+str;
    end;
end;

function DoubleStr(Str: string): string;    //取字符串偶位数字符
var
i: Integer;
begin
   Result := '';
   for i := 2 to Length(Str) do
   if i mod 2 = 0 then
   Result := Result + Str;
end;

pentacle 发表于 2006-7-20 00:29:41

唉。。。现在苦恼ing
我真不知道该学习哪种语言了。。。

易语言   能操作应用，毕竟是中文的帮助。
VB         也能写点小东东，就是帮助文件是E文的。
DELPHI   好久没动这个了。帮助也是E文多。。。

飘云 发表于 2006-7-20 10:06:47

原帖由 pentacle 于 2006-7-20 00:29 发表
唉。。。现在苦恼ing
我真不知道该学习哪种语言了。。。

易语言   能操作应用，毕竟是中文的帮助。
VB         也能写点小东东，就是帮助文件是E文的。
DELPHI   好久没动这个了。帮助也是E文多。。。

聪明的程序员用 DELPHI
真正的程序员用 VC++
;)

野猫III 发表于 2006-7-20 10:14:37

原帖由 飘云 于 2006-7-20 10:06 发表


聪明的程序员用 DELPHI
真正的程序员用 VC++
;)

菜鸟入门用易语言。

初级编程KeyGen试用VB! ;P ;P

黑夜彩虹 发表于 2006-7-20 10:33:33

咋都说跑题了？

成讨论用什么语言了。。。:L

大家补充一些字符串处理函数嘛~~;P

caterpilla 发表于 2006-7-20 10:42:52

第一个有个REVERSESTRING的系统函数可实现倒转

caterpilla 发表于 2006-7-20 10:43:45

原帖由 pentacle 于 2006-7-20 00:29 发表
唉。。。现在苦恼ing
我真不知道该学习哪种语言了。。。

易语言   能操作应用，毕竟是中文的帮助。
VB         也能写点小东东，就是帮助文件是E文的。
DELPHI   好久没动这个了。帮助也是E文多。。。
兼容并包，兄弟全学了，呵呵。。。。。。。。。。。。。

hacker0058 发表于 2006-7-25 16:18:06

原帖由 pentacle 于 2006-7-20 00:29 发表
唉。。。现在苦恼ing
我真不知道该学习哪种语言了。。。

易语言   能操作应用，毕竟是中文的帮助。
VB         也能写点小东东，就是帮助文件是E文的。
DELPHI   好久没动这个了。帮助也是E文多。。。


我看好易语言，明年易语言要改内核了，靠近Ｃ＋＋

不再需要支持库，体积更小，当然还是中文的，期待中......

我现在在学ＭＡＳＭ，用汇编写个ＤＬＬ，小程序（例如：注册机）还是满爽的

agang 发表于 2006-7-25 20:19:22

楼主这贴简直是太牛了,绝对的大公无私,强学习,学习学习再学习

wzwgp 发表于 2006-7-29 22:48:03

谢谢楼主，期待新内容。

查看完整版本: 字符串处理函数