⑴ U盤加密源碼，需要使用C語言編寫，能夠識別新插入的U盤，並且對U盤實施加密
1，加密U盤為將用戶的U盤重新劃分為兩個盤，一個普通盤，一個加密盤，普通盤跟原來的U盤一樣可以在任何PC或者其它設備上面訪問，加密盤必須通過CnCrypt輸入密碼後才能進行使用。
2，加密U盤為用戶提供了真正的高強度加密功能，如果用戶加上了一個復雜的密碼後，以目前的計算機配置來說是幾乎無法進行強行破解的。
3，軟體沒有任何自動聯網操作，保證用戶密碼，數據不會被泄露。
⑵ 誰能給我一個U盤加密軟體的源代碼
u盤超級加密3000到任何一台電腦上都可以加密和解密，很方便。您可以到網路上下載u盤超加密3000試試
⑶ U盤加密軟體程序用VC是怎麼編的
先學vc，了解掌握基本演算法
再學vb
沒捷徑
起碼三個月
努力把你
⑷ 用C#寫一個U盤加密程序，告訴我源代碼就可以，3Q
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
⑸ 怎麼對U盤加密有沒有什麼加密程序
我推薦用winmend，這個的個隱藏文件的好工具，可以放在U盤中用的。。這個軟體最大的特點是，你用它隱藏了一個文件，那無論如何不管你是重裝系統還是干嗎破解的，都無法打開那個文件，除非你知道密碼，當然，那個密碼是你自己設置的，軟體不難，你自己下載試試。！
⑹ 如何為整個U盤加密，實現效果是雙擊U盤打開時，出現輸入密碼的提示。。。只要腳本或者程序源碼，不要軟體
U盤加密最好使用U盤超級加密3000。
U盤超級加密3000是專業的U盤加密軟體和移動硬碟加密軟體。
U盤超級加密 3000可以幾秒內加密U盤和加密移動硬碟裡面的全部文件和文件夾或者是你指定的需要加密的文件和需要加密的文件夾。解密時也可以解密全部加密的文件和加密的文件夾或只解密你需要使用的加密文件和加密文件夾。
U盤超級加密3000有完美的移動性，超快遞加密和解密速度，並且是綠色軟體不用安裝。
下載地址：在網路上搜索U盤超級加密3000
⑺ 用VB編寫一個U盤加密的程序。請告訴我源代碼。不用很麻煩，就是增加一個打開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
⑻ U盤加密的程序誰有，要免費的，
系統自帶的Bitlocker 驅動器加密 免費的拿來給U盤加密不錯（只有旗艦版win7和專業版企業版win8有這個）
不過這個有個不是缺點的缺點，xp系統只能拷貝出東西，不能往裡面拷貝（僅限於xp系統）