请问苯褥箭势尤vrr这样的字符怎么来的

看代码时候看到

Label1.Caption = Decode("苯褥箭势尤vrrbbb咯贰得子尤褥箭、纬粳vrrbbb得寿颧徐咳咳矣子尤贰不赋峙+椽菠嘎褥箭、")

转换过程

Public Function Decode(str As String)

Dim Tmp As String, i As Long, t1, t2, t3

For i = 1 To Len(str)

t1 = Mid$(str, i, 1) '返回 Variant (String)，其中包含字符串中指定数量的字符。
t2 = Asc(t1) + 1 '返回一个 Integer，代表字符串中首字母的字符代码。

'chr 返回 String，其中包含有与指定的字符代码相关的字符 。

Tmp = Tmp & Chr$(t2)

Next ' SetParent myfrm.hwnd, h

Decode = Tmp ' SetParent myfrm.hwnd, h
Debug.Print Decode
End Function

请问如果我的正常字符怎么转换为这种怪字符，即逆算法。

这其实是个很简单的算法，只是通过 VB 的 Asc 函数对字符进行编码操作(尽管这是汉字！！！！！！Asc(汉字) 得到的总是负数！！！)

当然是乱码，否则难道真的会翻译成。。。“星期天轰炸五角大楼，拉登”这样通顺的句子吗？
编码就是为了两个目的之一，压缩或不被人看懂。这个算法就是第二种目的。