zpmc123 发表于 2017-4-8 20:51:06

每次看到高手们对决,我就静静的看,因为我什么也不懂!{:face (84):}

sdlyfjx 发表于 2017-4-10 09:45:03

回复 87# tubaba


    原来如此!!!!!!!如果能手动指定安装目录就更好了~

sdlyfjx 发表于 2017-4-10 09:52:26

回复 106# zpmc123


    那你应该中间插一杠子~{:face (355):}

zpmc123 发表于 2017-4-10 10:13:08

回复 64# tubaba


    tubaba好兄弟能不能把注册的功能做个教程分享一下让更多人学习学习

sdlyfjx 发表于 2017-4-10 14:38:28

回复 109# zpmc123


    前面几楼里面不是有说到注册原理的~{:face (411):}

sdlyfjx 发表于 2017-4-10 14:39:23

土叭叭~求注册码哇
{:face (356):}
ST500DM002-1BD142Z6ER83FMKC67BFEBFBFF000506E3

tubaba 发表于 2017-4-10 15:18:24

回复 111# sdlyfjx

YR3J3-GCW8F-BYDV4-D46B7-Y4GRH


取硬盘序列号,我在坛子上发过贴,你搜一下便是
   
这是以前写的转换win7 KEY函数,从网上流传的VBS脚本转化而来
Func _ConvertToKey($regKey)
        Local $ProductKey
        Local $KeyString = StringTrimLeft($regKey, 2)
        Local Const $KeyOffset = 53
        Local $PossibleChars = "BCDFGHJKMPQRTVWXY2346789"
        Local $i = 28, $j, $Cur, $LeftString, $RightString
        While $i >= 0
                $j = 14
                $Cur = 0
                While $j >= 0
                        $LeftString = ''
                        $RightString = ''
                        $Cur = $Cur * 256
                        $Cur = Dec(StringMid($KeyString, 2 * ($j + $KeyOffset) - 1, 2)) + $Cur ;取第$j + $KeyOffset个字节,转换十进制与$Cur相加
                        $LeftString = StringLeft($KeyString, 2 * ($j + $KeyOffset) - 1 - 1);取字符串左边$j + $KeyOffset -1 个字符
                        $RightString = StringTrimLeft($KeyString, StringLen($LeftString) + 2) ;删除字符串左边$LeftString长度+2的字符串
                        $KeyString = $LeftString & Hex(Int($Cur / 24), 2) & $RightString;组合成新字符串,等价于用计算出的新字节内容替换相同位置的字节
                        $Cur = Mod($Cur, 24)
                        $j = $j - 1
                WEnd
                $i = $i - 1
                $ProductKey = StringMid($PossibleChars, $Cur + 1, 1) & $ProductKey
                If Mod(29 - $i, 6) = 0 And ($i <> -1) Then
                        $i = $i - 1
                        $ProductKey = '-' & $ProductKey
                EndIf
        WEnd
        Return SetError(0, 0, $ProductKey)
EndFunc   ;==>_ConvertToKey

当然,这只是告诉你原理,au3encode的注册码计算肯定是跟上面不一样的

取硬盘,CPU相关信息组成特征字符串,计算注册码,然后用可逆加密方法保存在注册表中,所以你在注册表中HKEY_LOCAL_MACHINE\SOFTWARE\Au3Encode看到的只是一串16进制数字,并不是我给你的注册码

sdlyfjx 发表于 2017-4-11 08:50:14

回复 112# tubaba


    MARK有意思~

menfan1 发表于 2017-4-11 09:07:54

支持继续更新工具哈.

redapple2008 发表于 2017-4-11 11:03:42

回复 1# tubaba


   能不能把注册功能去掉,你给我的注册码不正确。

redapple2008 发表于 2017-4-11 11:13:07

ST500DM002-1BD142S3T2HSSZKC66BFEBFBFF000306C3

tubaba 发表于 2017-4-11 14:27:45

回复 116# redapple2008


ST500DM002-1BD142S3T2HSSZKC66BFCBFBFF000306C3
是PR8JR-FR2QT-M4BTK-3R2KG-MRC33

ST500DM002-1BD142S3T2HSSZKC66BFEBFBFF000306C3
是GM8M6-X2H34-FM38Y-KVGFC-JGJMC

你二次报告的机器码不一样,已对程序做兼容性处理,如果注册后一段时间跳 出未注册,把第二个输入
请下载20170411最新版本才支持此功能

tubaba 发表于 2017-4-11 19:36:44

本帖最后由 tubaba 于 2017-4-11 19:45 编辑

回复 117# tubaba


    新功能展示,还在测试之中,如果你的程序在运行中突然发生了错误,而这个错误又不是每次做这个操作就会发生,你会怎么办?
如下图,行号是15376,但实际在源代码中,这个错误应该是在24958行.很多时候这个行号跟实际是不相附的,因为解释器会把空行,注释行等忽略.给查错造成很大的麻烦.
这个错误是我故意造成的,去访问一个超出范围的数组变量


试用下图的功能,也许一切就会变得简单.

131738 发表于 2017-4-19 20:34:42

回复 118# tubaba

官网有个代码扫描/加密的源码帖子,你看过吗.............

tubaba 发表于 2017-4-21 08:56:43

很少去官网,访问速度太慢了,你说的那个贴子要么发个名称或者链接我看看?
页: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17
查看完整版本: ,Au3Encode-代码整合混淆- 所有附件均已删除,请勿再顶此贴