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

最新推荐文章于 2016-09-19 08:18:00 发布

iteye_17377

最新推荐文章于 2016-09-19 08:18:00 发布

阅读量255

点赞数

文章标签： c/c++

上次的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会显示为-，正在查原因

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