線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:906
推到 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 未訂閱
qq
------
http://xinjier.0424617287.com/gift/
禮贈品
系統時間:2017-10-24 1:08:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!