字符串加密解密vb6源代码（用vb编写程序加密代码）

本篇文章给大家谈谈字符串加密解密vb6源代码，以及用vb编写程序加密代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB 实现字符串加密 解密
• 2、如何解密vb加密过的字符串，有加密代码
• 3、VB 字符串加密解密[高分]

VB 实现字符串加密 解密

'如果是将text1中每个字符的asc码值转化为16进制实现加密解密可以这样：复制粘贴下段代码

'加密数据

Private Sub Command1_Click()

Text2.Tag = "" '清空text2.tag用来存储加密后数据

Text2.Text = "" '清空text2用来显示加密后数据

For i = 1 To Len(Text1.Text) '将text1中每个字符的asc码值转化为十六进制以软回车chr(13)分隔并存储在text2.tag中

Text2.Tag = Text2.Tag Hex(Asc(Mid(Text1.Text, i, 1))) Chr(13) '

Next

Text2.Text = Text2.Tag '显示加密后数据

End Sub

'解密数据

Private Sub Command2_Click()

Text1.Tag = ""

Text1.Text = ""

Dim b() As String '定义数组用来存储由text1中每个字符转化来的十六进制数

b = Split(Text2.Text, Chr(13)) '以软回车符chr(13)分隔text2中文本并存储在数组b中

For i = 0 To UBound(b) '将text2中每个十六进制数转化为十进制的asc码值后转化为字符

Text1.Tag = Text1.Tag Chr(Val("h" b(i)))

Next

Text1.Text = Text1.Tag '显示原始数据

End Sub

如何解密vb加密过的字符串，有加密代码

'不是有解密函数了吗？

'调用函数就行,如下

原始字串$ = "Test"

加密串$ = encrypt(原始字串$)

原始字串$ = decrypt(加密串$)

-----------------------------

Function decrypt(dcode)

Dim texts

Dim i

For i = 1 To Len(dcode)

texts = texts Chr(Asc(Mid(dcode, i, 1)) - i)

Next

decrypt = texts

End Function

VB 字符串加密解密[高分]

就这样了，大概还行

Private Function Encrypt(ByVal StrSource As String) As String '加密

Dim BLowData As Byte

Dim BHigData As Byte

Dim i As Long

Dim k As Integer

Dim StrEncrypt As String

Dim StrChar As String

Dim KeyTemp As String

Dim Key1 As Byte

For k = 1 To 30

KeyTemp = KeyTemp CStr(Int(Rnd * (9) + 1))

Next

Key1 = CByte(Mid(KeyTemp, 11, 1) Mid(KeyTemp, 27, 1))

For i = 1 To Len(StrSource)

StrChar = Mid(StrSource, i, 1) '从待加密字符串中取出一个字符

BLowData = AscB(MidB(StrChar, 1, 1)) Xor Key1 '取字符的低字节和Key1进行异或运算

SHigData = AscB(MidB(StrChar, 2, 1)) '取字符的高字节

StrEncrypt = StrEncrypt ChrB(BLowData) ChrB(BHigData) '将运算后的数据合成新的字符

Next i

Encrypt = KeyTemp StrEncrypt

End FunctionPrivate Function Decrypt(ByVal StrSource As String) As String '解密

Dim BLowData As Byte

Dim BHigData As Byte

Dim i As Long

Dim k As Integer

Dim StrDecrypt As String

Dim StrChar As String

Dim KeyTemp As String

Dim Key1 As Byte

KeyTemp = Mid(StrSource, 1, 30)

Key1 = CByte(Mid(KeyTemp, 11, 1) Mid(KeyTemp, 27, 1))

For i = 31 To Len(StrSource)

StrChar = Mid(StrSource, i, 1) '从待解密字符串中取出一个字符

BLowData = AscB(MidB(StrChar, 1, 1)) Xor Key1 '取字符的低字节和Key1进行异或运算

BHigData = AscB(MidB(StrChar, 2, 1)) '取字符的高字节

StrDecrypt = StrDecrypt ChrB(BLowData) ChrB(BHigData) '将运算后的数据合成新的字符

Next i

Decrypt = StrDecryptEnd Function

Private Sub Command2_Click()

MsgBox Decrypt(InputBox(""))

End SubPrivate Sub Command1_Click()

Text1.Text = Encrypt(InputBox(""))

End Sub

字符串加密解密vb6源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb编写程序加密代码、字符串加密解密vb6源代码的信息别忘了在本站进行查找喔。