⑴ 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系统）