Недавно добавленные исходники

•  TDictionary Custom Sort  496

•  Fast Watermark Sources  864

•  3D Designer  1 792

•  Sik Screen Capture  1 450

•  Patch Maker  1 454

•  Айболит (remote control)  1 384

•  ListBox Drag & Drop  1 149

•  Доска для игры Реверси  21 070

•  Графические эффекты  1 328

•  Рисование по маске  1 266

•  Перетаскивание изображений  1 082

•  Canvas Drawing  958

•  Рисование Луны  794

•  Поворот изображения  752

•  Рисование стержней  799

•  Paint on Shape  485

•  Генератор кроссвордов  746

•  Головоломка Paletto  657

•  Теорема Монжа об окружностях  836

•  Пазл Numbrix  604

•  Заборы и коммивояжеры  833

•  Игра HIP  548

•  Игра Go (Го)  521

•  Симулятор лифта  541

•  Программа укладки плитки  503

•  Генератор лабиринта  559

•  Проверка числового ввода  516

•  HEX View  593

•  Физический маятник  520

•  Задача коммивояжера  553

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Шифрование строки InString, с возможностью корректного сохранения результата шифрования в TEXT-FILE



Автор: VID

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование строки InString, с возможностью корректного
сохранения результата шифрования в TEXT-FILE

Функция представляет модификацию функции UBPFD.Encrypt.
Отличие от указанной функции заключается в том, что функция
EncryptEX возвращает результат, обработанный функцией
UBPFD.StrToAsсii, т.е. обеспечивает возможность
корректного сохранения шифр-текста в текстовый файл.

Зависимости: UBPFD.Encrypt, UBPFD.StrToAscii
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        30 апреля 2002 г.
***************************************************** }

function EncryptEX(const InString: string; StartKey, MultKey, AddKey: Integer):
  string;
begin
  Result := StrTOAscii(Encrypt(InString, StartKey, MultKey, AddKey));
end;
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Расшифровка строки InString, зашифрованной с помощью функции EncryptEX

Функция является модификацией UBPFD.Decrypt. Отличие в том,
что UBPFD.DecryptEX расшифровывает шифр-текст, зашифрованный
с помощью функции UBPFD.EncryptEX

Зависимости: UBPFD.Decrypt, UBPFD.AsсiiToStr
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        30 апреля 2002 г.
***************************************************** }

function DecryptEX(const InString: string; StartKey, MultKey, AddKey: Integer):
  string;
begin
  Result := Decrypt(AsciiToStr(InString), StartKey, MultKey, AddKey);
end;

Пример использования:

var
  S: string;
begin
  S := UBPFD.EncryptEX('String', 1, 1, 1);
  // S является источником данных для функции UBPFD.DecryptEX
  ShowMessage('Расшифровка: ' + UBPFD.DecryptEX(S, 1, 1, 1));
end;




Похожие по теме исходники

Codeo (шифрование Виженера / Цезаря)

ENRUPT шифрование

RTEA шифрование

Vigenere Plus (шифрование Виженера)

 

ARIA шифрование

Crypton шифрование

Шифрование Aes, Des, Плейфер

RSA шифрование через OpenSSL

 

Image2Text (изображение в текст)

TextureGen (генератор текстур)

Shaded Text

Text in Image

 

Texture Packer

GDI Path Text

Text Bezier Curve (Безье)

Word Search in Text

 

Drag and Drop Text

Pixel Profile

File Downloader

UDP File Transfer

 

File coder / Decoder

Clone Files

INI XML Files

FileList Creator

 

File Attribute Changer

Make Self-Extract File




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram