双重壳的Crackme

小生我怕怕

这个注册码可真忽悠人的!

nietsme

原帖由 夜冷风 于 2008-9-18 20:34 发表

蚊香妹妹真厉害啊！！！:loveliness: :loveliness: ＶＢ注册码丢出来学习下

蚊香：我是爷们，跟你说过多少次了~

夜冷风

原帖由 nietsme 于 2008-9-18 21:19 发表



蚊香：我是爷们，跟你说过多少次了~

我经常失意啊!!你要经常提醒我!!:loveliness:

月之精灵

蚊香是爷们？头次听说呢/:018

magic659117852

/:001 再次说明：本人男性

不完美的KG源码（VB Code）：

1. Dim Name, Code As String
   
2. Dim L, i As Integer
   
3. Name = CStr(Text1.Text)
   
4. L = Len(Name)
   
5. If L = 0 Then
   
6. Text2.Text = "请输入用户名"
   
7. Else
   
8. For i = 1 To L
   
9.   Code = Code & Chr(Asc(Mid(Name, i, 1)) + i)
   
10. Next
    
11. Text2.Text = Code
    
12. End If

复制代码

杨家将

你那个头像，人家以为你是MM

nietsme

原帖由 杨家将 于 2008-9-18 22:18 发表
你那个头像，人家以为你是MM

再加上那个名字~


看到有个贴里他说自己是性别男之前，我都认为他是个mm:lol: :lol:

cao2109

LZ，我解压缩，机子吼病毒了。/:L

ZHOU2X

偶没有分析，只是看了楼上几位的注册码，好事，就贴个E注册机源码

.版本 2

.局部变量 注册名长度, 整数型
.局部变量 循环变量, 整数型
.局部变量 注册名代码, 字节型
.局部变量 注册码, 文本型

注册名长度 ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (注册名长度, 循环变量)
    注册名代码 ＝ 取代码 (编辑框1.内容, 循环变量)
    注册码 ＝ 注册码 ＋ 字符 (注册名代码 ＋ 循环变量)
.计次循环尾 ()
编辑框2.内容 ＝ 注册码