vbs加密和解密的区别_VB加密和解密数字

⑴ VBS加密解密问题

加密函数也就是ASCdata的作用就是将每个字符用asc函数转换为相应的ASCII码，并在后面加上逗号
我认为解密就是将这些ASCII码用chr函数转换为字符
Function Chrdata(Data)
Data = Split(Data, ",")
newdata=""
for x=0 to UBound(Data)
newdata = newdata & Chr(CInt(Data(x)))
next
Chrdata=newdata
End Function
如果是在网页中，可用下面的方式调用
document.write Chrdata("32,32,32,32,-24156,-24156,-24156,32,-24156,-24156,-23635,32,-24156,-23635,-23635,-23635,-23635,32,-24156,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-23635,-23635,-23635,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-24156,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-24156,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-23635,-24156,-24156,-24156,-24156,32")
在网页中显示的结果是
··· ··－ ·－－－－ · －－－－· ····· ···－－－··· ····－－－－－－－－－－· ····· －－··· ·－－－－ ···－－－·· －－··· ····－－···· －···· ·－－－－－·· －·· ··－－－－···· －·· －－··· ··－· ··－－－ ··－· ···－－ ·－－－－－· －····

ASCII为32的字符是空格，最前面四个空格和最后一个空格没有显示出来

⑵ 高强度文件夹加密大师中的三种解密方式和三种加密方式有何不同之处

有三种加密解密方式,分别是:本机加密,移动加密,隐藏加密;完全解密,临时解密,浏览解密.
它们的区别分别是:本机加密就是要本机上加密,不被他人使用和复制.移动加密就是可以在本机上使用也可以移动到其他电脑上使用,但都是加密状态,即使在没有安装此加密软件的电脑上.隐藏加密就是加密后隐藏了文件夹图标,必须在加密软件的操作界面上进行操作解密.
完全解密就是解密后和其它文件夹一样,处于非加密状态,如果要再次加密,必须重新设置加密;临时解密即临时性的使用文件,使用完后只需点一下"恢复加密状态"就可回到以前的加密状态;浏览解密,点“解密”，自动弹出此文件夹的资源管理器窗口,然后您就可以只有的使用该文件夹中的文件,关闭资源管理器窗口后，文件夹自动加密。

可以查看软件的帮助文件.

⑶ vbs加密算法问题

将asc转换为十六进制即可，位数统一，还可以忽略负号。

FunctionGenerateCode(strText)
'输入字符串(strText)，返回十六进制ANSI编码
Dimi
Fori=1toLen(strText)
GenerateCode=GenerateCode&Hex(Asc(Mid(strText,i,1)))
Next
EndFunction

FunctionGetText(strCode)
'输入十六进制ANSI编码(strCode)，返回字符串原文
Dimi,strTmp
Fori=1toLen(strCode)Step2
strTmp="&h"&Mid(strCode,i,2)
IfCInt(strTmp)<128Then
GetText=GetText&Chr(strTmp)
Else
i=i+2
GetText=GetText&Chr(strTmp&Mid(strCode,i,2))
EndIf
Next
EndFunction

这是我自己加密字符串用的。符合你的要求，密文为十六进制无分隔符的连续字符串，ASCII字符(0-127)转换为2位，其它ANSI字符(256-65535)转换为4位。

此算法是本着平衡 [加密/解密的代码量] 与 [密文长度] 为宗旨编写的。

不知道你加密想要干什么，但我还是建议你：

不要想着进一步通过运算等方式“加密”，因为在vbs下解密算法是明文，一切加密在懂行者看来都是没意义的。在我看来，vbs的加密充其量也就是稍微隐藏下字符串或代码，不被人一眼就看到意图而已。所以说，我这个算法就够用了。
如果想进一步隐藏代码，可以自己网络[ Scripting.Encoder ]。不出意外的，这个也可以被解密。

代码中有不懂的地方可以追问。

⑷ 请问:加密文件的完全解密临时解密浏览解密是什么意思呀三者之间区别是什么

什么加密软件？
个人理解：
完全解密就是解除密码，完成以后可以不用密码使用
临时解密就是暂时解开一般放在临时文件夹，关闭窗口即删除解开的文件
浏览解密难理解，可能是部分文件解开，或者只能查看，不能改变文件吧

个人认为，文件加密还有点意义，但文件夹加密码没有多大意义，很容易造成永久损坏，也很容易破解

