VB6加密函数

❶ VB6.0通过哪些函数来实现文件加密

文件加密属于一种算法，他需要打开文件关闭文件读取文件写文件等函数实现

❷ 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

(2)VB6加密函数扩展阅读：

注意事项

编写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过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加解密

最简单的设置一个公共变量Code和Key，前者用于存原密码，后者用于存密钥，自定义一个加密函数trans，用于转换Code和Key并显示在text2当中，解密时判定输入的密钥与Key是否符合，如果符合就把Code显示出来。也就是说，这个加密函数只是用于加密转换时，在解密的时候，可以不用它而直接读取Code变量。代码如下：
Dim Code As String, Key As String
Private Sub Command1_Click() '这是加密过程，加密的同时把密码与密钥存入变量Code和Key中
Label2.Caption = "加密后的密码"
Code = Text1.Text
Key = Text3.Text
Text2.Text = trans(Key) & trans(Code)
End Sub
Private Sub Command2_Click() '这是解密过程
If Text3.Text <> Key Then
MsgBox "密钥错误，请重新输入"
Else
MsgBox "原密码是：" & Code
End If
End Sub

Private Function trans(s As String) As String '这是加密函数
Dim ch As String
For i = 1 To Len(s)
If Mid(s, i, 1) Like "[A-Z]" Then
ch = ch & Chr(155 - Asc(Mid(s, i, 1)))
ElseIf Mid(s, i, 1) Like "[a-z]" Then
ch = ch & Chr(219 - Asc(Mid(s, i, 1)))
Else
ch = ch & Mid(s, i, 1)
End If
Next
trans = ch
End Function

Private Sub Form_Load() '这是所有用到的控件
Label1.Caption = "密码"
Label2.Caption = "加密后的密码"
Label3.Caption = "密钥"
Command1.Caption = "加密"
Command2.Caption = "解密"
End Sub

补充：我测试没问题。Text2中是加密后的密文，解密时会先判定用户在Text3中所输入的密钥是否与Key变量中保存的密钥相同，如果相同的话才会显示原来的密码。如果出错的话，请检查一下这8个控件，3个Text，3个Label，2个Command，你可以新建一个程序，然后在窗体上放上这8个控件，都用默认属性，然后把代码复制过去，再运行一下试试。

❹ vb6 txt加密

Txt很难进行打开加密。只能从内容上入手。
写入的内容进行运算或者字符转换。
就该转换或者运算方法记住。想用的时候，可以
运行转换或者运算进行数据还原。

❺ 怎么用VB给文件夹加密

1、由于采用二进制读取文件的方式，因此加密时一般可以不考虑文件类型。
2、这里只进行一次异或运算，如有需要可以进行多次异或运算。
3、此加密算法速度快，当然加密强度也低 ；
参考代码如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

'-----------------------------------------------------------------------
'函数说明： 使用异或运算加密文件（可加密大部分文件）
'参数说明： key - 密钥
' fileName - 普通文件名，
' encryptFileName - 加密后的文件名
'返回值： true - 成功，false - 失败
'-----------------------------------------------------------------------
Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean
On Error GoTo errHandler
Dim inputFileNo As Integer
Dim fileBytes() As Byte
Dim length As Long
XOR_Encrypt = False
'打开文件并保存在二进制数组中
inputFileNo = FreeFile
Open fileName For Binary As #inputFileNo
length = LOF(inputFileNo)
If length = 0 Then
MsgBox "退出加密：文件内容为空！", vbInformation, "提示"
Exit Function
End If
ReDim fileBytes(length - 1) As Byte
Get inputFileNo, , fileBytes()
Close #inputFileNo
'将该二进制数组进行异或加密
Dim i As Long
For i = LBound(fileBytes) To UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor key
Next
'将异或加密后的二进制数组保存在新的文件中
Dim outputFileNo As Integer
outputFileNo = FreeFile
Open encryptFileName For Binary As #outputFileNo
Put outputFileNo, , fileBytes
Close #outputFileNo
XOR_Encrypt = True

errHandler:
If Err.Number Then
MsgBox "加密过程中出错：" & Err.Description, vbCritical, "错误"
XOR_Encrypt = False
Resume Next
End If
End Function

❻ 求一个简单短小的VB加密算法,每段要有解释

Public Function StringEnDeCodecn(strSource As String, MA) As String '该函数只对中西文起到加密作用 '参数为：源文件，密码 On Error GoTo ErrEnDeCode Dim X As Single Dim CHARNUM As Long, RANDOMINTEGER As Integer Dim SINGLECHAR As String * 1 Dim strTmp As String If MA < 0 Then MA = MA * (-1) End If X = Rnd(-MA) For i = 1 To Len(strSource) Step 1 '取单字节内容 SINGLECHAR = Mid(strSource, i, 1) CHARNUM = Asc(SINGLECHAR) g: RANDOMINTEGER = Int(127 * Rnd) If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g CHARNUM = CHARNUM Xor RANDOMINTEGER strTmp = strTmp & Chr(CHARNUM) Next i StringEnDeCodecn = strTmp Exit Function ErrEnDeCode: StringEnDeCodecn = "" MsgBox Err.Number & "\" & Err.Description End Function Private Sub Command1_Click() tmp1 = StringEnDeCodecn(Text1.Text, 75) Text2.Text = tmp1 End Sub 窗体放两个文本框Text1,Text2和一个按钮Command1。 使用上面代码可以把Text1中的内容加密，显示在Text2中。 要解密直接把Text2的内容复制到Text1中，再次点击按钮Command1，解密后的内容会显示在Text2中。

❼ vb6加密解密问题

Dim i, w As Integer
Dim jiami, jmwz, jiemiwz, jiwmi As String
Private Sub Command1_Click()
For i = 1 To Len(Text.Text) Step 1
jmwz = Mid(Text.Text, i, 1)
jiami = jiami + Chr(Asc(jmwz) + 1)
Next i
i = 0
Text.Text = jiami
End Sub
Private Sub Command2_Click()
For w = 1 To Len(Text.Text) Step 1
jiemiwz = Mid(Text.Text, w, 1)
jiemi = jiemi + Chr(Asc(jiemiwz) - 1)
Next w
w = 0
Text.Text = jiemi
End Sub

❽ 求一个安全性稍高的vb6 密匙 加密/解密 算法 100分

AES加密算法可以自定义密钥
很好用适合管道通讯加密
还有WEB系统的管理登陆认证

❾ 用VB实现加密解密程序。

这里只给出按钮事件的过程，加密算法（函数）你自己想办法：
设加密算法函数名为encryptxt，解密算法函数名为unencryptxt，不带参数。
加密窗口“生成密文”按钮事件：
Private sub 生成密文_Click()
Frame1.Caption = encryptxt (Text1.text)
End Sub

解密窗口“解密”按钮事件：
Private Sub 解密_Click()
Frame2.Caption = unencryptxt(Rrame1.Caption)
End Sub

❿ vb加密算法

PrivateSubCommand1_Click()
DimtAsString
t=Text1.Text
Text2.Text=Encrypt(t,177,86)
EndSub

PrivateSubCommand2_Click()
DimtAsString
t=Text2.Text
Text4.Text=Encrypt(t,177,86)
EndSub

亲，你这两个按钮里面的代码都是加密的啊！
最基本的知识你都没有理解！哪有加密和解密都用一样的代码！