VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   525
      Left            =   1740
      TabIndex        =   0
      Top             =   1320
      Width           =   1245
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Function ByteToBin(m As Byte) As String    ' 將字節(jié)型數據轉換成八位二進制字符串
             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個字節(jié)
             x = BinToByte(Reverse(ByteToBin(x))) ' 這里調用了三個自定義函數
             Put #1, i, x                  ' 將加密后的這個字節(jié)寫回到文件原位置
             Next i
             End Sub