vb文本加密程序源代码(含vb.net)（用vb编写程序加密代码）

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

本文目录一览：

• 1、VB中如何编写一个加密程序?
• 2、用VB.net编写一个加密解密软件
• 3、我想做一个加密解密文件的VB程序！用des加密解密方法！！！ 希望高手解答！
• 4、VB如何给源代码加密
• 5、VB 加密与解密的程序代码

VB中如何编写一个加密程序?

编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。

字节逐位倒排序加密法是以比特为单位的换位加密方法，用vb实现的具体算法是：

(1) 以二进制模式打开源文件；

(2) 从源文件第i位读取一个字节，假设为字母“a”，得到“a”的ascii值为65；

(3) 将65转换成八位二进制串为“01000001”；

(4) 将“01000001”按字节逐位倒排序得另一个八位二进制串“10000010”；

(5) 将“10000010”转换成十进制再写回源文件第i位置，完成一个字节的加密；

(6) 重复(2)、(3)、(4)和(5)，直到所有字节加密结束。

为了使程序模块化，我们用函数过程bytetobin完成将字节型数据转换成二进制串（其实质就是将十进制数转换成八位二进制串）；用函数过程bintobyte将二进制串转换成字节型数据（实质是将八位二进制串转换成十进制数）：用函数过程reverse将八位二进制串逐位倒排序。具体程序如下：

function bytetobin(m as byte) as string ' 将字节型数据转换成八位二进制字符串

dim c$

c$ = ""

do while m 0

r = m mod 2

m = m \ 2

c$ = r c$

loop

c$ = right("00000000" c$, 8)

bytetobin = c$

end function

function reverse(m as string) as string ' 将八位二进制字符串颠倒顺序

dim i%, x$

x = ""

for i = 1 to 8

x = mid(m, i, 1) x

next i

reverse = x

end function

function bintobyte(m as string) as byte ' 将八位二进制串转换成十进制

dim x as string * 1, y%, z%

z = 0

for i = 1 to 8

x = mid(m, i, 1)

y = x * 2 ^ (8 - i)

z = z + y

next i

bintobyte = z

end function

private sub command1_click()

dim x as byte, i%, fname$

fname = inputbox("请输入要加密的文件名！注意加上路径名：")

if dir(fname) = "" then

msgbox "文件不存在！"

exit sub

end if

open fname for binary as #1 ' 以二进制访问模式打开待加密文件

for i = 1 to lof(1) ' lof函数是求文件长度的内部函数

get #1, i, x ' 取出第i个字节

x = bintobyte(reverse(bytetobin(x))) ' 这里调用了三个自定义函数

put #1, i, x ' 将加密后的这个字节写回到文件原位置

next i

close

msgbox "任务完成！"

end sub

用VB.net编写一个加密解密软件

"采用DES算法"这个说法不明确，首先是使用多少位的DES进行加密，通常是128位或192位，其次是，要先把主密钥转化成散列，才能供DES进行加密，转化的方法是什么没有明确，通常是md5，所以有的银行卡说是128位md5 3DS就是指用md5转换主密钥散列，用DES进行加密，但是DES本身是64位（包含校验码），2DES是128位，3DES是192位，但是没有2DES的叫法，所以128位、192位统称3DES

要完整的md5+3DS实例，需要100分以上，要不到我的空间中查找相关的文章

我想做一个加密解密文件的VB程序！用des加密解密方法！！！ 希望高手解答！

vb.net code注意随机密码按钮在没用，调试时你自己输入密码，一定为8位，我是将文件存在D盘，你自己在修改一下，那个就很简单

Imports System.IO

Imports System.Security.Cryptography

Imports System.Text

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sSecretKey As String = Me.TextBox2.Text

EncryptFile(Me.TextBox1.Text, "D:\JMtest.txt", sSecretKey)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sSecretKey As String = Me.TextBox2.Text

DecryptFile("D:\JMtest.txt", "D:\Decrypted.txt", sSecretKey)

End Sub

Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)

Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)

Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)

Dim DES As New DESCryptoServiceProvider

DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)

DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)

Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()

Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)

Dim byteArrayInput(fsInput.Length - 1) As Byte

fsInput.Read(byteArrayInput, 0, byteArrayInput.Length)

cryptostream.Write(byteArrayInput, 0, byteArrayInput.Length)

cryptostream.Close()

End Sub

Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)

Dim DES As New DESCryptoServiceProvider

DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)

DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)

Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)

Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor

Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)

Dim fsDecrypted As New StreamWriter(sOutputFilename)

fsDecrypted.Write(New StreamReader(cryptostreamDecr, System.Text.ASCIIEncoding.Default).ReadToEnd)

fsDecrypted.Flush()

fsDecrypted.Close()

End Sub

Private Sub BtnChoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChoose.Click

OpenFileDialog1.FileName = ""

OpenFileDialog1.Filter = "txt files (*.txt)|*.txt"

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName "" Then

Me.TextBox1.Text = OpenFileDialog1.FileName

End If

End Sub

End Class

VB如何给源代码加密

1

用vb自带的vss管理你的代码

不用的时候签入

不保留本地副本

需要用和看的时候下载下来

2

可以给数据库换后缀名（aa.bmp换成aa.dll）并且给数据库加上密码

我还看到有人把数据库的前10位字节取出来

然后读取的时候动态加上这10个字节读取

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.net)的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb编写程序加密代码、vb文本加密程序源代码(含vb.net)的信息别忘了在本站进行查找喔。