Board logo

标题: [文本处理] 文本加密与解密的bat程序，希望高手能给解决一下BUG [打印本页]
作者: yiyue7    时间: 2023-4-16 08:16     标题: 文本加密与解密的bat程序，希望高手能给解决一下BUG

这个程序可以加解密文本程序，但是加密后的字符再重新解密就会出现首尾颠倒的问题，例如加密123后的密文是：^hr但是解密后就成了312就是这个问题，有什么办法解决吗？求高手解决！
代码如下：
  1. @echo off

  2. set "Symbol= !#$%%&'()*+,-./0123456789;:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"…—·，。"

  3. setlocal enabledelayedexpansion

  4. call :length Symbol

  5. set /a SymbolLen=%len%/2

  6. ::echo;"%Symbol%"  验证，共%SymbolLen%位数。

  7. ::%Symbol%改编自ASCII，百分号变两个，双引号放后面，添加了几个中文标点符号。

  8. if exist "%~1" set "Input=%~1"&goto InputFile

  9. :Input 输入

  10. cls

  11. echo;

  12. echo;

  13. echo;  ﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌

  14. echo;                   采用转换法将输入字符转换为新字符；字符转数字，可扩展。

  15. echo;                 每行最长支持4096字长；效率相对低些；可直接拖入文件编码。

  16. echo;                     默认使用数字、大小写字母、英文标点符号、空格等编码。

  17. echo;  ﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌﹌

  18. echo;

  19. set Input=

  20. set /p "Input=          请输入："

  21. if not "!Input!"=="" (goto InputFile) else (goto Input)

  22. :InputFile 文件处理

  23. set num=0

  24. if exist "!Input!" (

  25.     for /f "tokens=*" %%a in ("!Input!") do set "FileName=%%~na"&set "FilePath=%%~dpa"

  26.     cd.>%~dp0!FileName!_Encode.txt&cd.>%~dp0!FileName!_Decode.txt

  27.     for /f "usebackq tokens=*" %%a in ("!Input!") do set "Input=%%a"&echo;&set /a num+=1&echo;      !num!.加密字符【!Input!】&call :length Input&call :Contrl Input

  28. ) else call :length Input&call :Contrl Input

  29. echo;

  30. title 》》编码完成。&echo;&echo;          编码完成！请按任意键返回 . . .

  31. pause>nul

  32. goto Input

  33. :Contrl 控制台，控制加密和解密的总体顺序。

  34. call :Encode %1

  35. ::##此处为加密调用，处理的是输入的字符Input。##

  36. if defined WordName call :Decode WordName

  37. ::##此处为解密调用，处理的是上次加密得到的结果WordName。##

  38. goto :eof

  39. :Encode

  40. title 》》正在加密，1000字符加解密用时50秒左右，请稍候  . . .

  41. call :WordToCode %1

  42. Rem echo;        加密编码【!CodeName!】

  43. ::##可在此处添加你的加密算法的具体引用和调节等。##

  44. set CodeName=!CodeName:~1,1000000!!CodeName:~0,1!

  45. ::##当前采用的是编码首字符移位到编码末尾之调整移位。##

  46. ::##注意：该编码对Symbol要求高，可能存在缺陷##

  47. call :CodeToWord CodeName

  48. echo;          新密码【!WordName!】

  49. if exist "!FilePath!" echo;!WordName!>>%~dp0!FileName!_Encode.txt

  50. goto :eof

  51. 

  52. :Decode

  53. title 》》正在解密，字符越长需要的时间越长！  . . .

  54. call :WordToCode %1

  55. Rem echo;        解密编码【!CodeName!】

  56. ::##可在此处添加你的解密算法的具体引用和调节等。##

  57. set CodeName=!CodeName:~-1,1!!CodeName:~0,-1!

  58. ::##当前采用的是编码首字符移位到编码末尾之恢复移位##

  59. call :CodeToWord CodeName

  60. echo;          原密码【!WordName!】

  61. if exist "!FilePath!" echo;!WordName!>>%~dp0!FileName!_Decode.txt

  62. goto :eof

  63. :length 计算字符长度 code by plp626

  64. set "$=!%1!#"

  65. set len=&for %%a in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1)do if !$:~%%a^,1!. NEQ . set/a len+=%%a&set $=!$:~%%a!

  66. endlocal&If %2. neq . (set/a%2=%len%)else set /a len=%len%*2

  67. setlocal

  68. goto :eof

  69. :WordToCode 字符转编码

  70. set CodeName=

  71. for /l %%i in (0,1,%len%) do (

  72.     for /l %%a in (0,1,%SymbolLen%) do if not "!%1:~%%i,1!"=="" if "!Symbol:~%%a,1!"=="!%1:~%%i,1!" (

  73.          if %%a geq 10 (set CodeName=%%a!CodeName!) else (set CodeName=0%%a!CodeName!)

  74.     )

  75. )

  76. goto :eof

  77. ::%%i针对输入字符串的字数，%%a针对元码个数。

  78. ::echo "!Symbol:~%%a,1!"=="!%1:~%%i,1!" %%a==!CodeName!

  79. :CodeToWord 编码转字符

  80. set WordName=

  81. for /l %%i in (0,2,%len%) do (

  82.     for /l %%a in (0,1,%SymbolLen%) do (

  83.         if  "!WordName!"=="!Input!" (set "WordName=!WordName!") else (

  84.             if  "!%1:~%%i,2!"=="%%a" set "WordName=!Symbol:~%%a,1!!WordName!"

  85.             if  "!%1:~%%i,2!"=="0%%a"  set "WordName=!Symbol:~%%a,1!!WordName!"

  86.         )

  87.     )

  88. )

  89. goto :eof
复制代码
以上就是代码信息了，高手也可以改进优化一下，让其使用更好些，感谢！
作者: yiyue7    时间: 2023-4-16 08:39

也可以直接拖放文本文件到该bat程序上进行转换
作者: 77七    时间: 2023-4-16 11:07

本帖最后由 77七 于 2023-4-16 11:08 编辑

将第48行
  1. echo;          新密码【!WordName!】
复制代码


改为
  1. set WordName2=!WordName:~1!!WordName:~0,1!

  2. echo;          解密结果【!WordName2!】

  3. echo;          加密结果【!WordName!】
复制代码


去掉第60行
  1. echo;          原密码【!WordName!】
复制代码


代码太深奥，看不明白。
简单的把结果移动下位置，这样直观显示每个字符串加密和解密的两种结果。

  1. 请输入：123

  2.           解密结果【hr^】

  3.           加密结果【^hr】

  4. 请输入：^hr

  5.           解密结果【123】

  6.           加密结果【312】
复制代码


第二次输入 对第一次加密结果解密
作者: yiyue7    时间: 2023-4-16 12:55

回复 3# 77七


    非常感谢回复，在你的基础上稍作修改即可。
作者: yiyue7    时间: 2023-4-16 13:07

  1. @echo off

  2. set "Symbol= !#$%%&'()*+,-./0123456789;:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"…—·，。"

  3. setlocal enabledelayedexpansion

  4. call :length Symbol

  5. set /a SymbolLen=%len%/2

  6. if exist "%~1" set "Input=%~1"&goto InputFile

  7. :Input 输入

  8. cls

  9. set Input=

  10. set /p "Input=输入或拖放文本至此："

  11. if not "!Input!"=="" (goto InputFile) else (goto Input)

  12. :InputFile 文件处理

  13. set num=0

  14. if exist "!Input!" (

  15.     for /f "tokens=*" %%a in ("!Input!") do set "FileName=%%~na"&set "FilePath=%%~dpa"

  16.     cd.>%~dp0!FileName!_转换.txt&cd.>%~dp0!FileName!_原码.txt

  17.     for /f "usebackq tokens=*" %%a in ("!Input!") do set "Input=%%a"&echo;&set /a num+=1&echo;      !num!.字符【!Input!】&call :length Input&call :Contrl Input

  18. ) else call :length Input&call :Contrl Input

  19. echo;

  20. title 编码完成。&echo;&echo;        转换完成！请按任意键返回 . . .

  21. pause>nul

  22. goto Input

  23. :Contrl 控制台，控制加密和解密的总体顺序。

  24. call :Encode %1

  25. if defined WordName call :Decode WordName

  26. goto :eof

  27. :Encode

  28. title 正在加密，1000字符加解密用时50秒左右，请稍候  . . .

  29. call :WordToCode %1

  30. set CodeName=!CodeName:~1,1000000!!CodeName:~0,1!

  31. call :CodeToWord CodeName

  32. set WordName2=!WordName:~1!!WordName:~0,1!

  33. echo;        转换【!WordName2!】

  34. if exist "!FilePath!" echo;!WordName2!>>%~dp0!FileName!_转换.txt

  35. goto :eof

  36. :Decode

  37. title 正在解密，字符越长需要的时间越长！  . . .

  38. call :WordToCode %1

  39. Rem echo;        解密编码【!CodeName!】

  40. set CodeName=!CodeName:~-1,1!!CodeName:~0,-1!

  41. call :CodeToWord CodeName

  42. if exist "!FilePath!" echo;!WordName!>>%~dp0!FileName!_原码.txt

  43. goto :eof

  44. :length 计算字符长度

  45. set "$=!%1!#"

  46. set len=&for %%a in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1)do if !$:~%%a^,1!. NEQ . set/a len+=%%a&set $=!$:~%%a!

  47. endlocal&If %2. neq . (set/a%2=%len%)else set /a len=%len%*2

  48. setlocal

  49. goto :eof

  50. :WordToCode 字符转编码

  51. set CodeName=

  52. for /l %%i in (0,1,%len%) do (

  53.     for /l %%a in (0,1,%SymbolLen%) do if not "!%1:~%%i,1!"=="" if "!Symbol:~%%a,1!"=="!%1:~%%i,1!" (

  54.          if %%a geq 10 (set CodeName=%%a!CodeName!) else (set CodeName=0%%a!CodeName!)

  55.     )

  56. )

  57. goto :eof

  58. :CodeToWord 编码转字符

  59. set WordName=

  60. for /l %%i in (0,2,%len%) do (

  61.     for /l %%a in (0,1,%SymbolLen%) do (

  62.         if  "!WordName!"=="!Input!" (set "WordName=!WordName!") else (

  63.             if  "!%1:~%%i,2!"=="%%a" set "WordName=!Symbol:~%%a,1!!WordName!"

  64.             if  "!%1:~%%i,2!"=="0%%a"  set "WordName=!Symbol:~%%a,1!!WordName!"

  65.         )

  66.     )

  67. )

  68. goto :eof
