vb加密

A. VB加密解密

看你這架勢是要做勒索病毒啊 你一點基礎都沒有 病毒是那麼容易製作和傳播么 君子愛財取之有道 做力所能及的事吧 能力范圍外的別太浪費時間 人一生很短暫

B. 怎樣用vb程序給程序加密！！！

dim a as string
sub form_load
a=""'在""中輸入正確密碼
if not(inputbox("請輸入密碼")=a) then end
'……
'我也無法理解此代碼，抄書的。
end sub

C. 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點擊解密

D. 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

E. 用VB如何給文件加密

這個比較麻煩的。

給文件加密，我還是建議您選擇專業的文件加密軟體。

超級加密3000擁有高強度加密演算法,有效保障數據安全!

建議您再加密文件的時候可以試試。

F. 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可執行文件），不單單是文本文件。

G. 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)

H. 怎樣給VB程序加密

讀別人的源代碼本來就不太容易。你既然要開源給對方，又不想讓讓人家更不容易讀懂，建議這樣做：
用批量替換的方法，把變數、常量、自定義函數、子程序、數組、控制項的名稱全部改成無意義的
比如，你可能會用
pananniannin
來表示判斷年齡子程序，用
age來表示年齡變數，現在統一把
pananninanin來替換成
fmcc,把age
替換成
xyz.
自己則記下這個工程各名稱的含義，我想，讓他一方面要主動性懂程序，一方面還要推測你某個具體變更的含義，進而進一步了解程序的含義，就夠讓對方抓狂一陣子了

I. vb源代碼如何加密

簡單點：
保存後將文件的後綴名改為如jpg,BMP之類的，別人不知道以為是圖片，打開打不開。

復雜點：
用壓縮或加密軟體，如WINRAR，加密碼壓縮，壓縮後刪除源文件；
如XX加密器，通過加密器加密文件，加密後文件不用原來的密碼根本打不開。

J. 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