后处理加密方法的研究！

淡描幸福

大家好,这几天没事。又找到新东西玩了！

后处理加密的研究方法！

在这里我举例一个吧！通过类似的方法，这里面可以找到很多的加密方式！

比如 密码输入、绑定电脑名、网卡、电脑序列号、硬盘写次数、网络时间、还可以绑定U盘序列号！

一个后处理简单的加密过后，它只是乱码了，无添加其它代码的时候，在别的电脑上面都还能使用。

但就算添加过其它加密后，只能在你自己的电脑能用。有些人还是担心被有心人使用！

这里我把代码贴上。有兴趣的朋友自己拿去玩玩。附件后处理格式误论哈。随意新建的！

我这个是每条程序都要输入密码对比的。你也可以在我这个基础上做改动，一天输出一次。或者其它的方法，这里只是举例哈！大佬误喷！！！！TK，我才刚学习！！！
下面的A01.TCL是U.EXE读取的文本
01.TXT是获取输入的密码，然后通过和“123456“对比，正确则输出，错误则报警！密码大家可以随意改动！
我还加了自动删除A01.TCL和01.TXT自动删除命令！在出错的时候自动删除它们俩个文件！

淡描幸福

2024\04\30

global mom_event_handler_file_name dir a1
set dir [file dirname [file normalize $mom_event_handler_file_name]]

global t1 t2 turn
set t "/A01.tcl"
set t1 [open $dir$t w+]
puts $t1 "entry .entry -textvariable myVariable"
puts $t1 "pack .entry -padx 10 -pady 10"
puts $t1 " "
puts $t1 " "
puts $t1 "button .button -text \"OK\" -command \{"
puts $t1 "set filePath \"D:\\\\01.txt\""
puts $t1 "set t1 \[open \$filePath w\]"
puts $t1 "puts \$t1 \"set a1 \[.entry get\]\""
puts $t1 "close \$t1"
puts $t1 "destroy ."
puts $t1 "\}"
puts $t1 "pack .button -padx 10 -pady 10"
close $t1

exec  $dir/U.exe  "$dir/A01.tcl"
file delete "$dir$t"
source "D:\\01.txt"
    if {$a1 != "123456"} {
file delete "$dir$t"
file delete "D:\\01.txt"
MOM_display_message "密码错误，程序中止！"
MOM_abort "密码错误，程序中止！"
    }
file delete "$dir$t"
file delete "D:\\01.txt"

lv007

咋用的大神

淡描幸福

lv007 发表于 2024-4-30 16:53
咋用的大神

在程序头添加一条定制命令就可以了！

sbtuuvj97

淡描幸福 发表于 2024-4-30 16:54
在程序头添加一条定制命令就可以了！

都用不了

lv007

没有PUI文件怎么弄

龙★大涨

谢谢分享！

树欲静而风不止*

怎么感觉你在说这个

年轻的羔羊

树欲静而风不止* 发表于 2024-5-1 13:13
怎么感觉你在说这个

666  你这个更强

liuxing888888

6666666666

年轻的勇士

感谢大佬分享