vb加密解密程序

『壹』 VB加密解密

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

『貳』 求vb一個加密解密的編程

你都知道方法了就自己寫啊
不懂的才問嗎！

『叄』 用VB寫個簡單加密/解密程序

'圖上的控制項,你就照著擺上去,然後再把以下代碼拷進去,就OK了
Dim lg As Integer
'加密
Private Sub Command1_Click()
Text2 = ""
Dim a(), b() As String
lg = Len(Text1)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text1, i, 1)
b(i) = AscW(a(i)) Xor 4
Text2 = Text2 & ChrW(b(i))
Next
End Sub
'解密
Private Sub Command2_Click()
Text3 = ""
Dim a(), b() As String
lg = Len(Text2)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text2, i, 1)
b(i) = AscW(a(i)) Xor 4
Text3 = Text3 & ChrW(b(i))
Next
End Sub

『肆』 求一段加密vb代碼的解密程序

dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next

光是這一段 就註定這個解密相當困難 這種有損變換 還原起來相當費力..
解密代碼還在還原中..

『伍』 求vb做的加解密程序

無語了 - -^前見天剛做過
加密:
Dim a, b As Integer
Dim c, d As String
b = Len(Text1.Text)
a = 1
If b <> 0 Then
Do
c = Mid(Text1.Text, a, 1)
c = Chr(Asc(c) - 5)
d = d & c
a = a + 1
Loop Until a > b
Text1.Text = ""
Text1.Text = d
End If
解密:
Dim a, b As Integer
Dim c, d As String
b = Len(Text1.Text)
a = 1
If b <> 0 Then
Do
c = Mid(Text1.Text, a, 1)
c = Chr(Asc(c) + 5)
d = d & c
a = a + 1
Loop Until a > b
Text1.Text = ""
Text1.Text = d
End If

多加點分啊 不然你就太不厚道了

『陸』 用VB編一個加密解密的程序

以前做過一個玩的
加密是這樣的
定義個變數（空的）
然後查找文本中所有字元(按順序一個一個找下去）
如果字元不存在於變數中附加到變數最後
等查找完所有字元（變數就完成了）
然後按固定格式把變數中的字元換下位置
生成變數2

按後根據 變數和變數2 字元對應關系替換掉 文本中的字元

解密一樣的只不過把字元反過來來找 先生成的是變數2 按前面相反的方式 還原成變數 在對應替換掉 加密文本~~！

說的很亂（以前做過，有時成功有時失敗）可能是保存TXT文本時長度改變了的原應。。感覺沒什麼意義就放棄了~！

具體這方法有沒有用 沒深究過~！

『柒』 VB 加密與解密的程序代碼

加密：

PrivateFunction JiaMi(ByVal varPass As String) As String '參數varPass是需要加密的文本內容

Dim varJiaMi As String * 20

Dim varTmp As Double

Dim strJiaMi As String

Dim I

For I = 1 To Len(varPass)

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

strJiaMi = strJiaMi & varJiaMi

NextI

JiaMi = strJiaMi

EndFunction

解密函數：

PrivateFunction JieMi(ByVal varPass As String) As String '參數varPass是需要解密的密文內容

Dim varReturn As String * 20

Dim varConvert As Double

Dim varFinalPass As String

Dim varKey As Integer

Dim varPasslenth As Long

varPasslenth = Len(varPass)

For I = 1 To varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)

varConvert = Val(Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass & ChrW(Val(varConvert))

NextI

JieMi = varFinalPass

EndFunction

(7)vb加密解密程序擴展閱讀：

注意事項

編寫加密程序，將用戶輸入的一個英文句子加密為加密字元串，然後輸出加密字元串。假設句子長度不超過100個字元。

根據給定的句子加密函數原型SentenceEncoding，編寫函數SentenceEncoding調用給定的字元加密函數CharEncoding完成句子加密。

然後，編寫主程序提示用戶輸入英文句子，然後調用函數SentenceEncoding對句子加密，最後輸出加密後的句子。

字元加密規則為大寫字母和小寫字母均加密為其補碼, 我們定義ASCII碼值相加為』A』+』Z』即155的兩個大寫字母互為補碼，ASCII碼值相加為』a』+』z』即219的兩個小寫字母互為補碼。

空格用@代替,句號以#代替,其它字元用句點代替。

函數原型：

void SentenceEncoding(char *soure,char *code);

功能：對待加密字元串source加密後保存加密字元串到code.

參數：char *soure，指向待加密句子的字元串指針；

char *code 指向加密字元串的字元串指針；

字元加密函數代碼。

『捌』 用VB實現加密解密程序。

這里只給出按鈕事件的過程，加密演算法（函數）你自己想辦法：
設加密演算法函數名為encryptxt，解密演算法函數名為unencryptxt，不帶參數。
加密窗口「生成密文」按鈕事件：
Private sub 生成密文_Click()
Frame1.Caption = encryptxt (Text1.text)
End Sub

解密窗口「解密」按鈕事件：
Private Sub 解密_Click()
Frame2.Caption = unencryptxt(Rrame1.Caption)
End Sub

『玖』 VB 加密解密

加密解密不難，為什麼你一定要把數字419002323749經過加後變成.]#o/2-g%#呢，我變成別的不行么？

如果一定要把數字419002323749經過加後變成.]#o/2-g%#那我也沒辦法了，我估計那些演算法高手們也不會幫你的，原因很簡單，你一定是知道別人加密後的結果，要反推正常的密碼，就現在很多的QQ農牧場，加密後的字元就保存在當地。

演算法要反推的話是很困難的，任何一種可能都有......如果你願意出資贊助的話,我相信會有人願意為你效勞的.

『拾』 VB6編寫文字加密解密程序

演算法都錯了，異或可能造成數據丟失，結果是還原不了的。 應該用theByte+某一個數字進行加密，解密用theByte-某一個數字