Sub ReadFiles
Dim fso, f1, ts, s
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("F:\testfile.txt", True)
'写一行。
msgbox "Writing file <br>"
f1.WriteLine Str2Num("Hello World")
f1.WriteBlankLines(1)
f1.Close
' 读取文件的内容。
msgbox "Reading file"
Set ts = fso.OpenTextFile("F:\testfile.txt", ForReading)
s = ts.ReadLine
msgbox "File contents = '" & Num2Str(s) & "'"
ts.Close
End Sub
call readfiles
'以上为文件读写
'以下为Str2Num和Num2Str函数
On Error Resume Next
Function Encrypt(theNumber)
On Error Resume Next
Dim n, szEnc, t, HiN, LoN, i
n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
If n < 0 Then szEnc = "R" Else szEnc = "J"
n = CStr(abs(n))
For i = 1 To Len(n) step 2
t = Mid(n, i, 2)
If Len(t) = 1 Then
szEnc = szEnc & t
Exit For
End If
HiN = (CInt(t) And 240) / 16
LoN = CInt(t) And 15
szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN)
Next
Encrypt = szEnc
End Function
Function Decrypt(theNumber)
On Error Resume Next
Dim e, n, sign, t, HiN, LoN, NewN, i
e = theNumber
If Left(e, 1) = "R" Then sign = -1 Else sign = 1
e = Mid(e, 2)
NewN = ""
For i = 1 To Len(e) step 2
t = Mid(e, i, 2)
If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then
NewN = NewN & t
Exit For
End If
HiN = Mid(t, 1, 1)
LoN = Mid(t, 2, 1)
HiN = (Asc(HiN) - Asc("M")) * 16
LoN = Asc(LoN) - Asc("C")
t = CStr(HiN Or LoN)
If Len(t) = 1 Then t = "0" & t
NewN = NewN & t
Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function
Function Str2Num(vIn)
dim strReturn,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To Len(vIn)
ThisCharCode = hex(AscW(Mid(vIn,i,1)))
if (len(ThisCharCode) mod 2) <> 0 then
ThisCharCode = "0" & ThisCharCode
end if
strReturn = strReturn & "%" & ThisCharCode
Next
Str2Num = strReturn
End Function
Function Num2Str(vIn)
dim strReturn,arr,i
strReturn = ""
arr = split(vIn,"%")
For each i in arr
if i <> "" then
strReturn = strReturn & ChrW(eval("&H" & i))
end if
Next
Num2Str = strReturn
End Function
Function Str2NumEnc(vIn)
dim strReturn,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To Len(vIn)
strReturn = strReturn & "%" & Encrypt(AscW(Mid(vIn,i,1)))
Next
Str2NumEnc = strReturn
End Function
Function Num2StrDec(vIn)
dim strReturn,arr,i
strReturn = ""
arr = split(vIn,"%")
For each i in arr
if i <> "" then
strReturn = strReturn & ChrW(eval(Decrypt(i)))
end if
Next
Num2StrDec = strReturn
End Function
