找回密码
 加入
搜索
查看: 1900|回复: 4

[网络通信] 求个简单的伪装注册码,以前lynfr8曾做过,不过代码丢了。(已经解决)

[复制链接]
发表于 2012-4-9 10:30:48 | 显示全部楼层 |阅读模式
本帖最后由 5735988 于 2012-4-15 01:44 编辑

求个简单的伪装注册码,以前  lynfr8  曾做过,不过代码丢了。

以前他做过一个

ASDF-FSDF-SDFA-AAAA-AASDF

其实AAAA 才是真实注册码。我也忘记他读什么了,

论坛里的加入注册码,太复杂了。希望大神们发个简单的例子。

太复杂的注册码,太多行,看得头晕,也不太想把那么复杂的注册码加入脚本,只要简单就好。
 楼主| 发表于 2012-4-13 23:37:23 | 显示全部楼层
在顶顶吧,总会有人做出来的。一直为注册码头痛
发表于 2012-4-14 00:16:15 | 显示全部楼层

Local $vol_id_hi = StringLeft(Hex(Number(DriveGetSerial("C:\"))),4);;;真实的
Local $code = RandStr(4) & "-" & RandStr(4) & "-" &RandStr(4) & "-" & $vol_id_hi & "-" & RandStr(5)
MsgBox(0, "", $code)

Func RandStr($n)
        Local $ret = ""
        Local $i
        For $i = 1 To $n
                $ret &= Chr(Random(Asc("A"), Asc("Z"), 1))
        Next
        Return $ret
EndFunc

评分

参与人数 1金钱 +20 收起 理由
afan + 20

查看全部评分

 楼主| 发表于 2012-4-14 14:25:55 | 显示全部楼层
回复 3# veket_linux


    DriveGetSerial ( "路径" )


如果有2套机器的系统和分区是一样的,发给别人的软件,等于是多机版
发表于 2012-4-14 16:46:05 | 显示全部楼层
甚是伪注册码
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 07:12 , Processed in 0.127948 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表