//------------------------------------------------------ 
//
//　機能　：キャラクタを ASCII 文字に変換する
//　引数　：str（キャラクタ）
//　戻り値：ASCII コードの番号を返す
//  備考　：キャラクタに対応する ASCII コード番号を返す
//
//------------------------------------------------------
int __fastcall TForm1::Ascii(AnsiString str)
{
    char buf[1];
    sprintf(buf, "%d", str[1]);//文字を取得
    return (StrToInt(buf));    //数値に変換
}

    //各コンポーネントの設定
    OrgMemo->Clear();
    OrgMemo->WordWrap   = false;
    OrgMemo->ScrollBars = ssBoth;

    KeyEdit->Text = "";

    EncodeMemo->Clear();
    EncodeMemo->WordWrap   = false;
    EncodeMemo->ScrollBars = ssBoth;

    ResultLabel->Caption = "";

void __fastcall TForm1::CommonBtnClick(TObject *Sender)
{
    iint h, i, j, len;
    char move[20];
    AnsiString src = "", dest;

    //処理するかどうかチェック----------------
    //オリジナルの文字列がなければ処理を中止
    if (OrgMemo->Lines->Count == 0) return;

    //暗号キーの桁数
    len = KeyEdit->Text.Length();
    //キーワードが 0 あるいは 20 以上ならば処理を中止
    if (len == 0 || len > 20) {
        ShowMessage("パスワードが不正です。");
        return;
    }
    //----------------------------------------

    //暗号キーの数字を 1 桁ずつ取り出す
    for (i = 0; i < len; i++)
        move[i] = (char)StrToInt(KeyEdit->Text.SubString(i + 1, 1));

    //暗号化
    EncodeMemo->Clear();
    for (h = 0; h < OrgMemo->Lines->Count; h++) {
        src = OrgMemo->Lines->Strings[h];

        //src の文字列を ASCII コードに変換し、暗号キーから取り出した
        //数字分だけ引いてその値を文字列に変換する。
        //（暗号キーの各桁の数字分ずつずらすことで暗号をかけている）
        j = 0;
        dest = "";
        for (i = 1; i <= src.Length(); i++) {
            dest = dest + Chr(Ascii(src.SubString(i, 1)) - move[j]);
            if (i % len == 0) j = 0;
            else j++;
        }
        EncodeMemo->Lines->Add(dest);
    }
    
    ResultLabel->Caption = "暗号化されました。";
}