您的位置：首页 → 精文荟萃 → 破解文章 → AceReader V4.5 算法及VB注册机.TXT

AceReader V4.5 算法及VB注册机.TXT

时间：2004/10/15 0:55:00来源：本站整理作者：蓝点我要评论(0)

　目标软件： AceReader V4.5

软件大小： 787 KB

软件语言： 英文

软件类别： 国外软件 / 共享版 / 电子阅读

应用平台： Win9x/NT/2000/XP

下载地址： http://www.skycn.com/soft/9585.html

软件介绍：
为改进你的阅读技巧，AceReader包含两种模式：眼扫描训练模式和中心文本模式。 在眼扫描训练模式中，文本从显示区域卷绕穿过，迫使你的眼睛象正常阅读那样移动。该软件可以作为一种教学工具来使用，通过设置在更高的速度档上的练习，可以使你不论在计算机上还是在书本上都能提高阅读速度。软件能通过不同等级水平的阅读理解来跟踪你的进度。AceReader可以帮你抛弃每个词都在脑子里发音的阅读习惯，从而从整体上改进你的阅读技巧和速度。在中心文本模式中，文本显示在文本区的中央。这种模式可作为一种高效率的阅读工具来使用，从而使阅读更加容易和迅速，因为你的视线无需移动。你可以用该软件作快速阅读、略读文档中或剪贴板上的文字。AceReader的设计是面向所有年龄段的用户的，从需要在现在这个信息时代阅读得更加迅速的繁忙的行政人员，到刚刚学会怎样读书的小孩子都可以使用它。

破解过程：

Hmemcpy，设断，易来到：

