VB Html编码、Html解码、Html加密、Html解密、Html转义字符

  • A+
所属分类:lcx

VB Html编码、Html加密、Html转义字符:

Private Function EncodeHTML(S As String) As String                              'Html 编码
    S = Replace(S, "&", "&")                                                '符号:&
    S = Replace(S, "#", "#")                                                '符号:#
    'S = Replace(S, ";", ";")                                                '分号
    S = Replace(S, "
    S = Replace(S, ">", ">")                                                 '大于号
    S = Replace(S, "(", "(")                                                '左括弧
    S = Replace(S, ")", ")")                                                '右括弧
    S = Replace(S, Chr(39), "'")                                            '单引号
    S = Replace(S, Chr(34), """)                                           '双引号
    S = Replace(S, Chr(63), "?")                                            '问号
    S = Replace(S, Chr(32), " ")                                           '空格
    S = Replace(S, Chr(9), " ")                                               '制表符
    S = Replace(S, Chr(13), "
")                                            '换行符
    S = Replace(S, Chr(8194), " ")                                         '半方大的空白
    S = Replace(S, Chr(8195), " ")                                         '全方大的空白
    EncodeHTML = S
End Function

VB Html解码、Html解密、Html转义字符:

Private Function DecodeHTML(S As String) As String                              'Html 解码
    S = Replace(S, "&", "&")                                                '符号:&
    S = Replace(S, "#", "#")                                                '符号:#
    'S = Replace(S, ";", ";")                                                '分号
    S = Replace(S, "<", "
    S = Replace(S, ">", ">")                                                 '大于号
    S = Replace(S, "(", "(")                                                '左括弧
    S = Replace(S, ")", ")")                                                '右括弧
    S = Replace(S, "'", Chr(39))                                            '单引号
    S = Replace(S, """, Chr(34))                                           '双引号
    S = Replace(S, "?", Chr(63))                                            '问号
    S = Replace(S, " ", Chr(32))                                           '空格
    S = Replace(S, " ", Chr(9))                                               '制表符
    S = Replace(S, "
", Chr(13))                                            '换行符
    S = Replace(S, " ", Chr(8194))                                         '半方大的空白
    S = Replace(S, " ", Chr(8195))                                         '全方大的空白
    DecodeHTML = S
End Function

VB Html编码、Html解码、Html加密、Html解密、Html转义字符,演示代码:

MsgBox DecodeHTML(EncodeHTML("啊/*-+.啊qwertyuiopasdfghjklzxcvbnm啊-=[];',./啊_+|{}:""?啊`1234567890啊[email protected]#$%^&*()啊"))

文章来源于lcx.cc:VB Html编码、Html解码、Html加密、Html解密、Html转义字符

相关推荐: [使用Hash直接登录Windows]简单分析

知识库:使用Hash直接登录Windows zone:使用Hash直接登录Windows 由于msf用到exploit/windows/smb/psexec模块,所以猜想和pstool里面的PsExec.exe应该有些许联系 查看说明,PsExec.exe可以…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: