unitcode.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "UnitCode.h"
#include <string.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma link "SUIEdit"
#pragma link "SUIGroupBox"
#pragma link "SUIImagePanel"
#pragma link "SUIDlg"
#pragma resource "*.dfm"
TFormCode *FormCode;
//---------------------------------------------------------------------------
__fastcall TFormCode::TFormCode(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TFormCode::TFormCode(int style, TComponent* Owner, char *SrcFile, char *DesFile, char *Passwd, bool *FileCode)
    : TForm(Owner)
{
    this->style = style;
    this->SrcFile = SrcFile;
    this->DesFile = DesFile;
    this->Passwd = Passwd;
    this->FileCode = FileCode;
}
void __fastcall TFormCode::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;
    }
    *FileCode = true;
}
//---------------------------------------------------------------------------
void __fastcall TFormCode::suiButton1Click(TObject *Sender)
{
   if (SaveDialog1->Execute())
   {
        suiEdit1->Text = SaveDialog1->FileName;
   }
}
//---------------------------------------------------------------------------
void __fastcall TFormCode::suiButton3Click(TObject *Sender)
{
    ModalResult = mrCancel;    
}
//---------------------------------------------------------------------------
void __fastcall TFormCode::suiRadioButton2Click(TObject *Sender)
{
    FileListBox1->ClearSelection();
    FileListBox1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TFormCode::suiRadioButton1Click(TObject *Sender)
{
    FileListBox1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFormCode::suiButton2Click(TObject *Sender)
{
    if (suiRadioButton1->Checked)
    {
        if (FileListBox1->FileName == "")
        {
            Application->MessageBox("没有选择加密文件", "错误", MB_OK);
            return;
        }
        if (suiEdit1->Text == "")
        {
            Application->MessageBox("没有指定密文文件", "错误", MB_OK);
            return;
        }
        if (suiEdit2->Text.Length()<4)
        {
            Application->MessageBox("密码最少为4位", "错误", MB_OK);
            return;
        }
        if (suiEdit2->Text != suiEdit3->Text)
        {
            Application->MessageBox("两次密码输入不相同，请重新输入", "错误", MB_OK);
            return;
        }
        strcpy(SrcFile, FileListBox1->FileName.c_str());
        strcpy(DesFile, suiEdit1->Text.c_str());
        strcpy(Passwd, suiEdit2->Text.c_str());
        *FileCode = true;
    }
    else
    {
        if (DirectoryListBox1->Directory  == "")
        {
            Application->MessageBox("没有选择加密文件夹", "错误", MB_OK);
            return;
        }
        if (suiEdit1->Text == "")
        {
            Application->MessageBox("没有指定密文文件", "错误", MB_OK);
            return;
        }
        if (suiEdit2->Text.Length()<4)
        {
            Application->MessageBox("密码最少为4位", "错误", MB_OK);
            return;
        }
        if (suiEdit2->Text != suiEdit3->Text)
        {
            Application->MessageBox("两次密码输入不相同，请重新输入", "错误", MB_OK);
            return;
        }
        strcpy(SrcFile, DirectoryListBox1->Directory.c_str());
        strcpy(DesFile, suiEdit1->Text.c_str());
        strcpy(Passwd, suiEdit2->Text.c_str());
        *FileCode = false;
    }
    if (FileExists(DesFile))
        if (MessageDlg("文件" + AnsiString(DesFile) + "已存在，是否覆盖此文件？",
                            mtConfirmation , TMsgDlgButtons()<< mbYes<<mbNo, 0) ==mrNo)
               return;

    ModalResult = mrOk;
}
//---------------------------------------------------------------------------




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