YXScript.dll（解密VBScript.Encode）组建更新

上次的DLL在各位使用之后出现了一些不足，下面就对这些地方的更新做一个说明：

 

其实失误并不在DLL本身，也就是说，DLL的函数YXScrDecode基本是准确无误的，错就错在给他传递

参数的VB这一块，先看下原来的代码

 

Public Function DCScript(ByVal Script As String) As String Dim s As String, l As Long Dim b As Long, e As Long Dim k As Long l = LenB(Script): s = Space(l) '... b = InStr(Script, "#@~^") '#@~^******== e = InStr(Script, "^#~@") '******==^#~@ If b = 0 Or e = 0 Then If MsgBox("没找到密文开始/结束标识,解密结果可能有误!要继续吗?", vbYesNo) = vbNo Then Exit Function Else If e = 0 Then e = l Else e = e - 8 If b = 0 Then b = 1 Else b = b + 12 End If Else b = b + 12 '为0则全部解密 e = e - 8 '为0则算到末尾 End If frmMain.Caption = "Decoding ..." Script = Mid(Script, b, e - b + 1) 'Script = Replace(Script, "@#", Chr(13)) 'Script = Replace(Script, "@&", Chr(10)) Script = Replace(Script, "@#@&", Chr(13) + Chr(10)) 'vbcCrlf Script = Replace(Script, "@!", "<") Script = Replace(Script, "@*", ">") Script = Replace(Script, "@$", "@") '最后生成@ k = YXScrDecode(Script, s，Len（Script）) DCScript = Left(s, k) End Function

 

最后那里：Len（Script）或者LenB（Script）

导致了解密有有一部分代码不见了，用LenB则多出很多奇怪的字符，经过检查找出是Len函数

的问题，测试如下

 

    'lpstr(0) = "Hello!"             '半角Len = 6;LenB = 12
    'lpstr(1) = "Hello！"            '全角Len = 6;LenB = 12
    'lpstr(2) = "Hello!" & vbCr      '回车Len = 7;LenB = 14
    'lpstr(3) = "Hello!" & vbCrLf    '换行Len = 8;LenB = 16

也就是说Len返回时字符数，LenB返回字节数但是每个字符按2字节算！即Unicode那种。

为了解决这个问题，VB程序员可以用Len和LenB的返回值就算具体的字节数，方法这里就不说了

不然越扯越远，我相信广大程序员都是很聪明的~

 

YXScript.DLL这次更新 提供了一个函数高效率的处理这个问题，函数YXHowManyBytes

只需要提供一个参数 lpString 返回该参数的字节数（Long）

经过处理后的代码:

 

Public Function DCScript(ByVal Script As String) As String Dim s As String, l As Long Dim b As Long, e As Long Dim k As Long l = LenB(Script): s = Space(l) '... b = InStr(Script, "#@~^") '#@~^******== e = InStr(Script, "^#~@") '******==^#~@ If b = 0 Or e = 0 Then If MsgBox("没找到密文开始/结束标识,解密结果可能有误!要继续吗?", vbYesNo) = vbNo Then Exit Function Else If e = 0 Then e = l Else e = e - 8 If b = 0 Then b = 1 Else b = b + 12 End If Else b = b + 12 '为0则全部解密 e = e - 8 '为0则算到末尾 End If frmMain.Caption = "Decoding ..." Script = Mid(Script, b, e - b + 1) 'Script = Replace(Script, "@#", Chr(13)) 'Script = Replace(Script, "@&", Chr(10)) Script = Replace(Script, "@#@&", Chr(13) + Chr(10)) 'vbcCrlf Script = Replace(Script, "@!", "<") Script = Replace(Script, "@*", ">") Script = Replace(Script, "@$", "@") '最后生成@ 'k = YXScrDecode(Script, s, Len(Script)) k = YXScrDecoder(Script, s) 's = Replace(s, Chr(13) + Chr(2), vbCrLf)'查出来是0x10和0x0A的原因 '引出另一个问题,为什么char数组第-1个元素为0x02 frmMain.Caption = "碰到我算你倒霉!" DCScript = Left(s, k) End Function

这里提供一个新的函数，YXScrDecoder --多一个r，少一个参数szCount，也就是不必传递字符串的长度

但是lpResult起码有YXHowManyBytes(lpString)长度，否则可能导致内存访问错误 

 

 

解密CR+LF的时候得到CR 和 0x02 我还不知道是什么原因使C语言字符数组的第-1个元素是0x02，

这次也同时把这个地方解决了，即解码的时候只处理0x09以上的字符,

同时发现在某些计算机上，n会显示为-，正在查原因

下图为解码某个脚本后的效果

 

更新后的源代码可以在我的下载里找到，不需要分分：

http://download.csdn.net/prsniper

 

感谢为这次更新提供宝贵意见的朋友，也再次证明，用户的反馈是最有实际意义的！