這是解密碼部分
function decodeutf7(utf7str:string):string;
var
vDecode: String;
vSS: TStringStream;
ii: Integer;
begin
vDecode :='';
decodeutf7 :='';
vSS := TStringStream.Create('', Tencoding.UTF7);
vSS.Size := Length(utf7str);
for ii := 1 to Length(utf7str) do
vSS.Bytes[ii-1] := Ord(utf7str[ii]);
vDecode := vSS.DataString;
vSS.Free;
decodeutf7 := vDecode;
end;
加密碼部分：
function encodeutf7(str:string):string;
var
vCoded: String;
vSS: TStringStream;
ii: Integer;
begin
vCoded:='';
encodeutf7:='';
vSS:= TStringStream.Create(str, Tencoding.UTF7);
for ii := 0 to vSS.Size - 1 do
vCoded := vCoded + Chr(vSS.Bytes[ii]);
vSS.Free;
encodeutf7 := vCoded;
end;
那個 TStringStream 應該類似 vbs中的ado.stream組件吧，求高人轉成vbs，謝謝啊
uj5u.com熱心網友回復：
已自己搞定，謝謝，uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/103113.html
標籤：語言基礎/算法/系統設計
上一篇：二維條碼列印
下一篇：子執行緒傳變數給主執行緒的問題