Курсовая работа: Программная реализация алгоритма шифрования DES. Режим ECB
}
else if (SourcePageControl->ActivePage == FileSrcSheet) {
//Входные данные берем из файла, путь к которому находится в
//InpFilePathEdit
DESAlg.Data = ReadAnsiStringFromFile( InpFilePathEdit->Text );
}
DESAlg.Exectute();
if (SourcePageControl->ActivePage == StringSrcSheet) {
SrcDataFrame->Field["Результат"] = DESAlg.Data;
}
else if (SourcePageControl->ActivePage == FileSrcSheet) {
//Выходные данные записываем в файл, путь к которому находится в
//OutFilePathEdit
if (WriteAnsiStringToFile( DESAlg.Data, OutFilePathEdit->Text )) {
MessageBox(this->Handle,
((AnsiString)"Данныеуспешнозаписанывфайл\n" +
OutFilePathEdit->Text).c_str(), this->Caption.c_str(),
MB_ICONINFORMATION | MB_OK );
}
}
}
//ЧтениефайлавAnsiString
AnsiString __fastcall TMainDialogForm::ReadAnsiStringFromFile(
AnsiString FileName)
{
AnsiString Result;
try {
TFileStream *in = new TFileStream(FileName, fmOpenRead); //открываемфайл
if( in != NULL ) {