复制代码
作者: 77七    时间: 2023-4-16 17:12

本帖最后由 77七 于 2023-4-16 17:20 编辑

回复 5# yiyue7


   3楼，关于从文本输入的代码我都没改。暂时保留第60行，不知道文本输入是否需要这一行。
运行你修改的
  1. 输入或拖放文本至此：123

  2.         转换【hr^】

  3. 输入或拖放文本至此：hr^

  4.         转换【231】

  5. 输入或拖放文本至此：231

  6.         转换【r^h】
复制代码


运行我修改的
  1. 请输入：hr^

  2.           解密结果【231】

  3.           加密结果【123】

  4.           原密码【hr^】

  5. 请输入：123

  6.           解密结果【hr^】

  7.           加密结果【^hr】

  8.           原密码【123】

  9. 请输入：^hr

  10.           解密结果【123】

  11.           加密结果【312】

  12.           原密码【^hr】

  13. 请输入：231

  14.           解密结果【r^h】

  15.           加密结果【hr^】

  16.           原密码【231】
复制代码


输入一个字符串，有加解密两种结果，我觉得符合逻辑，符不符合代码的初衷我就不知道了....但是修改后的效果使用起来没问题
从你修改的，参照我修改的，输入123 后得到 的hr^是123的解密结果，再输入 hr^ 再次得到了hr^的解密结果，逻辑出问题了，导致了字符串顺序问题。



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2