【原创】破解光影魔术手0.24注册机(VB)源代码

原创 2007年09月13日 16:52:00

【原创】通过编译,运行环境WINXP HOME + VB

做人要厚道,转贴请注明出处。

声明:仅供学习交流使用,光影魔术手版本0.24

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Dim mac_value As String

Private Type NCB
     ncb_command As Byte
     ncb_retcode As Byte
     ncb_lsn As Byte
     ncb_num As Byte
     ncb_buffer As Long
     ncb_length As Integer
     ncb_callname As String * NCBNAMSZ
     ncb_name As String * NCBNAMSZ
     ncb_rto As Byte
     ncb_sto As Byte
     ncb_post As Long
     ncb_lana_num As Byte
     ncb_cmd_cplt As Byte
     ncb_reserve(9) As Byte ' Reserved, must be 0
     ncb_event As Long
End Type

Private Type ADAPTER_STATUS
     adapter_address(5) As Byte
     rev_major As Byte
     reserved0 As Byte
     adapter_type As Byte
     rev_minor As Byte
     duration As Integer
     frmr_recv As Integer
     frmr_xmit As Integer
     iframe_recv_err As Integer
     xmit_aborts As Integer
     xmit_success As Long
     recv_success As Long
     iframe_xmit_err As Integer
     recv_buff_unavail As Integer
     t1_timeouts As Integer
     ti_timeouts As Integer
     Reserved1 As Long
     free_ncbs As Integer
     max_cfg_ncbs As Integer
     max_ncbs As Integer
     xmit_buf_unavail As Integer
     max_dgram_size As Integer
     pending_sess As Integer
     max_cfg_sess As Integer
     max_sess As Integer
     max_sess_pkt_size As Integer
     name_count As Integer
End Type

Private Type NAME_BUFFER
     name As String * NCBNAMSZ
     name_num As Integer
     name_flags As Integer
End Type

Private Type ASTAT
     adapt As ADAPTER_STATUS
     NameBuff(30) As NAME_BUFFER
End Type

Private Declare Function Netbios Lib "netapi32.dll" _
(pncb As NCB) As Byte

Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, _
ByVal cbCopy As Long)

Private Declare Function GetProcessHeap Lib "kernel32" () _
As Long

Private Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long

Private Declare Function HeapFree Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) _
As Long

Private Function EthernetAddress(LanaNumber As Long) _
As String

     Dim udtNCB          As NCB
     Dim bytResponse As Byte
     Dim udtASTAT        As ASTAT
     Dim udtTempASTAT As ASTAT
     Dim lngASTAT        As Long
     Dim strOut          As String
     Dim x               As Integer

     udtNCB.ncb_command = NCBRESET
     bytResponse = Netbios(udtNCB)
     udtNCB.ncb_command = NCBASTAT
     udtNCB.ncb_lana_num = LanaNumber
     udtNCB.ncb_callname = "* "
     udtNCB.ncb_length = Len(udtASTAT)
     lngASTAT = HeapAlloc(GetProcessHeap(), _
HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, udtNCB.ncb_length)

     strOut = ""
     If lngASTAT Then
       udtNCB.ncb_buffer = lngASTAT
       bytResponse = Netbios(udtNCB)
       CopyMemory udtASTAT, udtNCB.ncb_buffer, Len(udtASTAT)
        With udtASTAT.adapt
         For x = 0 To 5
           strOut = strOut & Right$("00" & Hex$(.adapter_address(x)), 2)
         Next x
       End With
       HeapFree GetProcessHeap(), 0, lngASTAT
     End If
     EthernetAddress = strOut
     mac_value = EthernetAddress
  
End Function

'text1为第几张网卡,默认为0

'text2为用户名

'text3为注册码

Private Sub Command1_Click()            '生成注册
Dim i As Integer
Dim name As String
Dim name_asc, name_value As Integer
Dim name_h, name_l As Integer
Dim mac_value_, mac_value_l As Integer
Dim sum As Integer
Dim z As Integer
Dim zz As String
name = Trim(Text2.Text)
For i = 1 To Len(name) - 1
      name_asc = Asc(Mid(name, i, 1))
      name_h = (name_asc And 240)
      name_l = name_asc And 15
      mac_value_ = Asc(Mid(mac_value, i, 1))
      mac_value_l = mac_value_ And 15
      name_value = name_h + (name_l Xor mac_value_l)
      sum = sum + name_value
Next i

For i = 1 To 18                   '填充不进行比较的前18位
z = Int(9 * Rnd) + 1
zz = zz & z
Next i

sum = sum * Len(name)

If sum > 9999 Then
     sum = sum Mod 10000
