DDR爱好者之家 Design By 杰米

复制代码 代码如下:
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代码打包

DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米

P70系列延期,华为新旗舰将在下月发布

3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。

而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?

根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。