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

•  DeLiKaTeS Tetris (Тетрис)  4 256

•  TDictionary Custom Sort  6 299

•  Fast Watermark Sources  6 096

•  3D Designer  9 011

•  Sik Screen Capture  6 414

•  Patch Maker  6 832

•  Айболит (remote control)  6 816

•  ListBox Drag & Drop  5 693

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

•  Графические эффекты  7 031

•  Рисование по маске  6 327

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

•  Canvas Drawing  5 574

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

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

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

•  Paint on Shape  2 671

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

•  Головоломка Paletto  2 852

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

•  Пазл Numbrix  2 392

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

•  Игра HIP  2 033

•  Игра Go (Го)  1 959

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

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

•  Генератор лабиринта  2 477

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

•  HEX View  2 492

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

 
скрыть

  Форум  

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

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



Delphi Sources

Простое симметричное шифрование строк



Автор: Anatoly Podgoretsky

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование строки

Предназначена для простого шифрование строк и паролей, ключ 96 бит, шифрование
симметричное.

Зависимости: UBPFD.decrypt
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:   (c) Anatoly Podgoretsky, 1996
Дата:        26 апреля 2002 г.
***************************************************** }

const
  StartKey = 471; // Start default key
  MultKey = 62142; // Mult default key
  AddKey = 11719; // Add default key
  // обязательно смените ключи до использования

function Encrypt(const InString: string; StartKey, MultKey, AddKey: Integer):
  string;
var
  I: Byte;
  // Если поменять тип переменной I на Integer, то будет возможно
  // шифрование текста длиной более 255 символом - VID.
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;

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

if Encrypt(S, StartKey, MultKey, AddKey) <> OriginalPwd then
  ...
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Расшифровка строки

Предназначена для расшифровки строки, ранее зашифрованной фукцией UBPFD.Encrypt

Зависимости: UBPFD.Encrypt
Автор:       Anatoly Podgoretsky, anatoly@podgoretsky.com, Johvi
Copyright:   (c) Anatoly Podgoretsky, 1996
Дата:        26 апреля 2002 г.
***************************************************** }

const
  StartKey = 471; // Start default key
  MultKey = 62142; // Mult default key
  AddKey = 11719; // Add default key
  // обязательно смените ключи до использования

{$R-}
{$Q-}

function Decrypt(const InString: string; StartKey, MultKey, AddKey: Integer):
  string;
var
  I: Byte;
  // Если поменять тип переменной I на Integer, то будет возможно
  // шифрование текста длиной более 255 символом - VID.
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{$R+}
{$Q+}

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

S := 'Ваш старый пароль: <' + Decrypt(S, StartKey, MultKey, AddKey) + '>';




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

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

ENRUPT шифрование

RTEA шифрование

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

 

ARIA шифрование

Crypton шифрование

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

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

 



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

Группа ВКонтакте