【破解日期】 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
--------------------------------------------------------------------------------
【版权声明】 本文纯属技术交流, 转载请注明作者并保持文章的完整, 谢谢!