[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 【讨论】批处理实现的一种数字密码加密方法

本帖最后由 pcl_test 于 2016-11-2 21:46 编辑

哈哈
这个是很老的了
我想到一个很不错的批处理机密方法。保证是前人没有研究和写过的(太自恋了点。。。汗。。)
大家说说自己使用什么方法。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

在前面+128个 $$a
在前面+个记事本不能识别的乱码
用批处理里的set截取系统变量字符
把批处理命令写入到一个任意后缀的文件 “test.txt” 用 cmd<test.txt 可以执行 test.txt 里的内容 听说不被杀软查杀
能把你的方法发出来下吗?

TOP

多搞点跳转 把盗用代码的头都看晕

TOP

对这个兴趣不大,没有研究过,代码从来不加密
不大可能的事也许今天实现,根本不可能的事也许明天会实现

TOP

你随怎么加密 只要不转换成exe文件 用word很容易就可以打开

TOP

代码如下
大家猜密码吧。。。
哈哈。。
  1. @echo off&setlocal enabledelayedexpansion&title CrackMe
  2. ::code by Novaa @bbs.bathome.net
  3. set "Table=echo\&echo\"
  4. :Menu
  5. cls&%Table%
  6. echo 此批处理以加密.
  7. %Table%
  8. set /p sPwd= 请输入密码:
  9. set /a sPwd=!sPwd!+1111111
  10. set sPwd_1=!sPwd:~0,1!
  11. set sPwd_2=!sPwd:~1!
  12. for /f "tokens=2 delims=-" %%i in ("%date%") do (set str=%%i&set "sAdd=!str:~0,1!")
  13. set /a sPwd_1=!sPwd_1!+!sAdd!
  14. set /a sPwd_2=!sPwd_2!*2
  15. set /a sPwd=!sPwd_2!*10+!sPwd_1!
  16. call :Change
  17. call :Set
  18. set /a sPwd=!sPwd!-1
  19. for /l %%i in (1;1;7) do (set /a sPwd=!sPwd!+!sPwd_%%i!)
  20. call :Next
  21. call :Change_3 sPwd_1 sPwd_2
  22. call :Again !sPwd!
  23. if "!sPwd!"=="4025" (goto :Pass) else (goto :Menu)
  24. :Change
  25. set sPwd_1=!sPwd:~0,1!
  26. set sPwd_2=!sPwd:~1,1!
  27. set sPwd_3=!sPwd:~2,1!
  28. set sPwd_4=!sPwd:~3,1!
  29. set sPwd_5=!sPwd:~4,1!
  30. set sPwd_6=!sPwd:~5,1!
  31. set sPwd_7=!sPwd:~6,1!
  32. for,/l,%%i,in (1=1=7) do (
  33. call :Change_1 !sPwd_%%i!
  34. )
  35. goto :eof
  36. :Change_1
  37. for /l %%i in (7;-1;1) do (
  38. set /a sPwd=%1+%%i
  39. )
  40. goto :eof
  41. :Set
  42. for,/l,%%i,in,(1,1,7) do (
  43. for,/l,%%j in (1,1,%%i) do (
  44. set /a sPwd_%%i=!sPwd_%%i!*10
  45. )
  46. )
  47. goto :eof
  48. :Next
  49. set sPwd_1=!sPwd:~0,4!
  50. set sPwd_2=!sPwd:~4,4!
  51. call :Change_2 !sPwd_1! sPwd_1
  52. call :Change_2 !sPwd_2! sPwd_2
  53. goto :eof
  54. :Change_2
  55. for,/f,"tokens=1 delims=-: ",%%i,in ("%date%") do (
  56. set /a %2=%1+%%i
  57. )
  58. goto :eof
  59. :Change_3
  60. set /a sPwd=%1-%2
  61. for /l %%i in (1,1,7) do (
  62. call :NOK
  63. )
  64. goto :eof
  65. :NOK
  66. for /f "delims=- tokens=1,2" %%i in ("%date%") do (
  67. set sPwd_1=432+%%i
  68. set sPwd_2=453+%%j
  69. )
  70. goto :eof
  71. :Again
  72. call :NOK
  73. call :Another %1
  74. goto :eof
  75. :Another
  76. set /a sPwd=%1+1234
  77. goto :eof
  78. :Pass
  79. endlocal&title Pass
  80. cls&%Table%
  81. echo you are the winner
  82. pause>nul
复制代码


没有添加太多的伪代码。算法也恨简单。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

后面的代码没多去看了,单看这一句:
set /a sPwd=!sPwd!+1111111
似乎,你只允许出现数字密码了

同时,你的所谓加密算法相对来说太简单

TOP

呵呵
就数字就恨难破解了哦。我没有加恨多伪代码。
请问一下
批处理中有ASCII和数字转换的吗?
不然就可以把数字转进去了。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

我直接把你的主代码文件复制过来就行了 拿来怎么多精神来破什么密码

TOP

楼主到底是说的批处理加密,还是密码加密?
技术问题请到论坛发帖求助!

TOP

密码加密。呵呵
RE:xxx**
呵呵
那是。但是只是一种加密思路。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

这个还真不会,学习下

TOP

返回列表