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