No Money No Honey

FTP 是一種檔傳輸協定 (File Transfer Protocol)，它的連線模式有兩種﹕
主動模式( active )和被動模式( passive )。以下說明 FTP 的連線是怎樣建立的﹕

在 active 模式下 (一般預設的模式)﹕
1. FTP client 開啟一個隨機選擇的TCP port 呼叫 FTP server 的 port 21請求連線。當順利完成 Three-Way Handshake 之後，連線就成功建立，但這僅是命令通道的建立。
2.當兩端需要傳送資料的時候，client 透過命令通道用一個 port command 告訴 server，client可以用另一個TCP port 做數據通道。
3.然後 server 用 port 20 和剛才 client 所告知的 TCP port 建立數據連線。請注意：連線方向這是從 server 到 client 的，TCP 封包會有一個 SYN flag。
4.然後 client 會返回一個帶 ACK flag的確認封包﹐並完成另一次的 Three-Way Handshake 手續。這時候，數據通道才能成功建立。
5.開始數據傳送。

在 passive 模式下
1.FTP client 開啟一個隨機選擇的TCP port 呼叫 FTP server 的 port 21請求連線，並完成命令通道的建立。
2.當兩端需要傳送資料的時候，client 透過命令通道送一個 PASV command 給server，要求進入 passive 傳輸模式。
3.然後 server 像上述的正常模式之第 2 步驟那樣，挑一個TCP port ，並用命令通道告訴 client。
4.然後 client 用另一個TCP port 呼叫剛才 server 告知的 TCP port 來建立數據通道。此時封包帶 SYN flag。
5.server 確認後回應一個 ACK 封包。並完成所有交握手續?成功建立數據通道。
6.開始數據傳送。

在實際使用上, active mode 用來登入一些開設在主機上及沒有安裝防火牆的 FTP server，或是開設於 client side 的 FTP server！
Passive mode （簡稱 PASV）用來登入一些架設於防火牆保護下而又是開設於主機上的 FTP server！
如果您覺得太深奧而弄不清楚, 那就先用預設的 active mode 登入, 失敗改用 passive mode 登入就是了。

重點是要能克制想吃的欲望，與持之以恆的運動…………..

想減肥嗎沒？告訴你有人是這樣瘦下來的！高雄一個女大學生，原本103公斤，一年內減掉45公斤的肥肉，瘦到58公斤，而且他每天三餐正常，吃飽飽，究竟她是如何瘦下來的，一塊來看看。

這個圓滾滾的女孩叫做曉蒨，體重高達103公斤，大腿、小腿、手臂都很壯，但是只過了短短一年，她成功甩肉，變成了這個時髦體態勻稱的辣妹，168公分的曉蒨，去年9月103公斤，一路減到現在58公斤，減肥減掉45公斤，幾乎減掉了一個人，怎麼做到的，就是靠吃滷味瘦身，曉蒨這一年來每天只吃綠色蔬菜豆乾冬粉等等，本身就熱量低的食物，而且這樣還不夠，食物只能用水煮，不加任何的調味料。

曉蒨的秘訣就是，早餐正常吃，中午晚餐就吃滷味，絕對不吃澱粉類的食物，再加上每天固定運動一小時，搖呼拉圈和仰臥起坐，讓自己從小胖妹變成正妹，讓認識她的跌破眼鏡，被問的很煩，曉蒨就把自己成功減重的方法PO上網誌，沒想到引起這麼大的迴響，到現在已經超過70萬人瀏覽她的部落格，而且最高流量的一天還突破30萬人，甚至連減肥藥的廠商都有興趣找她代言，減肥減出了知名度，讓當初只是單純想要變美的曉蒨受寵若驚。

這通常是運用在資料庫內有密碼的時候，不希望顯示的是明碼，所以要透過加密解密的動作來實現這個需求，這邊使用的是AES加密功能。

DELPHI 用的 AES 檔案 下載

此範例程式(D7)已含AES檔案：下載

程式執行：

將字串加密

將字串解密還原

將 28295_AESDemo.zip 解壓縮後三個檔案
ElAES.dcu
ElAES.pas
ElAES.txt
COPY 欲撰寫程式的同一目錄下面

將(ElAES, Math) USES進程式

unit hoststatus;

interface

uses
    ……….ElAES, Math;

//AES加解密用到的 Function ===========================
function Tform1.StringToHex(S: string): string;
var
    i: integer;

begin
  Result := ”;

  // Go throught every single characters, and convert them
  // to hexadecimal…
    for i := 1 to Length( S ) do
      Result := Result + IntToHex( Ord( S[i] ), 2 );
end;

function Tform1.HexToString(S: string): string;
var
    i: integer;

begin
  Result := ”;

  // Go throught every single hexadecimal characters, and convert
  // them to ASCII characters…
  for i := 1 to Length( S ) do
  begin
    // Only process chunk of 2 digit Hexadecimal…
      if ((i mod 2) = 1) then
          Result := Result + Chr( StrToInt( ‘0x’ + Copy( S, i, 2 )));
  end;
end;

//AES加密Function
function Tform1.Encrypt(Passwd: String): String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Start, Stop: cardinal;
  Size: integer;
  Key: TAESKey128;
  PWD: String;
begin
  //設定加密密碼;
  PWD := ‘/.,mnbvcxz’;

  Source := TStringStream.Create( Passwd );
  Dest   := TStringStream.Create( ” );

  try
    // Save data to memory stream…
    Size := Source.Size;
    Dest.WriteBuffer( Size, SizeOf(Size) );

    // Prepare key…
    FillChar( Key, SizeOf(Key), 0 );
    Move( PChar(PWD)^, Key, Min( SizeOf( Key ), Length( PWD )));

    // Start encryption…
    Start := GetTickCount;
    EncryptAESStreamECB( Source, 0, Key, Dest );
    Stop := GetTickCount;

    // Display encrypted text using hexadecimals…
    Result := StringToHex( Dest.DataString );

  finally
    Source.Free;
    Dest.Free;
  end;
end;

//AES解密Function
function Tform1.Decypt(Passwd: String): String;
var
  Source: TStringStream;
  Dest: TStringStream;
  Start, Stop: cardinal;
  Size: integer;
  Key: TAESKey128;
  EncryptedText: TStrings;
  S: string;
  PWD: String;
begin
  //設定加密密碼;
  PWD := ‘/.,mnbvcxz’;

  // Convert hexadecimal to a strings before decrypting…
  Source := TStringStream.Create( HexToString( Passwd ));
  Dest   := TStringStream.Create( ” );

  try
    // Start decryption…
    Size := Source.Size;
    Start := GetTickCount;
    Source.ReadBuffer(Size, SizeOf(Size));

    // Prepare key…
    FillChar(Key, SizeOf(Key), 0);
    Move(PChar(PWD)^, Key, Min(SizeOf(Key), Length(PWD)));

    // Decrypt now…
    DecryptAESStreamECB(Source, Source.Size – Source.Position, Key, Dest);
    Stop := GetTickCount;

    // Display unencrypted text…
    Result := Dest.DataString;

  finally
    Source.Free;
    Dest.Free;
  end;
end;
//AES加解密用到的 Function ===========================

procedure TForm1.Button1Click(Sender: TObject);
begin
  //showmessage(Encrypt(Edit1.Text));
  Memo1.Text:= Encrypt(Edit1.Text);
  Memo2.Text:=”;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Trim(Memo1.Text) <> ” then
  begin
    //showmessage(Decypt(Memo1.Text));
    Memo2.Text:= Decypt(Memo1.Text);
  end else
    MessageDlg(‘沒有已加密資料可供解密!’, mtError, [mbOk], 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Enabled := false;
  Memo2.Enabled := false;
end;