VBS加密演算法問題，加密VBS

將 ASC 轉換為具有統一位數的十六進製，並忽略負號。

function generatecode(strtext)

輸入字串 （strtext） 並返回十六進製 ANSI 編碼。

dim ifor i=1 to len(strtext)

generatecode = generatecode & hex(asc(mid(strtext,i,1)))

nextend function

function gettext(strcode)

輸入十六進製 ANSI 編碼 （strcode） 以返回原始字串。

dim i,strtmp

for i=1 to len(strcode) step 2

if cint(strtmp)<128 then

gettext = gettext & chr(strtmp)

elsei = i + 2

gettext = gettext & chr(strtmp & mid(strcode,i,2))

end if

nextend function

這是我自己用來加密字串的。 密文是乙個十六進製無分隔字串，其中 ASCII 字元 （0-127） 為 2 位，其他 ANSI 字元 （256-65535） 為 4 位。

編寫此演算法的目的是平衡 [加密和解密量] 與 [密文長度]。

我不知道你想用加密貨幣做什麼，但我還是建議你：

不要想著通過計算等手段進一步“加密”，因為在VBS下，解密演算法是明文的，所有的加密在知道的人眼裡都是沒有意義的。 在我看來，VBS的加密充其量只是隱藏了一點字串或**，這樣就不會一目了然地看到意圖。 所以，我的演算法就足夠了。

如果你想進一步隱藏它，你可以[ ]不意外，這也可以解密。

**如有不明白之處，可以詢問。

直接的位數不足以彌補零。 它速度快，易於理解，並且所有數字都填充到最長的數字。

閱讀時，只需嚴格按位數閱讀即可。

這很簡單。 只需使用字串函式即可。

您想按數字讀出 ASCII 程式碼然後 CHR 嗎？

有 3 種方法可以加密檔案：

1 使用系統內建的EFS加密，但要注意備份加密證書，加密後的賬號下加密效果不會顯現。

2 使用 Winrar 的壓縮進行加密，但操作緩慢且麻煩。

3 使用超級加密 3000 加密檔案，超級加密 3000 使用先進的加密演算法，讓您的檔案在加密後真正達到超高加密強度，讓您的加密檔案無可挑剔，沒有密碼就無法解密。

您可以根據實際需求選擇自己的檔案加密方法。

沒有多大意義。

如果你不想被別人利用，就不要為別人用。

對於此問題，您可以使用轉換工具將 VBS 打包成可執行檔案 （exe）！ 這是可以實現的。 批處理程式也可用。

VBS加密其實只是對菜鳥的欺騙，我真的不想透露你的**可以寫乙個dll來呼叫。

你應該被加密，但我說你的**不能在asp環境中執行，有什麼解釋？ 是不是不完整？ 我會在前面新增它。

@ language = %>

仍然無法執行，錯誤訊息。

有些**不能顯示在網頁上，必須使用原始檔來破解它。