明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1092|回复: 5

[讨论] 新手小白求救,如何跳过弹窗,注册

[复制链接]
发表于 2024-4-4 18:49:27 | 显示全部楼层 |阅读模式
1.新手小白,想把原程序的弹窗去掉,直接程序里面跳过输入注册码部分, 研究了半天没研究明白 求大神指点
原程序是 弹窗,获取mac地址, 然后输入 注册码  12345678   
(DEFUN REGISTER( / ADDRESS S_N ID SDT FLAG SN1 SN2 SN3 REGOK )  (VL-LOAD-COM ) (DEFUN GETDATA() (setq ADDRESS (GET_TILE "mac" )) (setq  S_N (GET_TILE "sn" ))  ) (setq STD 0) (setq FLAG T) (setq SN1 nil) (setq SN2 nil) (setq SN3 nil) (setq ADDRESS "00-00-00-00-00-00") (setq S_N "") (setq ID (LOAD_DIALOG "Reg.DCL" ))  (if (< ID 0 ) (PROGN    (if (= MENU-FILE-ROOT nil ) (PROGN   (GETROOT ) )) (setq ID (LOAD_DIALOG (STRCAT MENU-FILE-ROOT "\\fas\\Reg.DCL" ) ))  (if (< ID 0 ) (PROGN   (PRINC "load_dialog reg.dcl fail ,exit" ) )) )) (while (and (AND FLAG (NOT (< ID 0 ) ) )  )  (if (NOT (NEW_DIALOG "reg" ID ) ) (PROGN   (PRINC "open reg.dcl fail ,exit" ) )) (SET_TILE "mac" ADDRESS ) (SET_TILE "sn" S_N ) (ACTION_TILE "pick" "(set_tile \"mac\" (getmac))" ) (ACTION_TILE "accept" "(getdata) (done_dialog 1)" ) (ACTION_TILE "cancel" "(done_dialog -1)" ) (setq SDT (START_DIALOG ))  (if (> SDT 0 ) (PROGN    (if (= ADDRESS "00-00-00-00-00-00" ) (PROGN   (ALERT "mac address is wrong,reget it" ) )(PROGN   (setq SN1 (CHMAC ADDRESS )) (setq SN2 (JGSN S_N ))  (if (= SN2 nil ) (PROGN   (ALERT "S/N is wrong, reput it" ) )(PROGN   (setq SN2 (STRCAT SN2 (OVERDUEDATE S_N ) )) )) ))  (if (AND (/= SN1 nil ) (/= SN2 nil ) ) (PROGN   (setq SN3 (CREATE_SN SN1 SN2 "add" )) (setq REGOK (WT_REG SN3 S_N ))  (if REGOK (PROGN   (setq FLAG nil) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\AutoMenu" "regcount" REGOK ) (ALERT "register successfully" ) )) )) )(PROGN   (setq FLAG nil) )) ) (UNLOAD_DIALOG ID ) REGOK  )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 -2 收起 理由
xyp1964 -2 居然公开玩PJ

查看全部评分

发表于 2024-4-4 19:29:38 | 显示全部楼层
把这个代码全部去掉
发表于 2024-4-4 21:50:33 | 显示全部楼层
不会去除注册信息,你这代码怎么反编译出来的;要是想把自己的程序里面加入注册机代码,这段代码里缺少了DCL文件。
发表于 2024-4-5 12:23:32 | 显示全部楼层
建议永久封号
发表于 2024-4-5 16:59:00 | 显示全部楼层
跳过简单,直接去注册表里写这个REGOK的键值呗.
只不过鬼知道这个REGOK人家原来是怎么实现的
发表于 2024-4-5 18:12:11 | 显示全部楼层
小白反编译,还是让他慢慢琢磨比较好,毕竟反编译省下来的时间,还得需要琢磨给还回去
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 19:26 , Processed in 0.176022 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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