vb加密-九游会j9娱乐平台

a. vb 字母 加密字元串

privatesubcommand1_click()'加密
dimpasstring,sasstring,tasstring
dimiasinteger,kasinteger
p=""
s=text1.text
fori=1tolen(s)
k=instr(p,mid(s,i,1))
ifk=0then
msgbox"數據有誤"
exitsub
else
t=t&mid(p,((k 4)mod52) 1,1)
endif
next
text2.text=t
text1.text=""
endsub

privatesubcommand2_click()'解密
dimpasstring,sasstring,tasstring
dimiasinteger,kasinteger
p=""
s=text2.text
fori=1tolen(s)
k=instr(p,mid(s,i,1))
ifk=0then
msgbox"數據有誤"
exitsub
else
t=t&mid(p,((k 46)mod52) 1,1)
endif
next
text1.text=t
text2.text=""
endsub

以上代碼用到四個控制項：text1放加密前的數據，text2放加密後的數據，command1點擊加密，command2點擊解密

b. vb源代碼如何加密

簡單點：
保存後將文件的後綴名改為如jpg,bmp之類的，別人不知道以為是圖片，打開打不開。

復雜點：
用壓縮或加密軟體，如winrar，加密碼壓縮，壓縮後刪除源文件；
如xx加密器，通過加密器加密文件，加密後文件不用原來的密碼根本打不開。

c. vb 數字加密代碼

dima(4)
b=val(text1)
fori=1to4
a(i)=(int(b/10^(4-i)) 7)mod10
next
text2=a(4)*1000 a(3)*100 a(2)*10 a(1)

d. vb 加密字元串的方法

privatesubcommand1_click()'加密
dimb()asbyte,iaslong
open"d:1.txt"forbinaryas#1
b=inputb(lof(1),#1)
close#1
randomize
fori=0toubound(b)-1
b(i)=b(i)xorb(i 1)
next
b(i)=b(i)xor93
open"d:2.txt"forbinaryas#1
put#1,,b
close#1
msgbox"1.txt已加密為2.txt"
endsub

privatesubcommand2_click()'解密
dimb()asbyte,iaslong
open"d:2.txt"forbinaryas#1
b=inputb(lof(1),#1)
close#1
randomize
b(ubound(b))=b(ubound(b))xor93
fori=ubound(b)-1to0step-1
b(i)=b(i)xorb(i 1)
next
open"d:3.txt"forbinaryas#1
put#1,,b
close#1
msgbox"2.txt已解密為3.txt"
endsub

1.txt加密後存為2.txt

2.txt解密後存為3.txt

請注意，這個程序是可以加密解密任何文件的（包括exe可執行文件），不單單是文本文件。

e. vb加密的問題

用vb加密文件
文本的加密與解密

文本的加密與解密
在vb中，由於隨機數生成器是偽隨機數，所以根據其原理可以用於文本的
加密和解密，根據異或邏輯運算，加密和解密可以是同一個過程。
加密與解密函數代碼如下。

'加密與解密函數說明:
' charsting 加密或解密的數據
' key 加密或解密的密鑰
'函數返回值:
' 1. charstring為空時返回"1"
' 2. 加密或解密失敗返回"0"
' 3. 成功則返回加密或解密後的字元串
public function edcode$(charstring as string, key as integer)
dim x as single, i as long
dim charnum as integer, randominteger as integer
dim charsingle as string * 1
on local error goto edcodeerror
edcode$ = ""
if len(charstring) = 0 then
edcode$ = "1"
exit function
end if
x = rnd(-key)
for i = 1 to len(charstring)
charsingle = mid$(charstring, i, 1)
charnum = asc(charsingle)
randominteger = int(256 * rnd) and &h7f
charnum = charnum xor randominteger
charsingle = chr$(charnum)
edcode$ = edcode$ charsingle
next i
exit function
edcodeerror:
edcode$ = "0"
end function

f. vb 口令加密

在窗體中放入一個按鈕和2個文本框。點擊按鈕看結果。

private sub command1_click()
text2 = ""
dim tmp, tmpchrcode, tmppwd

for i = 1 to len(text1)
tmp = mid(text1, i, 1)

select case tmp
case "a": tmppwd = "y"
case "b": tmppwd = "z"
case "a": tmppwd = "y"
case "b": tmppwd = "z"
case else: tmppwd = chr(asc(tmp) - 2)
end select
text2 = text2 & tmppwd
next

end sub

private sub form_load()
text1 = "在這里輸入字元串"
text2 = "結果會顯示在這里"
end sub

g. 怎樣給vb程序加密

讀別人的源代碼本來就不太容易。你既然要開源給對方，又不想讓讓人家更不容易讀懂，建議這樣做：
用批量替換的方法，把變數、常量、自定義函數、子程序、數組、控制項的名稱全部改成無意義的
比如，你可能會用
pananniannin
來表示判斷年齡子程序，用
age來表示年齡變數，現在統一把
pananninanin來替換成
fmcc,把age
替換成
xyz.
自己則記下這個工程各名稱的含義，我想，讓他一方面要主動性懂程序，一方面還要推測你某個具體變更的含義，進而進一步了解程序的含義，就夠讓對方抓狂一陣子了

h. 怎樣用vb程序給程序加密！！！

dim a as string
sub form_load
a=""'在""中輸入正確密碼
if not(inputbox("請輸入密碼")=a) then end
'……
'我也無法理解此代碼，抄書的。
end sub

i. vb加密解密

看你這架勢是要做勒索病毒啊 你一點基礎都沒有 病毒是那麼容易製作和傳播么 君子愛財取之有道 做力所能及的事吧 能力范圍外的別太浪費時間 人一生很短暫

j. 用vb如何給文件加密

這個比較麻煩的。

給文件加密，我還是建議您選擇專業的文件加密軟體。

超級加密3000擁有高強度加密演算法,有效保障數據安全!

建議您再加密文件的時候可以試試。