神马品牌网北京梅地亚酒店位置:这个函数如何解密？
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 19:47:21
function trpass(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
texts=replace(texts,"'","")
trpass=replace(texts,chr(34),"")
end function
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
texts=replace(texts,"'","")
trpass=replace(texts,chr(34),"")
end function
方法一(适用于Windows98/Me系统)：进入一个未加密的文件夹，点击菜单栏上的“查看”命令，取消“按Web页查看”选项。再次点击“查看”，选择“文件夹选项”，在弹出的对话框中选择“查看”选项卡。点击“与当前文件夹类似”，确定后即可取消本机上所有文件夹的加密。
方法二：采用方法一将会取消对所有已加密文件夹的加密属性，无法对单个文件夹进行解密操作，而且不适用于Win2000、XP系统。其实，不管是在98系统还是2000/XP系统下，破解这种类型的加密文件夹有一个通用的方法，我们甚至可以像进入自己的文件夹那样进入到加密的文件夹：假设被加密的文件夹为d：\lj，那么只需要在地址栏中输入d：\lj\folder settings\folder.htt，就可以打开改设置文件(folder.htt)。我们只要在改文件中找到进行加密的几行代码，密码就出现了