字符串处理函数

黑夜彩虹

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

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

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

1. function StrToBack(s: string): string;    //将字符串倒转过来
   
2.   var i:integer;
   
3. begin
   
4.     for i:=1 to length(s) do
   
5.     begin
   
6.     result :=s[i]+result;
   
7.     end;
   
8. end;
   
9. 
   
10. function StrToASCII16(s: string): string;      //字符串转换ascii码16进制
    
11.   var  i:integer;
    
12. begin
    
13.     for i:=1 to length(s) do
    
14.     begin
    
15.     result := result + IntToHex(ord(s[i]),2);
    
16.     end;
    
17. end;
    
18. 
    
19. function StrToASCII10(s: string): string;    //字符串转换ascii码10进制
    
20.   var i:integer;
    
21. begin
    
22.     for i:=1 to length(s) do
    
23.     begin
    
24.     result:= result + inttostr(ord(s[i]));
    
25.     end;
    
26. end;
    
27. 
    
28. function SiftStr(Str: string): string;  //过滤字符串
    
29.   var i,j:integer;
    
30. begin
    
31.     Result:='';
    
32.     j:=Length(str);
    
33.     for i:=0 to j do
    
34.     begin
    
35.     if str[i] in ['0'..'9','a'..'z','A'..'Z'] then
    
36.     Result:=Result+str[i];
    
37.     end;
    
38. end;
    
39. 
    
40. function DoubleStr(Str: string): string;    //取字符串偶位数字符
    
41. var
    
42.   i: Integer;
    
43. begin
    
44.    Result := '';
    
45.    for i := 2 to Length(Str) do
    
46.    if i mod 2 = 0 then
    
47.    Result := Result + Str[i];
    
48. end;

复制代码

pentacle

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

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

飘云

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

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

1. 聪明的程序员用 DELPHI
   
2. 真正的程序员用 VC++

复制代码

;)

野猫III

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


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

菜鸟入门用易语言。

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

黑夜彩虹

咋都说跑题了？

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

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

caterpilla

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

caterpilla

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

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

兼容并包，兄弟全学了，呵呵。。。。。。。。。。。。。

hacker0058

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

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

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

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

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

agang

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

wzwgp

谢谢楼主，期待新内容。