请教KeyGen制作的几个问题～

野猫III

一、易语言里的“取文本左边”“取文本右边”“取文本中间”在VB，Delphi里如何表达？

二、易语言里的“取大写”“取小写”在VB,Delphi里又如果表达？

三、最后小鱼兄的这段易语言翻转字符串应该如何理解，在VB,Delphi里是怎么表达的：

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 机器码, 文本型
.局部变量 i, 整数型
.局部变量 S, 整数型
.局部变量 S1, 整数型
.局部变量 W, 整数型
.局部变量 S2, 整数型
.局部变量 S3, 整数型
.局部变量 S4, 整数型
.局部变量 S5, 整数型
.局部变量 ALL1, 文本型
.局部变量 ALL, 文本型

机器码 ＝ 编辑框1.内容
W ＝ 取文本长度 (机器码)
.计次循环首 (W, i)
    S ＝ 到数值 (取文本左边 (机器码, 1)) ＋ 30
    机器码 ＝ 取文本右边 (机器码, 取文本长度 (机器码) － 1)
    S1 ＝ S  ' ＋ 2
    S1 ＝ 到数值 (转换为十进制 (到文本 (S1), 16)) ＋ 2
    S2 ＝ W ＋ 16
    S3 ＝ S1 × S2
    S4 ＝ S3 ＋ S1
    S5 ＝ S4 ＋ W
    ALL1 ＝ 倒转字符串 (到文本 (S5))
    ALL ＝ ALL ＋ ALL1
.计次循环尾 ()
编辑框2.内容 ＝ 取文本左边 (ALL, 4) ＋ “-” ＋ 取文本中间 (ALL, 6, 4) ＋ “-” ＋ 取文本中间 (ALL, 11, 4)


.子程序 倒转字符串, 文本型
.参数 ls_2_1, 文本型
.局部变量 i, 整数型
.局部变量 RChar, 文本型
.局部变量 LChar, 文本型
.局部变量 WChar, 文本型

.判断循环首 (i ＜ 取文本长度 (ls_2_1))
    LChar ＝ 取文本左边 (ls_2_1, 取文本长度 (ls_2_1) － i)
    RChar ＝ 取文本右边 (LChar, 1)
    i ＝ i ＋ 1
    WChar ＝ WChar ＋ RChar
.判断循环尾 ()
返回 (WChar)

[ 本帖最后由 野猫III 于 2006-7-14 20:52 编辑 ]

黑夜彩虹

LeftStr
RightStr
或Copy
都可解决...

飘云

VB:

1.     Dim Code As String  '机器码
   
2.     Dim LenCode As Integer '机器码位数
   
3.     Dim i As Integer
   
4.     Dim S, S1, S2, S3, S4, S5 As Integer
   
5.     Dim TEMP, Sn As String
   
6.     Const a = "-"
   
7.    
   
8.     Code = Text1.Text
   
9.     LenCode = Len(Code)
   
10.    
    
11.     For i = 1 To LenCode
    
12.         S = Val(Left(Code, 1)) + &H30   '实际就是取ascii ==>> S = Asc(Left(Code, 1))
    
13.         Code = Right(Code, Len(Code) - 1)
    
14.         S1 = S + 2
    
15.         S2 = LenCode + 16
    
16.         S3 = S1 * S2
    
17.         S4 = S3 + S1
    
18.         S5 = S4 + LenCode
    
19.         TEMP = TEMP + StrReverse(S5) '倒置文本
    
20.     Next
    
21.         Sn = Left(TEMP, 4) + a + Mid(TEMP, 6, 4) + a + Mid(TEMP, 11, 4)
    
22.         Text2.Text = Sn

复制代码

Delphi:

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. //注意：先在 Uses 子句加入 :StrUtils
   
3. var
   
4.   Code:string;   //机器码
   
5.   LenCode:integer; //机器码长度
   
6.   i:integer;
   
7.   S,S1,S2,S3,S4,S5:integer;
   
8.   temp,Sn:string;
   
9. const
   
10.   a = '-';
    
11. begin
    
12.   code:= edit1.Text;
    
13.   LenCode := length(code);
    
14. 
    
15.   for i := 1 to LenCode do
    
16.   begin
    
17.     s := ord(code[1]) ;  //这里比VB好处理的多哦~~~
    
18.     code := rightstr(code,length(code)-1);
    
19.     s1 := s+2;
    
20.     S2 := LenCode + 16;
    
21.     S3 := S1 * S2;
    
22.     S4 := S3 + S1;
    
23.     S5 := S4 + LenCode;
    
24.     temp:=temp + ReverseString(inttostr(S5));
    
25.   end;
    
26.     sn := Leftstr(TEMP, 4) + a + Midstr(TEMP, 6, 4) + a + Midstr(TEMP, 11, 4);
    
27.     edit2.Text :=sn;
    
28. end;

复制代码

eopenfang

支持老大!

野猫III

原帖由 飘云 于 2006-7-14 11:11 发表
VB:
    Dim Code As String  '机器码
    Dim LenCode As Integer '机器码位数
    Dim i As Integer
    Dim S, S1, S2, S3, S4, S5 As Integer
    Dim TEMP, Sn As String
    Const a = "-" ...

除了咱对老大感谢之外！

咱还为PYG 5.4 Crack引导学习小组的所有朋友向老大表示感谢！

第三课需要各位中上水平的朋友支持，谢谢！

欢迎所有[PYG]成员组的朋友到第三课当指导。（请在[PYG]成员QQ群PM咱）

_________________________________

刚消化了一个内容：
Private Sub Command1_Click()
Dim Name As String
Name = Text1.Text
Text2.Text = Left(Name, 2)　　//取文本左边两位,中间就是Mid,右边就是Right
End Sub

[ 本帖最后由 野猫III 于 2006-7-14 21:03 编辑 ]

jiller

易语言的中文太拗口了。

vecri

没学过楼主问的语言...只会VC. ASM, .NET