vbdes算法

Ⅰ 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算法具有 什么 5个重要特征

（1）确定性：指算法的每个步骤都应确切无误，没有歧义。
（2）可行性：指算法的每个步骤必须是计算机能够有效执行、可以实现的，并可得到确定的结果。
（3）有穷性：指一个算法应该在有限的时间和步骤内可以执行完毕的。
（4）输入性：指一个算法可以有0或多个输入数据。
（5）输出性：指一个算法必须有一个或多个输出结果。

Ⅲ 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)
End坦芦滑Sub

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

Ⅳ VB加密算法

首先程序定义两个字符串k1和k2；
这里他给出了一个Text1变量，应该是一个全局变量，在程序之前已经定义了。
首先定义code为一个字符串，将Text1里面的文字用LCase()函数将大写字母转换成小写字母。
加密的过程开始，为那一个循环过程。
在这个循环里 设定i的区间是1到code的长度
每个循环开始时候，将code中每一个字母取出来，赋值到s变量里面。
然后判断如果s不是空字符时候，将n赋值为s中的字母与字母a的一个"距离"(这里说不知道你明白不，你好好理解一下吧)。
假如i，即s里面的那个字母在code中是第几位的位数，不是2的倍数，那么就将在decode里面加入k1字符串中的第n个字母。假如i是2的倍数的话，就在decode加入k2字符串里面的第n个字母。

在刚才判断s是否为空字符时候，假如得到的s是为空字符，即跳入以下过程、。
假如i不是2的倍数，空格那个字母变为k1的第27个字母即p，就加入k2的第27个字母即z。

最后将decode赋值给text2。

其实这个程序很简单，定义两个字符串，分别是27个字母，等于是26个字母加空格，再把顺序掉乱。然后根据需要加密的字符串来分别去每一个字母，根据字母的位置来确定取k1或者k2对应的那个掩码字母。

Ⅳ 我想做一个加密解密文件的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