PUSH EBX
PUSH ESI
PUSH EDI
MOV [EBP-04],ECX
MOVSX EAX,BYTE [EBP+0C] //查表。
MOV ECX,09 //0x9 送入 ECX。
ADD EAX,BYTE +02 //ECX+0x2。
CDQ
IDIV ECX //除以ECX。
MOV EAX,[EBP+08] //用户名送入EAX。
MOVSX EAX,BYTE [EAX] //取用户名的第一位。
MOV ECX,0B //0xB 送入 ECX。
LEA EAX,[EAX+EDX+08] //EAX+EDX+08 的值保存到 EAX。
CDQ
IDIV ECX //除以ECX。
LEA EAX,[EDX+70] //EDX+0x70 的值保存到EAX。
MOV ECX,[EBP+10] //EBP+0x10 的值送入ECX。
MOV [ECX],AL //AL 的值日送入 ECX。
MOVSX EAX,BYTE [EBP+0C] //查表。
MOV ECX,05 //0x5 送入 ECX。
ADD EAX,BYTE +09 //EAX+0x9。
CDQ
IDIV ECX //除以ECX。
MOV EAX,[EBP+08] //用户名送入EAX。
MOVSX EAX,BYTE [EAX+01] //取用户名的第二位。
LEA EAX,[EAX+EDX+2C] //将 EAX+EDX+2C 的值保存到 EAX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与 0x7 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +41 //EAX+0x41。
MOV ECX,[EBP+10] //EBP+0x10 的值送入ECX。
MOV [ECX+01],AL //AL 的值日送入 ECX+0x1 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
MOV ECX,03 //0x3 送入 ECX。
ADD EAX,BYTE +09 //EAX+0x3。
CDQ
IDIV ECX //除以ECX。
MOV EAX,[EBP+08] //将用户名送入EAX。
MOVSX EAX,BYTE [EAX+02] //取用户名第三位。
ADD EAX,EDX //EAX+EDX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与 0x7 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +32 //EAX+0x32。
MOV ECX,[EBP+10] //EBP+10 处的值送入 ECX。
MOV [ECX+02],AL //将 AL 的值送入 ECX+0x2 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
ADD EAX,BYTE +04 //EAX+0x4。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与 0x7 做与运算。
XOR EAX,EDX //EAX 与 ECX 做异或运算。
SUB EAX,EDX //EAX-EDX。
MOV ECX,[EBP+08] //用户名送入 ECX。
MOVSX ECX,BYTE [ECX+03] //取用户名的第四位。
MOV EBX,05 //将 Ox5 送入EBX。
LEA EAX,[ECX+EAX+02] //将 ECX+EAX+02 的值保存到 EAX。
CDQ
IDIV EBX //除以 EBX。
LEA EAX,[EDX+4A] //EDX+0x4A 的值保存到 EAX。
MOV ECX,[EBP+10] //EBP+10 处的值送入 ECX。
MOV [ECX+03],AL //将 AL 的值送入 ECX+03 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
MOV ECX,06 //将 0x6 送入 ECX。
ADD EAX,BYTE +03 //EAX+0x3。
CDQ
IDIV ECX //除以ECX。
MOV EAX,[EBP+08] //用户名送入 EAX。
MOVSX EAX,BYTE [EAX+04] //取用户名的第五位。
MOV ECX,0B //将 0xB 送入 ECX。
LEA EAX,[EAX+EDX+07] //将 EAX+EDX+07 的值保存到 EAX。
CDQ
IDIV ECX //除以 ECX。
LEA EAX,[EDX+61] //将 EDX+61 的值保存到 EAX。
MOV ECX,[EBP+10] //将 EBP+10 的值送入 ECX。
MOV [ECX+04],AL //将 AL 送入 ECX+04 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
ADD EAX,BYTE +06 //EAX+0x6。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与 0x7 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
MOV ECX,[EBP+08] //用户名送入 ECX。
MOVSX ECX,BYTE [ECX+05] //取用户名的第六位。
LEA EAX,[ECX+EAX+07] //将 ECX+EAX+07 的值保存到 EAX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与0x7 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +32 //EAX+0x32。
MOV ECX,[EBP+10] //将 EBP+10 处的值送入 ECX。
MOV [ECX+05],AL //将 AL 的值送入 ECX+05 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
ADD EAX,BYTE +04 //EAX+0x4。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +03 //EAX 与 0x3 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
MOV ECX,[EBP+08] //用户名送入 ECX。
MOVSX ECX,BYTE [ECX+06] //取用户名第七位。
LEA EAX,[ECX+EAX+01] //将 ECX+EAX+01 的值保存到 EAX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +01 //EAX 与0x1 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +6D //EAX+0x6D。
MOV ECX,[EBP+10] //将 EBP+10 出的值送入 ECX。
MOV [ECX+06],AL //将 AL 的值送入 ECX+06 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
MOV ECX,09 //0x9 送入 ECX。
ADD EAX,BYTE +09 //EAX+0x9。
CDQ
IDIV ECX //除以 ECX。
MOV EAX,[EBP+08] //用户名送入 EAX。
MOVSX EAX,BYTE [EAX+07] //取用户名第八位。
LEA EAX,[EAX+EDX+03] //将 EAX+EDX+03 的值保存到 EAX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +07 //EAX 与 0x7 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +32 //EAX+0x32。
MOV ECX,[EBP+10] //将 EBP+10 处的值送入 ECX。
MOV [ECX+07],AL //将 AL 的值送入 ECX+07 处。
MOVSX EAX,BYTE [EBP+0C] //查表。
INC EAX //EAX+1。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +03 //EAX 与 0x3 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
MOV ECX,[EBP+08] //用户名送入 ECX。
MOVSX ECX,BYTE [ECX+08] //取用户名第九位。
LEA EAX,[ECX+EAX+09] //将 ECX+EAX+09 的值保存到 EAX。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +01 //EAX 与 0x1 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
ADD EAX,BYTE +6D //EAX+0x6D。
MOV ECX,[EBP+10] //将 EBP+10 处的值送入 ECX。
MOV [ECX+08],AL //将 AL 的值送入 ECX+08。
MOVSX EAX,BYTE [EBP+0C] //查表。
ADD EAX,BYTE +08 //EAX+0x8。
CDQ
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
AND EAX,BYTE +01 //EAX 与 0x1 做与运算。
XOR EAX,EDX //EAX 与 EDX 做异或运算。
SUB EAX,EDX //EAX-EDX。
MOV ECX,[EBP+08] //用户名送入 ECX。
MOVSX ECX,BYTE [ECX+09] //取用户名第十位。
MOV EBX,0B //将 0xB 送入 EBX。
LEA EAX,[ECX+EAX+0D] //将 ECX+EAX+0D 的值保存到 EAX。
CDQ
IDIV EBX //除以 EBX。
LEA EAX,[EDX+50] //将 EDX+0x50的值保存到EAX。
MOV ECX,[EBP+10] //将 EBP+10 处的值送入 ECX。
MOV [ECX+09],AL //将 AL 的值送入 ECX+0x09 处。
MOV EAX,[EBP+10] //将 EBP+0x10 处值送入 EAX。
MOV BYTE [EAX+0A],00
JMP 0041BB52
POP EDI
POP ESI
POP EBX
LEAVE
RET 0C //返回。（仅写出关键部分，其余代码略）


VB6 注册机源码：

Dim User_Name As String
Dim Base, CDQ, Mod_Number, SN_1, SN_2, SN_3, SN_4, SN_5, SN_6, SN_7, SN_8, SN_9, SN_10 As Integer

Private Sub Command1_Click()
About_message = MsgBox("This keygen made by fengma(fengma@2911.net) !", 4096 + vbExclamation, "About...")
End Sub

Private Sub Command2_Click()
If Command2.Caption = "Get now !" Then

