vbs版的解密base64加密的脚本_vbs

复制代码 代码如下:

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

vbs代码打包

时间： 2024-09-23 03:18:19

vbs版的解密base64加密的脚本_vbs的相关文章

VBS版百度贴吧代码格式化调整工具_vbs

百度抽风,老是把吃掉行首空格,导致代码没有缩进.可以用以下方法来解决: 1.在百度贴吧切换到经典版 2.用以下脚本把代码中的制表符和空格替换成unicode编码格式 复制代码 代码如下: 'cscript //nologo C:\test\test.vbs C:\test\test.bat Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(WScript.A

ass2srt.vbs(ass/ssa批量转换srt的脚本)_vbs

iPad中的OPlayer只支持srt格式的字幕,而动画一般使用的是ass/ssa格式的字幕,所以需要将ass/ssa批量转换srt. Google了一下,在<ass2srt[ass/ssa批量转换srt]>中找到一个ass2srt.wsf脚本,内容如下: <job id="ass2srt"> <script language="JScript"> cInput="unicode"; // You can fi

用vbs通过135端口执行命令的脚本_vbs

wmiexec.vbs(通过135端口执行命令) 复制代码 代码如下: set ww=createobject("wbemscripting.swbemlocator")  set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password")  Set pp=cc.get("Win32_Process")  pp

用vbs针对一个 IP 地址范围运行脚本_vbs

问: 嗨,Scripting Guy!我想在一个子网中的所有计算机上运行脚本.有没有办法不必将所有 IP 地址都硬编码到脚本中就能完成这项任务呢? -- RB 答: 嗨,RB.根据您在电子邮件中的描述,看来您的设置类似于:您的子网的 IP 地址范围为 192.168.1.1 到 192.168.1.254.您想创建一个脚本,可以先从第一个 IP 地址开始,在相应的计算机上运行某个代码,然后转到第二个地址,运行相同的代码,按地址顺序在每台计算机上都运行相同的脚本.此外,您想通过尽可能最少的代码行就

用vbs遍历文件并随机显示的脚本_vbs

set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder.files for each file in files d=d & file.name & "," next Randomize

这个base64加密的解密怎么写？

问题描述 这个base64加密的解密怎么写? public class BASE64Encoder { private static char[] codec_table = { 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',

关于加密解密 Base64 and URL and Hex Encoding and Decoding_脚本加解密

今天想换一下Discuz论坛的风格,谁知下载风格文件后,发现竟然是通过Base64加密过的   小林给推荐了个解密的页面,提取出代码如下: 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">  <html>  <head>  <title>Base64 and URL and Hex Encoding and Decoding</tit

python中base64加密解密方法实例分析

  本文实例讲述了python中base64加密解密方法.分享给大家供大家参考.具体分析如下: 一.base64 Base64是一种基于64个可打印字符来表示二进制数据的表示方法.由于2的6次方等于64,所以每6个比特为一个单元,对应某个可打印字符.三个字节有24个比特,对应于4个Base64单元,即3个字节需要用4个可打印字符来表示.它可用来作为电子邮件的传输编码.在Base64中的可打印字符包括字母A-Z.a-z.数字0-9 ,这样共有62个字符,此外两个可打印符号在不同的系统中而不同.编码

php使用base64加密解密图片示例分享

 这篇文章主要介绍了php使用base64加密解密图片的示例,大家参考使用吧    代码如下: <?php   //文件名:base64.php $data="/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEABALDA4MChAODQ4SERATGCgaGBYWGDEjJR0oOjM9P DkzODdASFxOQERXRTc4UG1RV19iZ2hnPk1xeXBkeFxlZ2MBERISGBUYLxoaL2NCOEJjY2NjY2NjY2NjY2 NjY2NjY2NjY