婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > vbs base64 解密腳本代碼

vbs base64 解密腳本代碼

熱門標簽:智云億呼電話機器人 企業400電話辦理價錢低 機器人打電銷適用于美業嗎 外呼系統群 龍巖400電話申請 上海辦理400電話選號 墨西哥地圖標注app 天津智能外呼系統排名 外呼系統說話聲音小怎么辦

復制代碼 代碼如下:

Function fDecode(sStringToDecode)
'This function will decode a Base64 encoded string and returns the decoded string.
'This becomes usefull when attempting to hide passwords from prying eyes.
Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim iDataLength, sOutputString, iGroupInitialCharacter
sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "")
iDataLength = Len(sStringToDecode)
If iDataLength Mod 4 > 0 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
For iGroupInitialCharacter = 1 To iDataLength Step 4
Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString
iDataByteCount = 3
iGroup = 0
For iCharacterCounter = 0 To 3
sCharacter = Mid(sStringToDecode, iGroupInitialCharacter + iCharacterCounter, 1)
If sCharacter = "=" Then
iDataByteCount = iDataByteCount - 1
iData = 0
Else
iData = InStr(1, CharList, sCharacter, 0) - 1
If iData = -1 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
End If
iGroup = 64 * iGroup + iData
Next
iGroup = Hex(iGroup)
iGroup = String(6 - Len(iGroup), "0") iGroup
sPreliminaryOutString = Chr(CByte("H" Mid(iGroup, 1, 2))) Chr(CByte("H" Mid(iGroup, 3, 2))) Chr(CByte("H" Mid(iGroup, 5, 2)))
sOutputString = sOutputString Left(sPreliminaryOutString, iDataByteCount)
Next
fDecode = sOutputString
End Function

base64 測試代碼:
復制代碼 代碼如下:

Function fDecode(sStringToDecode)
'This function will decode a Base64 encoded string and returns the decoded string.
'This becomes usefull when attempting to hide passwords from prying eyes.
Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim iDataLength, sOutputString, iGroupInitialCharacter
sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "")
iDataLength = Len(sStringToDecode)
If iDataLength Mod 4 > 0 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
For iGroupInitialCharacter = 1 To iDataLength Step 4
Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString
iDataByteCount = 3
iGroup = 0
For iCharacterCounter = 0 To 3
sCharacter = Mid(sStringToDecode, iGroupInitialCharacter + iCharacterCounter, 1)
If sCharacter = "=" Then
iDataByteCount = iDataByteCount - 1
iData = 0
Else
iData = InStr(1, CharList, sCharacter, 0) - 1
If iData = -1 Then
fDecode = "Bad string passed to fDecode() function."
Exit Function
End If
End If
iGroup = 64 * iGroup + iData
Next
iGroup = Hex(iGroup)
iGroup = String(6 - Len(iGroup), "0") iGroup
sPreliminaryOutString = Chr(CByte("H" Mid(iGroup, 1, 2))) Chr(CByte("H" Mid(iGroup, 3, 2))) Chr(CByte("H" Mid(iGroup, 5, 2)))
sOutputString = sOutputString Left(sPreliminaryOutString, iDataByteCount)
Next
fDecode = sOutputString
End Function
msgbox fDecode("d3d3LmpiNTEubmV0")

需要測試加密的代碼的朋友可以訪問 https://www.jb51.net/tools/base64.htm

您可能感興趣的文章:
  • Base64在線編碼解碼實現代碼 演示與下載
  • asp base64加解密函數代碼
  • vbs版的解密base64加密的腳本
  • 關于加密解密 Base64 and URL and Hex Encoding and Decoding
  • 關于base64加密/解密
  • JavaScript Base64編碼和解碼,實現URL參數傳遞。
  • Javascript base64編碼實現代碼

標簽:阜新 齊齊哈爾 承德 麗水 青島 錫林郭勒盟 黃山 鄂爾多斯

巨人網絡通訊聲明:本文標題《vbs base64 解密腳本代碼》,本文關鍵詞  vbs,base64,解密,腳本,代碼,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《vbs base64 解密腳本代碼》相關的同類信息!
  • 本頁收集關于vbs base64 解密腳本代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 抚顺市| 桦南县| 锦屏县| 定兴县| 来凤县| 寻乌县| 平罗县| 韶关市| 花莲市| 阳泉市| 子洲县| 莎车县| 方山县| 深州市| 喀喇| 开平市| 凌海市| 江门市| 吉木萨尔县| 朝阳市| 六盘水市| 轮台县| 玉田县| 安宁市| 小金县| 神农架林区| 成武县| 和龙市| 司法| 阳谷县| 滦平县| 永修县| 怀化市| 喀什市| 融水| 新竹县| 靖西县| 鄂温| 社会| 措勤县| 兴城市|