Function EnCode(key, scFileName,dtFileName) '加密函数
'需要补全的地方在这里
dtText.write step2
End Function
'----------------------------分割线---------------------
Function DeCode(key, scFileName,dtFileName) '解密函数
set fso = CreateObject("Scripting.FileSystemObject")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If key < -95 or key > 95 Then '
msgbox "参数非法" '
Wscript.quit '
End If '
'
If fso.FileExists(scFileName) = False Then '
msgbox "文件" & scFileName & "不存在" '
Wscript.quit '
End If '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set scText = fso.OpenTextFile(scFileName,1)
Set dtText = fso.CreateTextFile(dtFileName)
str = scText.readall
'''''''''''''''''''''''''''''''第一轮解密''''''''13'''' '
jiemi = Replace(str, "氍", """") '
For I = 1 To Len(jiemi) '
If Mid(jiemi, I, 1) <> "冱" Then '
step1 = Mid(jiemi, I, 1) + step1 '
Else '
'
step1 = vbCrLf + step1 '
End If '
Next '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''第二轮解密''''''''''''''移位''''''''''''''
For i = 1 To Len(step1) '
'
If ascw(mid(step1,i,1)) < 32 Or ascw(mid(step1,i,1)) > 126 Then '
step2 = step2 & chrw(ascw(mid(step1,i,1))) '
Else '
pk = asc(mid(step1,i,1)) - key '
If pk > 126 Then '
pk = pk - 95 '
ElseIf pk < 32 Then '
pk = pk + 95 '
End If '
step2 = step2 & chr(pk) '
End If '
'
Next '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dtText.write step2
End Function
EnCode 82, "Code.txt","enCode.txt" '调用加密函数,对 Code.txt 进行加密,生成 enCode.txt 文件
DeCode 82, "enCode.txt","deCode.txt" '调用解密函数,对 enCode.txt 进行解密,生成 deCode.txt 文件
以上题目解密程序的代码已给出,但由于我主要研究c语言,所以不太明白,求它的加密过程最好也用vbs解答并给予解释给新手们领一下路,当然用c的话也好。
[课程]FART 脱壳王!加量不加价!FART作者讲授!