unit1.cpp

完整的des加密算法程序

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "_DES.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        DES des;
        char key[24];
        char entryt[25];
        AnsiString KeyStr = "test";
        AnsiString SrcStr = tmp;
        AnsiString AimStr;
        des.MakeKey24(KeyStr.c_str() ,key);
        des.DESKey24(key,1);
        des.D3_24Des(SrcStr.c_str() , entryt);
        AimStr = entryt;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        DES des;
        char key[24];
        char entryt[25];
        AnsiString KeyStr = "test";
        AnsiString SrcStr = "this is a test!";
        AnsiString AimStr;
        des.MakeKey24(KeyStr.c_str() ,key);
        des.DESKey24(key,0);
        des.D3_24Des(SrcStr.c_str(), entryt);
        AimStr  = entryt;
        tmp = entryt;


/*        TMemoryStream* pms = new TMemoryStream();
        pms->Write(entryt,sizeof(entryt));
        pms->Seek(0,0);
        TIniFile * ini;
        ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
        ini->WriteBinaryStream("Entry","content",pms)  ;

        delete ini;

        delete pms;         */
}
//---------------------------------------------------------------------------