加密-解密TXT文件(页 1) - Windows - 编程论坛

花三千 发表于 2007-10-14 20:09

加密-解密TXT文件

加密-解密TXT文件 将以下代码复制保存为333.VBS文件，奇数次运行该VBS文件是加密你要加密的TXT文件，偶数次运行该VBS文件是解密你已加密的TXT文件 '***-----***-------***加密-解密.vbs***-----***------**** z=inputbox("请输入路径","加密-解密TXT文件","e:\12345\123.txt") '---------------------------------------------1 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "a", "※") tempstr=replace(tempstr, "b", "￡") tempstr=replace(tempstr, "c", "￥") tempstr=replace(tempstr, "d", "￠") tempstr=replace(tempstr, "e", "￢") tempstr=replace(tempstr, "f", "］") tempstr=replace(tempstr, "※", "f") tempstr=replace(tempstr, "￡", "e") tempstr=replace(tempstr, "￥", "d") tempstr=replace(tempstr, "￠", "c") tempstr=replace(tempstr, "￢", "b") tempstr=replace(tempstr, "］", "a") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------2 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "g", "※") tempstr=replace(tempstr, "h", "￡") tempstr=replace(tempstr, "i", "￥") tempstr=replace(tempstr, "1", "￠") tempstr=replace(tempstr, "2", "￢") tempstr=replace(tempstr, "3", "］") tempstr=replace(tempstr, "※", "3") tempstr=replace(tempstr, "￡", "2") tempstr=replace(tempstr, "￥", "1") tempstr=replace(tempstr, "￠", "i") tempstr=replace(tempstr, "￢", "h") tempstr=replace(tempstr, "］", "g") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------3 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "j", "※") tempstr=replace(tempstr, "k", "￡") tempstr=replace(tempstr, "l", "￥") tempstr=replace(tempstr, "4", "￠") tempstr=replace(tempstr, "5", "￢") tempstr=replace(tempstr, "6", "］") tempstr=replace(tempstr, "※", "6") tempstr=replace(tempstr, "￡", "5") tempstr=replace(tempstr, "￥", "4") tempstr=replace(tempstr, "￠", "l") tempstr=replace(tempstr, "￢", "k") tempstr=replace(tempstr, "］", "j") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------4 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "m", "※") tempstr=replace(tempstr, "n", "￡") tempstr=replace(tempstr, "o", "￥") tempstr=replace(tempstr, ",", "￠") tempstr=replace(tempstr, ".", "￢") tempstr=replace(tempstr, "/", "］") tempstr=replace(tempstr, "※", "/") tempstr=replace(tempstr, "￡", ".") tempstr=replace(tempstr, "￥", ",") tempstr=replace(tempstr, "￠", "o") tempstr=replace(tempstr, "￢", "n") tempstr=replace(tempstr, "］", "m") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------5 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "p", "※") tempstr=replace(tempstr, "q", "￡") tempstr=replace(tempstr, "r", "￥") tempstr=replace(tempstr, " ", "￠") tempstr=replace(tempstr, "\", "￢") tempstr=replace(tempstr, "=", "］") tempstr=replace(tempstr, "※", "=") tempstr=replace(tempstr, "￡", "\") tempstr=replace(tempstr, "￥", " ") tempstr=replace(tempstr, "￠", "r") tempstr=replace(tempstr, "￢", "q") tempstr=replace(tempstr, "］", "p") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------6 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "s", "※") tempstr=replace(tempstr, "t", "￡") tempstr=replace(tempstr, "u", "￥") tempstr=replace(tempstr, "7", "￠") tempstr=replace(tempstr, "8", "￢") tempstr=replace(tempstr, "9", "］") tempstr=replace(tempstr, "※", "9") tempstr=replace(tempstr, "￡", "8") tempstr=replace(tempstr, "￥", "7") tempstr=replace(tempstr, "￠", "u") tempstr=replace(tempstr, "￢", "t") tempstr=replace(tempstr, "］", "s") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close '---------------------------------------------7 set fso=CreateObject("Scripting.FileSystemObject") set fsofile=fso.OpenTextFile(z, 1, true) tempstr=fsofile.Readall tempstr=replace(tempstr, "v", "※") tempstr=replace(tempstr, "w", "￡") tempstr=replace(tempstr, "x", "￥") tempstr=replace(tempstr, "%", "￠") tempstr=replace(tempstr, ")", "￢") tempstr=replace(tempstr, "(", "］") tempstr=replace(tempstr, "※", "(") tempstr=replace(tempstr, "￡", ")") tempstr=replace(tempstr, "￥", "%") tempstr=replace(tempstr, "￠", "x") tempstr=replace(tempstr, "￢", "w") tempstr=replace(tempstr, "］", "v") fsofile.close set fsofile1=fso.OpenTextFile(z, 2, true) fsofile1.WriteLine tempstr fsofile1.close msgbox "OK"
[align=right][color=#000066][此贴子已经被作者于2007-10-14 20:25:45编辑过][/color][/align]

缘吇弹 发表于 2007-10-14 22:35

哈哈,乱码加密. 帮你顶一个.

WSY379 发表于 2007-10-15 00:13

哈哈~[em17]

lthiy 发表于 2007-10-15 09:32

偶也来顶一个

hc2008 发表于 2007-10-15 15:32

对文字没有什么用啊

hc2008 发表于 2007-10-15 15:35

对文字没有用，只加密数字！

卡卡希比 发表于 2007-10-15 23:08

修改一下

cnenc 发表于 2007-10-16 15:11

呵呵,替换算法...

花三千 发表于 2007-11-3 11:44

对文字有用啊 例如：tempstr=replace(tempstr, "小鸡巴", "大大的") 就把"小鸡巴"换成了"大大的"

the_king 发表于 2007-11-7 22:11

经典的老式加密算法，不错，顶一个...

花花公子 发表于 2007-11-8 14:25

不錯

比蜗牛快些 发表于 2007-11-9 10:22

我要的只是加密，解密的不要。拿来整人的，要不就是可以对所有文件加密的程序。

jaychou 发表于 2007-11-9 14:12

对文字不行啊

chengfuwei 发表于 2007-11-18 15:13

不错，顶了

alojia 发表于 2008-1-6 14:35

顶一个

顶啊，以前没有玩过

Irwin 发表于 2008-1-7 10:50

呵呵这貌似简单属于C里面的吧？！

kingarden 发表于 2008-1-14 20:13

程序写的太死了，不可能对每个字符都来个replace吧！

燃燒发表于 2008-1-25 09:25

呵呵..不错的东西

不过要写起来是不是会很麻烦 ?

s_k_y 发表于 2008-2-10 13:30

这是什么语言????
***.vbs

页: [1]

编程论坛's Archiver

加密-解密TXT文件

顶一个