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加密和解密的區別相關的資料