用vb程式設計給u盤加密

2022-02-05 02:23:07 字數 1111 閱讀 3060

大家一般情況下是怎麼給u盤加密的呢?你是使用u盤加密軟體還是使用其他的一些什麼方法,那麼我現在給大家介紹乙個新的方法,就是使用vb程式設計來給u盤加密。

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程式設計來給u盤加密,以上方法還適用於行動硬碟加密,你可以試試看看效果怎麼樣?

怎樣給U盤加密

的u盤加密軟體就可以了。這款u盤加密的軟體最大的特點是不用安裝,只要乙個exe檔案。你把它放到你需要加密的u盤裡,就可以加密u盤裡的資料了。並且到任何一台電腦上都可以加密和解密,很方便。下面我就給大家說一下如何使用u盤超級加密3000給u盤加密。工具 原料 u盤超級加密3000 步驟 方法 雙擊ud...

怎樣給U盤加密和怎樣給行動硬碟加密

的u盤加密軟體就可以了。這款u盤加密的軟體最大的特點是不用安裝,只要乙個exe檔案。你把它放到你需要加密的u盤裡,就可以加密u盤裡的資料了。並且到任何一台電腦上都可以加密和解密,很方便。下面我就給大家說一下如何使用u盤超級加密3000給u盤加密。步驟 方法 2.雙擊ude.exe,就會彈出乙個密碼輸...

linuxliveu盤怎麼用 U盤故障修復實踐

最近收拾房間,偶然找出乙個壞的u盤。這個u盤是我16年買的,容量8g,憶捷牌。買回來乙個月,僅使用了兩次,就出現故障,沒法用了。之後就一直仍在抽屜裡。正好最近休假,就想著能不能讓它起死回生。查了相關資料,說是如果u盤沒有物理損壞,就可以用量產工具修復。然後經過多次嘗試量產,終於讓u盤起死回生了。現將...