測試發表語法

發文回覆瀏覽次數：1309

推到 Plurk!

推到 Facebook!

yowlc
一般會員

發表：1
回覆：5
積分：6
註冊：2005-04-24

發送簡訊給我

#1 引用回覆回覆

發表時間：2010-07-01 11:46:07

IP:163.28.xxx.xxx 未訂閱

[code delphi]
Function EncAndDec_Str(const Sour_Str, TKeys: AnsiString) : AnsiString;
var
Sour_Len, Keys_Len, ti : Integer;
begin
Sour_Len := Length(Sour_Str);
Keys_Len := Length(TKeys);
// 傳回字串和原始字串長度一樣
SetLength(Result, Sour_Len);
for ti := 1 to Sour_Len do
Result[ti] := Chr(Asc(Sour_Str[ti]) XOR Asc(TKeys[((ti - 1) mod Keys_Len) 1]));
end;
[/code]

hotswin
中階會員

發表：72
回覆：92
積分：52
註冊：2003-11-06

發送簡訊給我

#2 引用回覆回覆

發表時間：2010-07-04 23:11:03

IP:114.33.xxx.xxx 未訂閱

------
xinjier禮品贈品

系統時間：2025-01-30 13:22:34

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！