module1.bas

可以位你的文件加密活解密

Attribute VB_Name = "Module1"
Sub MyShow(FileN As String, SBegin As Integer, SEnd As Integer, SCon As Control)
SCon.Text = FileN

Dim char As Byte
Dim FileNum As Integer
Dim i As Integer
i = SBegin
'FileNum = FreeFile
SCon.Text = ""
Open FileN For Binary As #1
Do While (Not EOF(1)) And i <= SEnd
   Get #1, i, char
   SCon.Text = SCon.Text & Format(Hex$(char), "00") & " "
   i = i + 1
Loop
Close #1

End Sub


'Jiami Trim(TxtS.Text), Val(TxtMy.Text), Trim(TxtT.Text)
Sub JiaMi(Ts As String, MiMa As Byte, TT As String)

Dim char As Byte
Open Ts For Binary As #1
Open TT For Binary As #2

Do While Not EOF(1)
    Get #1, , char
    Put #2, , char Xor MiMa
Loop
Close #1
Close #2

End Sub

Sub JiaM(Ts As String, MiMa As String, TT As String)

Dim char As Byte
Dim CharM As Byte
Dim xx As Byte
Open Ts For Binary As #1
Open MiMa For Binary As #3
Open TT For Binary As #2

Do While Not EOF(1)
    Get #1, , char
    Get #3, , CharM
    xx = CharM Xor char
    Put #2, , xx
    
Loop

Close #1
Close #2
Close #3

End Sub