|
|
本帖最后由 淡描幸福 于 2024-4-30 16:33 编辑
大家好,这几天没事。又找到新东西玩了！
后处理加密的研究方法！
在这里我举例一个吧！通过类似的方法，这里面可以找到很多的加密方式！
比如 密码输入、绑定电脑名、网卡、电脑序列号、硬盘写次数、网络时间、还可以绑定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"
|
|
发表于 2024-4-30 15:56:39
:}
