Какой это шифр??

@Йогурт · Регистрация: 06.05.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте! Нужна срочно помощь! Завтра диплом, такой вот вопрос!

Какой это шифр? Точнее каким шифром шифрует? Если можно поподробней..каким методом происходит шифровка и т.д! Очень надо, завтра такой вопрос просто будет а ответа я не знаю =)))

Delphi

unit Crypt;
 
interface
 
function Code(const str:String):String;
function UnCode(const str:String):String;
 
implementation
 
function Code(const str:String):String;
var
b:byte;
begin
result:=str;
if Length(str)>0 then
for b:=1 to Length(str) do
Result[b]:=Chr(Ord(str[b])+(b mod 10));
end;
 
function UnCode(const str:String):String;
var
b:byte;
begin
result:=str;
if Length(str)>0 then
for b:=1 to Length(str) do
Result[b]:=Chr(Ord(str[b])-(b mod 10));
end;
 
end.

Заранее спасибо огромное!

@RAZOR3 · 05.06.2010, 01:16

помоему это обычный метод смещения каждого знака

@wildberkut · 07.05.2012, 09:13

Походу, это Шифр Цезаря, делал недавно лабораторную на эту тему, похоже

@RAZOR3 26 / 26 / 10 Регистрация: 24.08.2009 Сообщений: 71
	05.06.2010, 01:16	2
	помоему это обычный метод смещения каждого знака 0

@wildberkut 0 / 0 / 0 Регистрация: 25.03.2012 Сообщений: 3
	07.05.2012, 09:13	3
	Походу, это Шифр Цезаря, делал недавно лабораторную на эту тему, похоже 0