求个简单的伪装注册码，以前lynfr8曾做过，不过代码丢了。(已经解决)

5735988 · 发表于 2012-4-9 10:30:48

本帖最后由 5735988 于 2012-4-15 01:44 编辑

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

以前他做过一个

ASDF-FSDF-SDFA-AAAA-AASDF

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

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

太复杂的注册码，太多行，看得头晕，也不太想把那么复杂的注册码加入脚本，只要简单就好。

5735988 · 发表于 2012-4-13 23:37:23

在顶顶吧，总会有人做出来的。一直为注册码头痛

veket_linux · 发表于 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

5735988 · 发表于 2012-4-14 14:25:55

回复 3# veket_linux

DriveGetSerial ( "路径" )

如果有2套机器的系统和分区是一样的，发给别人的软件，等于是多机版

haijie1223 · 发表于 2012-4-14 16:46:05

甚是伪注册码

		自动登录	找回密码
密码			加入

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

相关帖子

评分