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-某一个数字