[原创]XXX网络电视 1.0 注册算法分析+VB注册机源码-软件逆向-看雪-安全社区|安全招聘|kanxue.com

[原创]XXX网络电视 1.0 注册算法分析+VB注册机源码

发表于: 2006-10-16 20:00 7136

[原创]XXX网络电视 1.0 注册算法分析+VB注册机源码

冷血书生

2006-10-16 20:00

7136

【破解日期】 2006年10月16日
【破解作者】冷血书生
【作者邮箱】暂没
【作者主页】 hxxp://www.126sohu.com
【使用工具】 OD
【破解平台】 Win9x/NT/2000/XP
【软件名称】 3hi网络电视 1.0
【下载地址】 http://www.onlinedown.net/soft/53037.htm
【软件简介】功能简介:提供大量的网络电视节目,可免费在线观看。(频道列表定期更新,可保证丰富的节目资源)
操作方法:运行程序后，在频道列表中选择节目,双击或点“立即播放”按钮即可播放。点“更新频道列表”按钮可以下载最新的节目频道列表。
注意事项:系统需要安装 Windows Media Player 9 及以上版本播放器。宽带网络速率最好保证在 512k 以上。

【软件大小】 1553KB
【加壳方式】无
【破解声明】我是一只小菜鸟，偶得一点心得，愿与大家分享：）
--------------------------------------------------------------------------------
【破解内容】

