1.VB 加密与解密的程序代码
2.VB中如何编写一个加密程序?源码
3.Vb编程编写一个小程序，可以对输入的加密比心源码一段英文字符串进行加密和解密，加密算法中需要使用到学号后两位
4.VB怎编写明文加密和解密

VB 加密与解密的程序代码

       åŠ å¯†ï¼š

       Private Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容

       Dim varJiaMi As String *

       Dim varTmp As Double

       Dim strJiaMi As String

       Dim I

       For I = 1 To Len(varPass)

       varTmp = AscW(Mid$(varPass,源码bcash源码 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 *

       Dim varConvert As Double

       Dim varFinalPass As String

       Dim varKey As Integer

       Dim varPasslenth As Long

       varPasslenth = Len(varPass)

       For I = 1 To varPasslenth /

       varReturn = Mid(varPass, (I - 1) * + 1, )

       varConvert = Val(Trim(varReturn))

       varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

       varFinalPass = varFinalPass & ChrW(Val(varConvert))

       Next I

       JieMi = varFinalPass

       End Function

扩展资料：

       æ³¨æ„äº‹é¡¹

       ç¼–写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过个字符。

       æ ¹æ®ç»™å®šçš„句子加密函数原型SentenceEncoding，编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。

       ç„¶åŽï¼Œç¼–写主程序提示用户输入英文句子，然后调用函数SentenceEncoding对句子加密，最后输出加密后的句子。

       å­—符加密规则为大写字母和小写字母均加密为其补码, 我们定义ASCII码值相加为’A’+’Z’即的两个大写字母互为补码，ASCII码值相加为’a’+’z’即的两个小写字母互为补码。

       ç©ºæ ¼ç”¨@代替,句号以#代替,其它字符用句点代替。

       å‡½æ•°åŽŸåž‹ï¼š

       void SentenceEncoding(char *soure,char *code);

       åŠŸèƒ½ï¼šå¯¹å¾…加密字符串source加密后保存加密字符串到code.

       å‚数：char *soure，指向待加密句子的字符串指针；

       char *code 指向加密字符串的字符串指针；

       å­—符加密函数代码。

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

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

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

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

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

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

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

       (5) 将“”转换成十进制再写回源文件第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("" & 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编程编写一个小程序，可以对输入的加密cosplay源码一段英文字符串进行加密和解密，加密算法中需要使用到学号后两位

       以下是源码astc 源码根据学号末2位加密、解密的加密fixres 源码VB程序：

       Private Sub Form_Click()

         x = Val(Right(Text1.Text, 2))     '取学号末2位

         '以下是加密

         s = Text2.Text

         s1 = s

         For i = 1 To Len(s)

           c = Mid(s1, i, 1)

           Mid(s1, i, 1) = Chr(Asc(c) Xor x)

         Next i

         Text3.Text = s1

         

         '以下是解密

         s = s1

         For i = 1 To Len(s)

           c = Mid(s, i, 1)

           Mid(s, i, 1) = Chr(Asc(c) Xor x)

         Next i

         Text4.Text = s

       End Sub

VB怎编写明文加密和解密

       Private Sub Command2_Click()

       Dim strIN As String, strOUT As String, sec As String, strp As String, num As Integer, i As Integer, j As Double

       sec = "QWERTYUIOPASDFGHJKLZXCVBMN"

       strIN = Text2.Text '输入

       strIN = Replace(strIN, "KBK", " ") '空格处理

       num = Len(strIN)

       For i = 1 To num

        strp = Mid(strIN, i, 1) '取得自符

        j = InStr(1, sec, strp)

        If j < 0 Then

        '保留原来字符

        Debug.Print "*" & strp & "*"

        Else

        strp = Chr(j + Asc("a") - 1)

        End If

        strOUT = strOUT & strp

       Next i

       Text1.Text = strOUT

       End Sub

       ==================================