vb加密
A. vb 字母 加密字元串
PrivateSubCommand1_Click()'加密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text1.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"數據有誤"
ExitSub
Else
t=t&Mid(p,((k+4)Mod52)+1,1)
EndIf
Next
Text2.Text=t
Text1.Text=""
EndSub
PrivateSubCommand2_Click()'解密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text2.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"數據有誤"
ExitSub
Else
t=t&Mid(p,((k+46)Mod52)+1,1)
EndIf
Next
Text1.Text=t
Text2.Text=""
EndSub
以上代碼用到四個控制項：Text1放加密前的數據，Text2放加密後的數據，Command1點擊加密，Command2點擊解密
B. vb源代碼如何加密
簡單點：
保存後將文件的後綴名改為如jpg,BMP之類的，別人不知道以為是圖片，打開打不開。
復雜點：
用壓縮或加密軟體，如WINRAR，加密碼壓縮，壓縮後刪除源文件；
如XX加密器，通過加密器加密文件，加密後文件不用原來的密碼根本打不開。
C. vb 數字加密代碼
Dima(4)
b=Val(text1)
Fori=1To4
a(i)=(Int(b/10^(4-i))+7)mod10
Next
text2=a(4)*1000+a(3)*100+a(2)*10+a(1)
D. vb 加密字元串的方法
PrivateSubCommand1_Click()'加密
Dimb()AsByte,iAsLong
Open"d:1.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
Fori=0ToUBound(b)-1
b(i)=b(i)Xorb(i+1)
Next
b(i)=b(i)Xor93
Open"d:2.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"1.txt已加密為2.txt"
EndSub
PrivateSubCommand2_Click()'解密
Dimb()AsByte,iAsLong
Open"d:2.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
b(UBound(b))=b(UBound(b))Xor93
Fori=UBound(b)-1To0Step-1
b(i)=b(i)Xorb(i+1)
Next
Open"d:3.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"2.txt已解密為3.txt"
EndSub
1.txt加密後存為2.txt
2.txt解密後存為3.txt
請注意，這個程序是可以加密解密任何文件的（包括exe可執行文件），不單單是文本文件。
E. VB加密的問題
用VB加密文件
文本的加密與解密
文本的加密與解密
在VB中，由於隨機數生成器是偽隨機數，所以根據其原理可以用於文本的
加密和解密，根據異或邏輯運算，加密和解密可以是同一個過程。
加密與解密函數代碼如下。
'加密與解密函數說明:
' CharSting 加密或解密的數據
' Key 加密或解密的密鑰
'函數返回值:
' 1. CharString為空時返回"1"
' 2. 加密或解密失敗返回"0"
' 3. 成功則返回加密或解密後的字元串
Public Function EDcode$(CharString As String, Key As Integer)
Dim X As Single, i As Long
Dim CharNum As Integer, RandomInteger As Integer
Dim CharSingle As String * 1
On Local Error GoTo EDcodeError
EDcode$ = ""
If Len(CharString) = 0 Then
EDcode$ = "1"
Exit Function
End If
X = Rnd(-Key)
For i = 1 To Len(CharString)
CharSingle = Mid$(CharString, i, 1)
CharNum = Asc(CharSingle)
RandomInteger = Int(256 * Rnd) And &H7F
CharNum = CharNum Xor RandomInteger
CharSingle = Chr$(CharNum)
EDcode$ = EDcode$ + CharSingle
Next i
Exit Function
EDcodeError:
EDcode$ = "0"
End Function
F. vb 口令加密
在窗體中放入一個按鈕和2個文本框。點擊按鈕看結果。
Private Sub Command1_Click()
Text2 = ""
Dim tmp, tmpchrcode, tmppwd
For i = 1 To Len(Text1)
tmp = Mid(Text1, i, 1)
Select Case tmp
Case "A": tmppwd = "Y"
Case "B": tmppwd = "Z"
Case "a": tmppwd = "y"
Case "b": tmppwd = "z"
Case Else: tmppwd = Chr(Asc(tmp) - 2)
End Select
Text2 = Text2 & tmppwd
Next
End Sub
Private Sub Form_Load()
Text1 = "在這里輸入字元串"
Text2 = "結果會顯示在這里"
End Sub
G. 怎樣給VB程序加密
讀別人的源代碼本來就不太容易。你既然要開源給對方，又不想讓讓人家更不容易讀懂，建議這樣做：
用批量替換的方法，把變數、常量、自定義函數、子程序、數組、控制項的名稱全部改成無意義的
比如，你可能會用
pananniannin
來表示判斷年齡子程序，用
age來表示年齡變數，現在統一把
pananninanin來替換成
fmcc,把age
替換成
xyz.
自己則記下這個工程各名稱的含義，我想，讓他一方面要主動性懂程序，一方面還要推測你某個具體變更的含義，進而進一步了解程序的含義，就夠讓對方抓狂一陣子了
H. 怎樣用vb程序給程序加密！！！
dim a as string
sub form_load
a=""'在""中輸入正確密碼
if not(inputbox("請輸入密碼")=a) then end
'……
'我也無法理解此代碼，抄書的。
end sub
I. VB加密解密
看你這架勢是要做勒索病毒啊 你一點基礎都沒有 病毒是那麼容易製作和傳播么 君子愛財取之有道 做力所能及的事吧 能力范圍外的別太浪費時間 人一生很短暫
J. 用VB如何給文件加密
這個比較麻煩的。
給文件加密，我還是建議您選擇專業的文件加密軟體。
超級加密3000擁有高強度加密演算法,有效保障數據安全!
建議您再加密文件的時候可以試試。