00418E32 mov ecx,3hi网络?00433028             ; 计算机名
00418E37 call esi
00418E39 mov edi,dword ptr ds:[<&MSVBVM60.__vb>; MSVBVM60.__vbaFreeVar
00418E3F lea ecx,dword ptr ss:[ebp-2C]
00418E42 call edi
00418E44 lea ecx,dword ptr ss:[ebp-2C]
00418E47 push 0
00418E49 push ecx
00418E4A call dword ptr ds:[<&MSVBVM60.#608>]  ; MSVBVM60.rtcVarBstrFromAnsi
00418E50 push 0
00418E52 push -1
00418E54 push 1
00418E56 lea edx,dword ptr ss:[ebp-2C]
00418E59 push 3hi网络?00405880
00418E5E push edx
00418E5F lea eax,dword ptr ss:[ebp-1C]
00418E62 push eax
00418E63 call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrVarVal
00418E69 mov ecx,dword ptr ds:[433028]       ; 计算机名
00418E6F push eax
00418E70 push ecx
00418E71 call dword ptr ds:[<&MSVBVM60.#712>]  ; MSVBVM60.rtcReplace
00418E77 mov edx,eax
00418E79 mov ecx,3hi网络?00433028
00418E7E call esi
00418E80 lea ecx,dword ptr ss:[ebp-1C]
00418E83 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeStr
00418E89 lea ecx,dword ptr ss:[ebp-2C]
00418E8C call edi
00418E8E lea edx,dword ptr ss:[ebp-4C]
00418E91 lea eax,dword ptr ss:[ebp-2C]
00418E94 push edx
00418E95 push eax
00418E96 mov dword ptr ss:[ebp-44],3hi网络?00433>
00418E9D mov dword ptr ss:[ebp-4C],4008
00418EA4 call dword ptr ds:[<&MSVBVM60.#520>]  ; MSVBVM60.rtcTrimVar
00418EAA lea ecx,dword ptr ss:[ebp-2C]
00418EAD push ecx
00418EAE call ebx
00418EB0 mov edx,eax
00418EB2 mov ecx,3hi网络?00433028
00418EB7 call esi
00418EB9 lea ecx,dword ptr ss:[ebp-2C]
00418EBC call edi
00418EBE lea edx,dword ptr ss:[ebp-4C]
00418EC1 lea eax,dword ptr ss:[ebp-2C]
00418EC4 push edx
00418EC5 push eax
00418EC6 mov dword ptr ss:[ebp-44],3hi网络?00433>
00418ECD mov dword ptr ss:[ebp-4C],4008
00418ED4 call dword ptr ds:[<&MSVBVM60.#518>]  ; MSVBVM60.rtcLowerCaseVar
00418EDA lea ecx,dword ptr ss:[ebp-2C]       /// 将计算机名大写转小写
00418EDD push ecx
00418EDE call ebx
00418EE0 mov edx,eax                         ;
00418EE2 mov ecx,3hi网络?00433028
00418EE7 call esi
00418EE9 lea ecx,dword ptr ss:[ebp-2C]
00418EEC call edi
00418EEE mov edx,3hi网络?004062EC
00418EF3 lea ecx,dword ptr ss:[ebp-18]
00418EF6 call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrCopy
00418EFC mov edx,dword ptr ds:[433028]
00418F02 push edx
00418F03 call dword ptr ds:[<&MSVBVM60.__vbaLe>; MSVBVM60.__vbaLenBstr
00418F09 mov edi,eax
00418F0B test edi,edi
00418F0D jle 3hi网络?00418FB2
00418F13 lea eax,dword ptr ss:[ebp-2C]
00418F16 lea ecx,dword ptr ss:[ebp-4C]
00418F19 push eax
00418F1A push edi
00418F1B lea edx,dword ptr ss:[ebp-3C]
00418F1E push ecx
00418F1F push edx
00418F20 mov dword ptr ss:[ebp-24],1
00418F27 mov dword ptr ss:[ebp-2C],2
00418F2E mov dword ptr ss:[ebp-44],3hi网络?00433>
00418F35 mov dword ptr ss:[ebp-4C],4008
00418F3C call dword ptr ds:[<&MSVBVM60.#632>]  ; MSVBVM60.rtcMidCharVar
00418F42 lea eax,dword ptr ss:[ebp-3C]
00418F45 lea ecx,dword ptr ss:[ebp-1C]
00418F48 push eax
00418F49 push ecx
00418F4A call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrVarVal
00418F50 push eax
00418F51 call dword ptr ds:[<&MSVBVM60.#516>]  ; MSVBVM60.rtcAnsiValueBstr
00418F57 mov ecx,eax                         ; 倒取计算机名ASCII值
00418F59 call dword ptr ds:[<&MSVBVM60.__vbaI2>; MSVBVM60.__vbaI2Abs
00418F5F mov edx,dword ptr ss:[ebp-18]
00418F62 push edx
00418F63 movsx ebx,ax                         ;
00418F66 call dword ptr ds:[<&MSVBVM60.__vbaI4>; MSVBVM60.__vbaI4Str
00418F6C add ebx,eax                         ; 累加
00418F6E jo 3hi网络?004190BD
00418F74 push ebx
00418F75 call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrI4
00418F7B mov edx,eax                         ;
00418F7D lea ecx,dword ptr ss:[ebp-18]
00418F80 call esi
00418F82 lea ecx,dword ptr ss:[ebp-1C]
00418F85 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeStr
00418F8B lea eax,dword ptr ss:[ebp-3C]
00418F8E lea ecx,dword ptr ss:[ebp-2C]
00418F91 push eax
00418F92 push ecx
00418F93 push 2
00418F95 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeVarList
00418F9B mov ebx,dword ptr ds:[<&MSVBVM60.__vb>; MSVBVM60.__vbaStrVarMove
00418FA1 add esp,0C
00418FA4 sub edi,1
00418FA7 jo 3hi网络?004190BD
00418FAD jmp 3hi网络?00418F0B                   ; 循环计算
00418FB2 mov edx,dword ptr ss:[ebp-18]       ; 计算结果
00418FB5 mov edi,dword ptr ds:[<&MSVBVM60.__vb>; MSVBVM60.__vbaStrCat
00418FBB push edx
00418FBC push 3hi网络?004062F4                ; UNICODE "061011" /// 固定字符串
00418FC1 call edi
00418FC3 mov dword ptr ss:[ebp-24],eax       ; 计算结果与固定字符串连接
00418FC6 lea eax,dword ptr ss:[ebp-2C]
00418FC9 push 6
00418FCB lea ecx,dword ptr ss:[ebp-3C]
00418FCE push eax
00418FCF push ecx
00418FD0 mov dword ptr ss:[ebp-2C],8
00418FD7 call dword ptr ds:[<&MSVBVM60.#617>]  ; MSVBVM60.rtcLeftCharVar
00418FDD lea edx,dword ptr ss:[ebp-3C]
00418FE0 push edx
00418FE1 call ebx
00418FE3 mov edx,eax                         ; 取前六位
00418FE5 lea ecx,dword ptr ss:[ebp-18]
00418FE8 call esi
00418FEA lea eax,dword ptr ss:[ebp-3C]
00418FED lea ecx,dword ptr ss:[ebp-2C]
00418FF0 push eax
00418FF1 push ecx
00418FF2 push 2
00418FF4 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeVarList
00418FFA mov edx,dword ptr ss:[ebp-18]       ;
00418FFD add esp,0C
00419000 push edx
00419001 call dword ptr ds:[<&MSVBVM60.__vbaI4>; MSVBVM60.__vbaI4Str
00419007 mov dword ptr ss:[ebp-24],eax       ; 转为16进制
0041900A lea eax,dword ptr ss:[ebp-2C]
0041900D lea ecx,dword ptr ss:[ebp-3C]
00419010 push eax
00419011 push ecx
00419012 mov dword ptr ss:[ebp-2C],3
00419019 call dword ptr ds:[<&MSVBVM60.#573>]  ; MSVBVM60.rtcHexVarFromVar
0041901F lea edx,dword ptr ss:[ebp-3C]
00419022 push edx
00419023 call ebx
00419025 mov edx,eax                         ;
00419027 lea ecx,dword ptr ss:[ebp-18]
0041902A call esi
0041902C lea eax,dword ptr ss:[ebp-3C]
0041902F lea ecx,dword ptr ss:[ebp-2C]
00419032 push eax
00419033 push ecx
00419034 push 2
00419036 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeVarList
0041903C mov edx,dword ptr ss:[ebp-18]
0041903F add esp,0C
00419042 push 3hi网络?00406308                ; UNICODE "TV" /// 固定字符串
00419047 push edx
00419048 call edi                               ; 固定字符串TV与前面的结果连接
0041904A mov edx,eax
0041904C lea ecx,dword ptr ss:[ebp-18]
0041904F call esi
00419051 mov eax,dword ptr ss:[ebp+8]
00419054 mov edx,dword ptr ss:[ebp-18]
00419057 mov ecx,dword ptr ds:[eax]
00419059 push ecx
0041905A push edx
0041905B call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrCmp  /// 经典真假码比较
00419061 test eax,eax
00419063 jnz short 3hi网络?0041907C
00419065 mov edx,dword ptr ss:[ebp-18]
00419068 mov ecx,3hi网络?0043302C
0041906D call dword ptr ds:[<&MSVBVM60.__vbaSt>; MSVBVM60.__vbaStrCopy
00419073 mov word ptr ds:[433030],0FFFF
0041907C push 3hi网络?004190AA                ; ASCII "?疬^d?"
00419081 jmp short 3hi网络?004190A0
00419083 lea ecx,dword ptr ss:[ebp-1C]
00419086 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeStr
0041908C lea eax,dword ptr ss:[ebp-3C]
0041908F lea ecx,dword ptr ss:[ebp-2C]
00419092 push eax
00419093 push ecx
00419094 push 2
00419096 call dword ptr ds:[<&MSVBVM60.__vbaFr>; MSVBVM60.__vbaFreeVarList
0041909C add esp,0C
0041909F retn

////////////////////////////////////////////////////////////////////////////////////////////

VB注册机源码:

Private Sub Command1_Click()
Dim a, b, c As String
Dim i, sum As Integer
a = StrReverse(Text1.Text)
Length = Len(LCase(a))
For i = 1 To Length
sum = sum + Asc(Mid(LCase(a), i, 1))
Next i
b = sum & "061011"
b = Hex(Mid(b, 1, 6))
c = "TV" & b
Text2.Text = c
End Sub
--------------------------------------------------------------------------------
【版权声明】本文纯属技术交流, 转载请注明作者并保持文章的完整, 谢谢!

登录后可查看完整内容

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

收藏・1

免费・7

支持

最新回复 (6)
naitai 雪币： 206 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 21 回帖 110 粉丝 0 关注私信	naitai 2 楼尝尝鲜!!! 2006-10-16 20:58 0
网游难民雪币： 309 活跃值： (15) 能力值： ( LV9，RANK：610 ) 在线值：发帖 20 回帖 181 粉丝 1 关注私信	网游难民 15 3 楼偶把这个也写出来了,正准备发呢~~ 被你抢先了一步还偶一个精华加一篇D.4s申请~~ 2006-10-16 21:38 0
yunfeng 雪币： 269 活跃值： (51) 能力值： ( LV4，RANK：50 ) 在线值：发帖 3 回帖 489 粉丝 0 关注私信	yunfeng 1 4 楼好文章,学习收藏了. 2006-10-16 21:47 0
KAN 雪币： 263 活跃值： (10) 能力值： ( LV9，RANK：250 ) 在线值：发帖 11 回帖 589 粉丝 0 关注私信	KAN 6 5 楼最初由网游难民* 发布* 偶把这个也写出来了,正准备发呢~~ 被你抢先了一步还偶一个精华加一篇D.4s申请~~ 汗啊，一篇又一篇，我就连续两天都爆破不了一个软件，给它卡死我了 2006-10-16 22:59 0
skyege 雪币： 229 活跃值： (70) 能力值： ( LV6，RANK：90 ) 在线值：发帖 10 回帖 555 粉丝 0 关注私信	skyege 2 6 楼老大终于会编程了 2006-10-17 18:33 0
zhuwg 雪币： 451 活跃值： (78) 能力值： ( LV12，RANK：470 ) 在线值：发帖 40 回帖 739 粉丝 7 关注私信	zhuwg 11 7 楼学习收藏了不错 2006-10-22 09:52 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

冷血书生

发帖

1135

回帖

1140

RANK

关注

私信

他的文章

关于我们

联系我们

企业服务

看雪公众号

最新回复 (6)
naitai 雪币： 206 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 21 回帖 110 粉丝 0 关注私信	naitai 2 楼尝尝鲜!!! 2006-10-16 20:58 0
网游难民雪币： 309 活跃值： (15) 能力值： ( LV9，RANK：610 ) 在线值：发帖 20 回帖 181 粉丝 1 关注私信	网游难民 15 3 楼偶把这个也写出来了,正准备发呢~~ 被你抢先了一步还偶一个精华加一篇D.4s申请~~ 2006-10-16 21:38 0
yunfeng 雪币： 269 活跃值： (51) 能力值： ( LV4，RANK：50 ) 在线值：发帖 3 回帖 489 粉丝 0 关注私信	yunfeng 1 4 楼好文章,学习收藏了. 2006-10-16 21:47 0
KAN 雪币： 263 活跃值： (10) 能力值： ( LV9，RANK：250 ) 在线值：发帖 11 回帖 589 粉丝 0 关注私信	KAN 6 5 楼最初由网游难民* 发布* 偶把这个也写出来了,正准备发呢~~ 被你抢先了一步还偶一个精华加一篇D.4s申请~~ 汗啊，一篇又一篇，我就连续两天都爆破不了一个软件，给它卡死我了 2006-10-16 22:59 0
skyege 雪币： 229 活跃值： (70) 能力值： ( LV6，RANK：90 ) 在线值：发帖 10 回帖 555 粉丝 0 关注私信	skyege 2 6 楼老大终于会编程了 2006-10-17 18:33 0
zhuwg 雪币： 451 活跃值： (78) 能力值： ( LV12，RANK：470 ) 在线值：发帖 40 回帖 739 粉丝 7 关注私信	zhuwg 11 7 楼学习收藏了不错 2006-10-22 09:52 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复