十三字符加解密工具
解密函数：
Function ShiSanFun(ShiSanObjstr)
ShiSanObjstr = Replace(ShiSanObjstr, "╁", """")
For ShiSanI = 1 To Len(ShiSanObjstr)
If Mid(ShiSanObjstr, ShiSanI, 1) <> "╋" Then
ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) +ShiSanNewStr
Else
ShiSanNewStr = vbCrLf + ShiSanNewStr
End If
Next
ShiSanFun = ShiSanNewStr
End Function
使用方法：
上面是十三的一个解密函数，俺相应的逆了一个加密函数，把加密的字串复制到这个文本框中就可以进行
解密和加密了。
比如：
ShiSan="╋╋ssapresu=prevres╋lru&)╁tsoh_ptth╁(selbairavrevres.tseuqer=urevres╋)╁/╁(htaPpaM.revreS=tooRWWW╋)╁.╁(htaPpaM.revreS=htaPtooR╋)╁noitcA╁(tseuqeR=noitcA╋)╁RDDA_LACOL╁(selbairaVrevreS.tseuqeR=PIrevreS╋)╁LRU╁(selbairaVrevreS.tseuqeR=LRU"
ExeCuTe(ShiSanFun(ShiSan))
输入双引号（“”）中的乱码就行了。
相关文章
图文推荐
-
Android中onInterceptTouchEvent、dispatchTouchEvent及onTouchEvent的调用顺序及内部原理详解
-
WIN10,怎么无损给分区增加容量磁盘管理如何操作
-
dos命令和excel批量修改文件名
-
步步高烧钱烧出国际大牌 系统研发成短板
- 文章
- 推荐
- 热门新闻