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拥有高强度加密算法,有效保障数据安全!
建议您再加密文件的时候可以试试。