说说怎么解这种简单编码的（tejpe616818 的帖子）

说说如何解这种简单编码的（tejpe616818 的帖子）
破解思路：

300-03/diskagf/agf22/01/ 的 ASCII 码：
3330302D30332F......，实际编码：
6360605D60635F9499A39B9197965F91979662625F60615F3534333330323030

立刻可以想到，所有的 ASCII 减去 &H30。串尾 30

/300-04/diskqit/qit16/03/ 的 ASCII 是
3330302D30342F......，实际编码：
6461615E616560959AA49CA29AA560A29AA56267606164603134383030313631

相差 &H31。它的串尾恰好是 31.

再看第三串，得到进一步的印证。

因此，编码规则就是所有的 ASCII 码加上一个数。这个数放在串尾。

优化之后的解码函数：



Public Function strH2C(ByVal strInfo As String) As String

Dim i As Integer


For i = 1 To Len(strInfo) - 16 Step 2

strH2C = strH2C & Chr(Val("&H" & Mid(strInfo, i, 2)) - Val("&H" & Right(strInfo,2)))

Next i

End Function

这是一种简单而古老的置换密码方式，且密钥出现在密文中。在有明文和密文钥的情况下，破解不困难。

------解决方案--------------------
沙发，头排说说怎么解这种简单编码的（tejpe616818 的帖子）