电话加密

Private Sub Command1_Click()
'本程序在WinXP ＋ VB6.0 环境下调试处理通过
'首先有一个文件名为Mima.txt的文本文件
'每行4个字符，都是数字组成，其中不能有空行
'最后输出文件为Output.txt,内容是解密后的内容
Dim Tmp As String, Tmp1 As String
Dim I As Long, J As Long, Num As Long
Dim A As Long, B As Long, C As Long, D As Long

Num = 0 '计数，统计已经处理了的数据数量

'打开源文件，可以将"D:\"改为"App.Path &"，可以读取当前目录下的文件
Open "D:\Mima.txt" For Input As #1
'打开输出文件，路径选择同上
Open "D:\Output.txt" For Output As #2

'发生错误，转向错误处理出口
On Error GoTo ErrCheck
' 循环至文件尾
Do While Not EOF(1)
'以数值方式读入一行原始数据，非数值将被转换为0
Input #1, J
'如果数据为负数或者大于9999，数值非法，提示后退出
If J < 0 Or J > 9999 Then GoTo ErrCheck
'将0～9999的数分离为4个单独的一位数
A = J \ 1000 Mod 10
B = J \ 100 Mod 10
C = J \ 10 Mod 10
D = J Mod 10
'每个数字单独处理，加7，然后取个位数
A