Elseif sum <9000 then
sum = sum + 1000
End If

Text3.Text = zz & sum
End Sub

Private Sub Command2_Click() '推出按钮
End
End Sub

Private Sub Form_Load()
Call EthernetAddress(Text1.Text)          '获取网卡的MAC地址
End Sub

<script type="text/javascript"><!-- google_ad_client = "pub-0168042829314748"; google_ad_width = 200; google_ad_height = 200; google_ad_format = "200x200_as"; google_cpa_choice = "CAEaCA5tpVSPav0BMABQNFCuAQ"; google_color_border = "336699"; google_color_bg = "FFFFFF"; google_color_link = "0000FF"; google_color_text = "000000"; google_color_url = "008000"; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

光影魔术手2014 v4.4.1.304 官方免费版

光影魔术手2014 v4.4.1.304 官方免费版 软件大小:19.1MB 软件语言:简体中文 软件性质:常用软件 软件授权:官方版 更新时间:2014-04-29 应用平台:/Win8...
  • u013772860
  • u013772860
  • 2014年04月30日 16:24
  • 498

【风宇冲】Unity3D教程宝典之光影烘焙:第一讲光影烘焙

http://blog.sina.com.cn/s/blog_471132920101etyp.html 原创文章如需转载请注明:转载自风宇冲Unity3D教程学院        ...
  • chenluwolf
  • chenluwolf
  • 2014年03月11日 15:27
  • 1943

金蝶K3-WISE V13.1加密狗驱动-50用户补丁

金蝶K3 WISE——全面应用、完整协同、敏捷制造 金蝶K3 WISE,中小企业管理系统,融合先进管理模式与业务模型的中小企业ERP,财务管理、人力资源管理、客户关系管理等多项功...
  • mfsuncom
  • mfsuncom
  • 2016年05月26日 11:39
  • 4621

魔术会说话的王牌的原理

写本篇的初衷源于对网易公开课上一个数学魔术的破解,其实也不难,非常有趣。视频课程地址视频看完了,是不是神奇呢?其实只是运用了基本的代数原理而已。在讲原理之前,有几处细节要特别说明下,这也是下面数学分析...
  • pony_maggie
  • pony_maggie
  • 2016年06月12日 23:01
  • 1407

KIS专业版V13.0加密狗驱动补丁

新增功能介绍:   1、 会计档案——做你、我、她的管理专家   a) 公共档案库:产品部联合会计专家,全力打造行业知识库,提供标准会计科目体系、凭证模板库及管理报表模板。只要是专业版用户,都可直...
  • mfsuncom
  • mfsuncom
  • 2016年05月26日 11:46
  • 2526

专业的格式转换工具pdf2cad发布v11,支持当前所有的Windows和Mac操作系统

pdf2cad是一款可将PDF文件转换成CAD格式的转换工具。仅需几秒钟,便可将所提取的准确图形在常规的CAD工具中进行修改,如AutoCAD, TurboCAD和MicroStation。pdf2c...
  • Harriet666
  • Harriet666
  • 2017年04月11日 16:17
  • 582

光影魔术手-批量-修改图片大小-小于1000k

光影魔术手(V4.4.1)批量修改图片大小小于1000k 注意点:光影魔术手版本:4.4.1. 其他版本不保证操作正确。 操作系统:win7-64位 最后在选择“是否覆盖原文件”时,做好备份,小心误操...
  • u013357165
  • u013357165
  • 2017年11月29日 19:55
  • 54

[乐意黎转载]使用光影魔术手处理照片步骤

下载照片处理软件(光影魔术手) 1、从指定网址下载并安装图像处理软件“光影魔术手”,准备好原始证件照片文件。 2、运行“光影魔术手”,点击工具栏“打开”按钮打开原始照片文件: 3...
  • aerchi
  • aerchi
  • 2017年03月25日 19:18
  • 249

Unity 游戏脚本解密

现在用Unity的游戏大多都加密了Assembly-CSharp.dll, 这篇文章给出一个通用的解密方法。...
  • yy405145590
  • yy405145590
  • 2016年04月12日 16:48
  • 2457

css光影一闪而过 css 色泽效果

先看这个css效果。不知道什么时候,这样的css效果小小流行了一把。最早我是在京东看见的。今天在唯品会上面又看见了。 于是按捺不住,我自己也动手写了一个。保存到自己的css库里面,方便日后调用! 1...
  • u011456552
  • u011456552
  • 2016年12月08日 19:30
  • 1127
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:【原创】破解光影魔术手0.24注册机(VB)源代码
举报原因:
原因补充:

(最多只允许输入30个字)