vb解密代码（vb源代码加密）[20240430更新]

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

本文目录一览：

• 1、求vb加解密字符串代码，要求能够支持中文，加密后不要太长,谢谢
• 2、VB MD5加密解密的代码
• 3、使用VB作出加密，解密并显示密钥
• 4、用vb编一个加密解密的程序
• 5、求vb一个加密解密的编程
• 6、VB 加密与解密的程序代码

求vb加解密字符串代码，要求能够支持中文，加密后不要太长,谢谢

我只是重写，加密，不会干扰生产，以满足XML规范的密文的XML解析为一个字符串到XML文件中。

加密的呼叫：fun_encryptun

解密呼叫：fun_cryptun

********** **************************************************名称Fun_Changea

早晨胡20130207

功能转换成整数的中国数字******************

/ '参数i，要转换为数字

'*********************************** ************************************************** ********

：功能Fun_Changea（我为整数）作为字符串

选择案例我

案例0

Fun_Changea =“0”

案例1 BR / Fun_Changea =“”的

Fun_Changea

案例2

Fun_Changea =“

案例3 = 3

案例4

Fun_Changea =“

案例5

Fun_Changea”十一五“

案例6

Fun_Changea =”“

案例7

Fun_Changea =”7“案例8

Fun_Changea =“八”

案例9

Fun_Changea =“九”

末页选择

功能

'** ************************************************** ********************************** *******

名称Fun_EncryptuN

早晨胡20130207

“功能的字符串加密操作

参数SSTR需要加密数据的回归串好的加密

'***** ************************************************** **************************************

：功能Fun_EncryptUN（BYVAL SSTR）作为字符串

昏暗的STMP，发送，stmp1

昏暗的e为双

昏暗的I1，I2，I3，I4

SSTR =修剪（SSTR）

（SSTR）如果len = 0

Fun_EncryptUN = SSTR

退出功能

如果

I1 = LEN（SSTR）

STMP =“”

字符串转换五位数字的字符串

I2 = 1到I1

STMP STMP和右（CSTR（50000 + AscW会（中（SSTR，I2，1））），5）

I1 = LEN（STMP）

数字字符串转换字母秘密的人

I2 = 2步骤1到I1

I4 = CINT（MID（STMP，I2，2））+ 32 BR /如果I4 127然后

stmp1 Fun_Changea（I4 - 127）

其他

选择案例I4

案例34

stmp1 =“韩国” BR /案例38 stmp1 =”汉莎航空“

案例39 stmp1 =“阳”

案例60

stmp1 = I“

案例62

stmp1 =“”;的66

案例stmp1 =“心脏”

案例71

stmp1 =“肝”

案例否则...... / stmp1 = CHR（I4）

选择

最后

发送=发送和stmp1

Fun_EncryptUN =发送

功能

'************************************************ *********************************************

名称Fun_CryptUN

早晨胡20130207

函数字符串解密操作

参数SSTR需要解密的数据

返回解密的字符串

*** ************************************************** ****************************************

的功能Fun_CryptUN（BYVAL SSTR）字符串

昏暗的STMP，发送，stmp1

昏暗的D作为双

昏暗的I1，I2，I3，I4

SSTR =修剪（SSTR）

如果LEN（SSTR ）= 0

Fun_CryptUN SSTR

退出功能

如果

I1 = LEN（SSTR）

I3 = I1 * 2 \ 3

I2 = MID（SSTR，I2，1）= 1到I1

stmp1

如果的Asc（stmp1）的0

中的Select Case stmp1

/“韩国”I4 = I4 = 39

案例34

“汉莎”

I4 = 38

案例“青年

”我“

I4

= 60

案“I4 = 62

案”心脏“

I4 = 66

案”肝“

I4 = 71

的Case Else

I4 = Fun_Changec（stmp1）+ 127

选择

其他

I4 = ASC（stmp1）

如果

如果I3 / 2 酷睿i3 \ 2和I2 = I1

STMP STMP CSTR（I4 - 32）

其他

STMP = STMP和右（CSTR（100 + I4 - 32），2） BR /结束如果

I2 = 1到LEN（STMP）第5步

发送发送和ChrW函数（CLng函数（MID（STMP，I2，5）） - 50000） BR /

Fun_CryptUN =发送

功能

**************************** ************************************************** ***************

名称Fun_Changec

