vb軟體加密-ag真人国际官网

c. vb 加密與解密的程序代碼

加密：

privatefunction 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

nexti

jiami = strjiami

endfunction

解密函數：

privatefunction 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))

nexti

jiemi = varfinalpass

endfunction

(3)vb軟體加密擴展閱讀：

注意事項

編寫加密程序，將用戶輸入的一個英文句子加密為加密字元串，然後輸出加密字元串。假設句子長度不超過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 指向加密字元串的字元串指針；

字元加密函數代碼。

d. 怎樣用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
本例可以完成對任意文件的加密與解密，對同一文件作第一次處理為加密，第二次處理為解族搭密。要調試本程序，碧昌可用記事本在c盤根目錄下任意建立一個文本文件（假設為文件名為aaa.txt），其中的內容任意（可以包括字母、漢字、數字、回車符、換行符等）。運行本程序後，在輸入文件名的對話框中輸入文件名（如：「c:\aaa.txt」）後回車，即可完成對文件的加密。文件加密後，可以在記事本中打開該文件查看加密效果。如果想解密，可再次運行該程序並輸入相同文件名。