⑸ VBS的加密跟解密

VBS加密:
复制以下代码，用记事本另存为，“VBS加密” 保存。

set fso=createobject("scripting.filesystemobject")

scf=inputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs")
set op=fso.opentextfile(scf)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)

next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(scf,2)
op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
"for i=1 to UBound(strs)"&chr(13)&chr(10)&_
" runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
"next"&chr(13)&chr(10)&_
"Execute runner"

VBS解密
复制以下代码，用记事本另存为，“VBSVBS解密” 保存。

on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName

if not strLoadFile = "" then
set file=fso.opentextfile(strLoadFile,1)
all=file.readall
file.close
s=instr(1,all,"next")
alls=mid(all,1, s+3 )
set file=fso.createtextfile(strLoadFile,8,true)
file.write alls
file.writeline empty
file.writeline"set fso=createobject("&""""&"scripting.filesystemobject"&""""&")"
file.writeline"set file=fso.createtextfile(wscript.scriptfullname,8,true)"
file.writeline"file.write runner"
file.writeline"file.close"
file.close
ws.run""""&strLoadFile&"""",0,true
msgbox"解密成功!",4096+64
end if

⑹ 加密与解密是不是同一个概念上的两个术语

不是，是两个过程。加密是把明文通过加密算法加密为密文的过程，而解密是把密文通过运算而得到明文的过程。

⑺ VBS的加密跟解密

Ans = InPutBox("请输入要执行的操作：1.加密，2.解密,3.退出。")
Ans = Int(Ans)
If Ans =1 Then
set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set op=fso.opentextfile(strLoadFile)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)
next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(strLoadFile,2)
op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
"for i=1 to UBound(strs)"&chr(13)&chr(10)&_
" runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
"next"&chr(13)&chr(10)&_
"Execute runner"
msgbox "加密成功",,"提示"
end if
end if
If Ans = 2 Then
Set objfs=CreateObject("scripting.filesystemobject")
Set objDialog=CreateObject("UserAccounts.CommonDialog")
objDialog.Filter="vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set objf=objfs.opentextfile(strLoadFile)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=objfs.OpenTextFile(strLoadFile,2)
objf.Write runner
MsgBox "解密成功",,"提示"
end if
end if
if Ans = 3 Then
Wscript.Quit
End If

'以上为VBS加解密代码，使用方法：保存后直接运行~~
'ps:此代码为本人以前收藏的，忘记作者是谁，在VBS吧里。

⑻ VB加密和解密数字

每个数字向前推几位？^_^
那还叫加密吗？
加密最起码总要处理成乱码的样子吧？请自行定义密钥
给个RC4加密的函数。第一个参数是需要加密的数据，第二个参数是密钥（请自行定义）。
解密时同样用这个函数：第一个参数是需要解密的数据，第二个参数是密钥（同上）。

Public Function RC4(inp As String, key As String) As String
Dim S(0 To 255) As Byte, K(0 To 255) As Byte, i As Long
Dim j As Long, temp As Byte, Y As Byte, t As Long, x As Long
Dim Outp As String
For i = 0 To 255
S(i) = i
Next
j = 1
For i = 0 To 255
If j > Len(key) Then j = 1
K(i) = Asc(Mid(key, j, 1))
j = j + 1
Next i
j = 0
For i = 0 To 255
j = (j + S(i) + K(i)) Mod 256
temp = S(i)
S(i) = S(j)
S(j) = temp
Next i
i = 0
j = 0
For x = 1 To Len(inp)
i = (i + 1) Mod 256
j = (j + S(i)) Mod 256
temp = S(i)
S(i) = S(j)
S(j) = temp
t = (S(i) + (S(j) Mod 256)) Mod 256
Y = S(t)
Outp = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)
Next
RC4 = Outp
End Function

⑼ 什么是加密和解密

加密：给数据进行加密码保护，通常都是打开是输入密码，还有隐藏、伪装等效果。市面上加密类的软件也很多，可以根据自己的具体需求进行挑选。
解密：解除密码保护，也就是恢复未加密时的状态，变成正常的数据。如果不想让你的文件继续保持加密效果，那就可以选择解密，来让它不再受保护。有的可以临时解密，使用的时候是解密状态，关闭后会自动恢复加密状态这种。

导航:首页 > 文档加密 > vbs加密和解密的区别

vbs加密和解密的区别

与vbs加密和解密的区别相关的资料