功能，中国数字转换为整数

字符

参数i，被转换成'返回

'***************************************** ************************************************** *

的功能Fun_Changec（BYVAL SSTR）作为整数

选择案例SSTR

案“的”

Fun_Changec = 1 BR

Fun_Changec = 2

案例“/案”

Fun_Changec = 3

案例“四个一”

Fun_Changec = 4

案“

Fun_Changec = 5

案例VI

Fun_Changec = 6

案“

Fun_Changec = 7

案例”八“

Fun_Changec = 8

案例9

Fun_Changec = 9

最终选择

端功能

VB MD5加密解密的代码

Dim md5 As New MD5CryptoServiceProvider

Dim username As Byte() = (New ASCIIEncoding).GetBytes(TextBox1.Text)

'转换为哈希值Byte数组

Dim mdByte As Byte() = md5.ComputeHash(username)

'Dim mdString As String = System.BitConverter.ToString(mdByte)

Dim mdString As String = (New ASCIIEncoding).GetString(mdByte)

TextBox2.Text = mdString

md5理论上是不可破解的，要对照，只能再次加密后对照，网上也有些专门破解的网站，不过我想你要的不是那个吧

使用VB作出加密，解密并显示密钥

'这是我以前回答别人提问时写的，添加三个文本框，一个按钮。text3文本框中输入要加密的

'文本，在text2中是加密的文本，在text1中是对加密的文本解密。加密和解密用同一个

'过程'Private Function JiaMi(a As String) As String

Private Sub Command1_Click()

Dim a As String

Dim b As String

a = Text3

For i = 1 To Len(a)

b = b JiaMi(Mid(a, i, 1))

Next i

Text2 = b

a = Text2

b = ""

For i = 1 To Len(a)

b = b JiaMi(Mid(a, i, 1))

Next i

Text1 = b

End Sub

Private Function JiaMi(a As String) As String

Dim IntAsc As Integer

IntAsc = Asc(a)

If IntAsc Mod 2 Then

IntAsc = IntAsc + 47

If IntAsc 126 Then IntAsc = IntAsc - 47

Else

IntAsc = IntAsc - 47

If IntAsc 33 Then IntAsc = IntAsc + 47

End If

JiaMi = Chr(IntAsc)

End Function

用vb编一个加密解密的程序

在窗体上至少添加文件控件：Drive控件，Dir控件，File控件，以及Command控件，每次用Xor加密解密后，在文件名加上前缀X-，另外保存

其他控件你可以添加，用来装饰，比如Label，用做提示

■这已经是详细完整的程序了，窗体添加控件你自己应该会吧？添加后，把下面内容复制到代码窗口就可以了■

Private Sub Command1_Click()

Dim oldFile As String, newfile As String, theByte As Byte

If File1.FileName = "" Then MsgBox "请选择需要加密或解密的文件！": Exit Sub

oldFile = Dir1.Path "\" File1.FileName

newfile = Dir1.Path "\X-" File1.FileName

Open oldFile For Binary As #1 Len = 1

Open newfile For Binary As #2

Do

Get #1, , theByte

theByte = 7 Xor theByte

Put #2, , theByte

Loop Until EOF(1)

Close #1

Close #2

MsgBox "加密或解密后的文件存放在“" newfile "”中！"

File1.Refresh

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub Form_Load()

File1.Pattern = "*.txt" '只列出txt文本文件，如果要列出全部文件，改成*.*

Command1.Caption = "加密解密"

End Sub

求vb一个加密解密的编程

Private Sub Command1_Click()

Text2.Text = trans(Text1.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = trans(Text2.Text)

End Sub

Private Function trans(s As String) As String

For i = 1 To Len(s)

aaa = Mid(s, i, 1)

If Not IsNumeric(aaa) Then

If UCase(aaa) = aaa Then

s1 = s1 Chr(155 - (Asc(aaa)))

Else

s1 = s1 Chr(219 - (Asc(aaa)))

End If

Else

s1 = s1 aaa

End If

Next i

trans = s1

End Function

VB 加密与解密的程序代码

加密：

Private Function 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

Next I

JiaMi = strJiaMi

End Function

解密函数：

Private Function 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))

Next I

JieMi = varFinalPass

End Function

扩展资料：

注意事项

编写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过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解密代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb源代码加密、vb解密代码的信息别忘了在本站进行查找喔。