zoukankan      html  css  js  c++  java
  • 用vb编程给u盘加密

    大家一般情况下是怎么给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盘加密,以上方法还适用于移动硬盘加密,你可以试试看看效果怎么样?
  • 相关阅读:
    上传图片至fastdfs显示连接超时
    Linux上安装maven
    multipartFile.getOriginalFilename();不能获取原文件名称,也就是含有路径名
    /usr/bin/ld: cannot find -lfdfsclient
    linux开放22端口
    Ajax上传file出现的bad request问题
    easyui combobox实现下拉自动提示补全功能
    js格式化时间
    codeforces 780B
    codeforces 61 D 115 A
  • 原文地址:https://www.cnblogs.com/cksis/p/2567702.html
Copyright © 2011-2022 走看看