VPF::Тадблица замены. Криптография

alexsk

Дата 19.5.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 24.4.2006
Где: Томск

Репутация: нет
Всего: нет

Как шифруется таблицей замены? А именно: как она формируется, чтобы было возможно зашифровать и расшифровать. И как идёт сам процесс шифрования и расшифрования?

Это сообщение отредактировал(а) alexsk - 19.5.2006, 10:34

Romikgy

Дата 19.5.2006, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 1
Всего: 146

Формируешь как те хочется , хоть рандомом,
А шифрование и дешифрование в цикле, и побайтно, хотя тоже можно сделать по разному

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Akina

Дата 19.5.2006, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

типа такого

Код

' draft code
Dim CryptoTable(0 to 1) as string

CryptoTable(0)="012345....."
CryptoTable(1)="abcdef....."

Function Encrypt(xStr as String) as string
Encrypt=""
for i=1 to len(xStr)
   Encrypt=Encrypt & mid(CryptoTable(1), instr(CryptoTable(0), mid(xStr, i, 1)), 1)
next
end function

Function Decrypt(xStr as String) as string
Decrypt=""
for i=1 to len(xStr)
   Decrypt=Decrypt & mid(CryptoTable(0), instr(CryptoTable(1), mid(xStr, i, 1)), 1)
next
end function

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

alexsk

Дата 19.5.2006, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 24.4.2006
Где: Томск

Репутация: нет
Всего: нет

Akina, а для делфей есть пример?

Romikgy

Дата 19.5.2006, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 1
Всего: 146

Код


function Crypto(dir: byte; str, cryptostr,decryptostr: string): string;
var i: longint;
    temp: char;
begin
  Result:='';
  for i:=1 to Length(str) do
  begin
  if dir=1 then temp=cryptostr[Pos(cryptostr,str[i])]
  else
  temp=decryptostr[Pos(decryptostr,str[i])];
  Result:=Result+temp;
  end;
end;

dir - это направление 1 шифруем, 0 дешифруем
str - сама строка,
cryptostr- аналог CryptoTable(0)="012345.....",
decryptostr - аналог CryptoTable(1)="abcdef....."

Добавлено @ 12:27
Я cам не проверял , но должно работать

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Алгоритмы \| Следующая тема »