If Len(Text1.Text) = 0 Then
message_enter_name = MsgBox("Use a name of at least 1 Char,please !", 4096 + vbExclamation, "Information")
Exit Sub
End If

User_Name = Text1.Text

CDQ = 0

Base = 1

SN_1 = ((Base + 2) Mod 9 + Asc(Mid$(User_Name, 1)) + 8) Mod 11 + 112

Mod_Number = (Base + 9) Mod 5
If Mid$(User_Name, 2) <> "" Then
SN_2 = ((((((Asc(Mid$(User_Name, 2)) + Mod_Number + 44) Xor Mod_Number) - Mod_Number) And 7) Xor Mod_Number) - Mod_Number) + 65
Else
SN_2 = ((((((Mod_Number + 44) Xor Mod_Number) - Mod_Number) And 7) Xor Mod_Number) - Mod_Number) + 65
End If

Mod_Number = (Base + 9) Mod 3
If Mid$(User_Name, 3) <> "" Then
SN_3 = (((((Asc(Mid$(User_Name, 3)) + Mod_Number Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
Else
SN_3 = (((((Mod_Number Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
End If

Mod_Number = ((((((Base + 4) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ)
If Mid$(User_Name, 4) <> "" Then
SN_4 = ((Asc(Mid$(User_Name, 4)) + Mod_Number + 2) Mod 5) + 74
Else
SN_4 = ((Mod_Number + 2) Mod 5) + 74
End If

If Mid$(User_Name, 5) <> "" Then
SN_5 = (Asc(Mid$(User_Name, 5)) + (Base + 3) Mod 6 + 7) Mod 11 + 97
Else
SN_5 = ((Base + 3) Mod 6 + 7) Mod 11 + 97
End If

Mod_Number = (((((Base + 6) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ
If Mid$(User_Name, 6) <> "" Then
SN_6 = ((((((Asc(Mid$(User_Name, 6)) + Mod_Number + 7) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
Else
SN_6 = ((((((Mod_Number + 7) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
End If

Mod_Number = ((((Base + 4) Xor CDQ) - CDQ) And 3) Xor CDQ - CDQ
If Mid$(User_Name, 7) <> "" Then
SN_7 = ((((((Asc(Mid$(User_Name, 7)) + Mod_Number + 1) Xor CDQ) - CDQ) And 1) Xor CDQ) - CDQ) + 109
Else
SN_7 = ((((((Mod_Number + 1) Xor CDQ) - CDQ) And 1) Xor CDQ) - CDQ) + 109
End If

Mod_Number = (Base + 9) Mod 9
If Mid$(User_Name, 8) <> "" Then
SN_8 = ((((((Asc(Mid$(User_Name, 8)) + Mod_Number + 3) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
Else
SN_8 = ((((((Mod_Number + 3) Xor CDQ) - CDQ) And 7) Xor CDQ) - CDQ) + 50
End If

Mod_Number = (((((Base + 1) Xor CDQ) - CDQ) And 3) Xor CDQ) - CDQ
If Mid$(User_Name, 9) <> "" Then
SN_9 = ((((((Asc(Mid$(User_Name, 9)) + Mod_Number + 9) Xor CDQ) - CDQ) And 1) Xor CDQ) - CDQ) + 109
Else
SN_9 = ((((((Mod_Number + 9) Xor CDQ) - CDQ) And 1) Xor CDQ) - CDQ) + 109
End If

Mod_Number = (((((Base + 8) Xor CDQ) - CDQ) And 1) Xor CDQ) - CDQ
If Mid$(User_Name, 10) <> "" Then
SN_10 = ((Asc(Mid$(User_Name, 10)) + Mod_Number + 13) Mod 11) + 80
Else
SN_10 = ((Mod_Number + 13) Mod 11) + 80
End If

Text2.Text = Chr(SN_1) + Chr(SN_2) + Chr(SN_3) + Chr(SN_4) + Chr(SN_5) + Chr(SN_6) + Chr(SN_7) + Chr(SN_8) + Chr(SN_9) + Chr(SN_10)
With Command2
.SetFocus
.Font = Tahoma
.Caption = "Bye !"
End With

Else
End
End If

End Sub

小菜鸟,不足之处请高手指点!

　　　　
　　　　
　　　　　
　　　　
　　　　
　　　　　

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 去除winrar注册框方法

最新文章 比特币病毒怎么破解 比去除winrar注册框方法 华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)通过Access破解MSSQL获得数据

人气排行 华为无线路由器HG522-C破解教程(附超级密码JEB格式文件京东电子书下载和阅读限制破解教UltraISO注册码全集(最新)qq相册密码破解方法去除winrar注册框方法(适应任何版本)怎么用手机破解收费游戏华为无线猫HG522破解如何给软件脱壳基础教程