老文章档案 · 2003 年

《 AceReader V4.5》 破文+注册机源码.TXT

赢政天下 [WINZHENG.COM] · 网络学院 · 2003-08-20 · 作者：人气： · 出处：赢政天下整理收藏）

目标软件： 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

小菜鸟,不足之处请高手指点! （出处：赢政天下整理收藏）

相关文章：

·语音界面2.0算法分析及注册机源码！

·侠客系统修改器1.21破解手记--算法分析

·中文拨号上网计时计费器 V4.12注册算法分析

·ClockWise 3.22e注册码算法分析

·CoolClock V1.02注册算法分析

·Directory Scanner v1.5 注册算法分析

·Disk Chief 1.2 简单注册算法分析

·EffeTech HTTP Sniffer 3.2注册算法分析

·eLib2.01算法分析

·EZ MP3 Recorder 1.15 注册算法分析

相关软件：

→ 特别推荐

→ 热点TOP10

关于我们 |

帮助(？)

| 广告服务 |

版权声明 |

商业合作 |

发展历程 |

加盟我们 |

联系我们

Copyright © 1999-2003

winzheng.com All Rights Reserved.

繁体版:由华琦数码技术提供

Powered

by:MeSky.Net

2003-2004 年，宽带刚刚普及，下载站的文章区是许多人学电脑的第一课堂。
🕰 → 🤖 从那时到现在

当年一篇教程能让一台电脑焕然一新；今天的效率工具换成了 AI。 想知道当下最可靠的 AI 模型怎么选？看 赢政指数——我们用了 28 年的选软件严谨，现在用来评测大模型。

同类老文章：网络学院

主题专题：网络学院：当年的电脑教程 →

档案性质声明：本页为赢政天下（1998-2011）老文章的历史档案复原， 内容反映当年发表时的原貌——包括当年的技术表述、软件版本与观点，部分方法在今天已不适用或不合规，仅作互联网历史记录与研究用途， 不提供任何形式的下载。原始数据经由公共网络存档（Internet Archive）复原。发现问题请联系我们。
← 返回老文章档案 · 软件史档案馆 · 赢政天下站史