复制代码 代码如下:
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代码打包
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新日志
- [华语]群星《一人一首成名曲ONEHIFI歌手》2CD[WAV分轨]
- 【乡村摇滚(H)】EgilMydland-2024-Roverhistoria(FLAC)
- 小玥VS张佳《阿里山姑娘DSD》火烈鸟[WAV+CUE]
- 张小英2002-金嗓恋曲之旅2CD[马来西亚版][WAV+CUE]
- Ren Kai《Flow》[320K/MP3][33.02MB]
- Jasper Yu《鬼》[320K/MP3][32.11MB]
- Jasper Yu《鬼》[FLAC/分轨][87.92MB]
- 张小英1995-新春歌曲特辑[香港版][WAV+CUE]
- 张小英2009-真情金曲[引进版][WAV+CUE]
- 群星.1989-彩色的年纪-第六届大学城纪念专辑【飞碟】【WAV+CUE】
- 《KKBOX西洋新歌日榜》[FLAC/分轨][2.9G]
- 崔子格《崔子格歌曲合集》[320K/MP3][121.9MB]
- 《王菲8CD合集》[WAV分轨][4.8G]
- 【欧美乡村(H)】CharlieEwing-2024-BuffaloHorses(FLAC)
- Mantovani2007-MantovaniToday(1970)MusicalMomentsWithMantovani(1974)[FLAC+CUE]