VB PDU mode 7 bit 解码

原创于 2008-10-30 13:27:00 发布 · 800 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #hex #加密

vb.net and vb 专栏收录该内容

21 篇文章

订阅专栏

本文介绍了一对用于字符串加密和解密的VBScript函数。加密函数ascg将输入的字符串转换为十六进制形式，而解密函数ascs则将十六进制字符串还原为原始文本。这些函数通过循环遍历字符串并利用内置函数如AscW和ChrW来实现转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'加密 
Public Function ascg(smsg As String) As String
    Dim si, sb As Integer
    Dim stmp As Integer
    Dim stemp As String
    sb = Len(smsg)
    ascg = ""
    For si = 1 To sb
     stmp = AscW(Mid(smsg, si, 1))
     If Abs(stmp) < 127 Then
        stemp = "00" & Hex(stmp)
     Else
        stemp = Hex(stmp)
     End If
     ascg = ascg & stemp
    Next si
    ascg = Trim(ascg)
 End Function
 Public Function ascs(rmsg As String) As String
   Dim tep As String
    Dim temp As String
    Dim i As Integer
    Dim B As Integer
    tep = rmsg
    i = Len(tep)
    If i < 1 Then Exit Function
    
    B = i / 4
    If i = B * 4 Then
     tep = Left(tep, B * 4)
    Else
       B = B - 1
     tep = Left(tep, B * 4)
    End If
    chg = ""
    For i = 1 To B
     temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)
     chg = chg & ChrW(CInt(Val(temp)))
    Next i
    
ascs = chg
 End Function
'------------------------------------------------ 