unitdecode.cpp

我写的利用IDEA算法的加密程序

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <string.h>

#include "UnitDecode.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIButton"
#pragma link "SUIEdit"
#pragma link "SUIForm"
#pragma resource "*.dfm"
TFormDecode *FormDecode;
//---------------------------------------------------------------------------
__fastcall TFormDecode::TFormDecode(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TFormDecode::TFormDecode(TComponent* Owner, int style, char *SrcFile, char *DesFile, char *Passwd)
    : TForm(Owner)
{
    this->style = style;
    this->SrcFile = SrcFile;
    this->DesFile = DesFile;
    this->Passwd = Passwd;
}
void __fastcall TFormDecode::FormCreate(TObject *Sender)
{
     switch (style)
    {
        case 0:
            suiForm1->UIStyle = DeepBlue;
            break;
        case 1:
            suiForm1->UIStyle = WinXP;
            break;
        case 2:
            suiForm1->UIStyle = MacOS;
            break;
        case 3:
            suiForm1->UIStyle = BlueGlass;
            break;
        default:
            suiForm1->UIStyle = Protein;
            break;
    }    
}
//---------------------------------------------------------------------------

void __fastcall TFormDecode::suiButton1Click(TObject *Sender)
{
    if (OpenDialog1->Execute())
    {
        suiEdit1->Text = OpenDialog1->FileName;
        DirectoryListBox1->Directory = ExtractFileDir(suiEdit1->Text);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFormDecode::suiButton3Click(TObject *Sender)
{
    ModalResult = mrCancel;    
}
//---------------------------------------------------------------------------

void __fastcall TFormDecode::suiButton2Click(TObject *Sender)
{
    if (suiEdit1->Text == "")
    {
        ShowMessage("没有选择解密文件！");
        return;
    }
    if (suiEdit2->Text == "")
    {
        ShowMessage("没有输入解密密码！");
        return;
    }
    strcpy(SrcFile, suiEdit1->Text.c_str());
    strcpy(Passwd, suiEdit2->Text.c_str());
    strcpy(DesFile, DirectoryListBox1->Directory.c_str());
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TFormDecode::DirectoryListBox1Click(TObject *Sender)
{
    DirectoryListBox1->OpenCurrent();    
}
//---------------------------------------------------------------------------