加密解密函数（另附加密解密函数可逆测试程序） Public Function UserCode(Optional ByVal password As String) As String '用户口令加密-非汉字 Dim il_bit, il_x, il_y, il_z, il_len, i As Long Dim is_out As String If password = "" Then Exit Function '注意此修改 il_len = Len(passwo rd) il_x = 0
VB字符保密-字符加密例子，来源于VB软件防破解初探中的一个例子，核心代码如下： Private Function ZiFujiemi(anum As Long, bnum As Long) As String 字符解密函数,用这个函数之前可以用相反的逆算来得到加密后的形式 ZiFujiemi = ChrW(anum Xor bnum) End Function Private Sub Command1_Click() MsgBox ZiFujiemi(64, 22)
将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简单，用正则提取内容中的chrw串，然后eval动态执行获取的chrw串得到内容，再执行替换即可。注意事项参考源代码里面的注释，注意将源代码保存为vbs格式的文件后执行，如果是asp文件，需要将createobject修改为server.createobject。
function readfile(fn)'读取编码文件的内容
set fso=createobject(scr ipting.filesyst
