yse
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| а на не мог бы тут под править пару строк под этот декодер а то не знаю куда курилицу вписать,чтоб шифровал не латину а курилицу |
program Encode;
var f,g:text;i,x,v,r,k:Longint;s:string;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
read(f,s);
x:=length(s);k:=0;
for i:=1 to length(s) do
begin
if (((ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')))
or ((ord(s[i])<=ord('Z')) and (ord(s[i])>=ord('A')))) then inc(k)
else if k<>0 then begin if k<x then x:=k; k:=0; end else continue;
if i =Length(s) then if k<>0 then begin if k<x then x:=k; k:=0; end;
end;
for i:=1 to length(s) do
begin
if (ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')) then begin r:=ord(s[i])-x; if r<ord('a')
then begin v:=ord('z')-ord('a')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end; end;
if (ord(s[i])<=ord('Z')) and (ord(s[i])>=Ord('A')) then begin r:=ord(s[i])-x; if r<ord('A')
then begin v:=ord('Z')-ord('A')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end; end;
end;
write(g,s);
close(f);
close(g);
end.
пробовал так
var f,g: text;А,Б,В,Г,ґ,Д,Е,Є,Ж,З,И,Ї,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ь,Ю,Я,а,б,в,г,д,е,є,ж,з,и,ї,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ь,ю,я:Longint;s:string;
менял в строках
if (ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')) then begin r:=ord(s[i])+54; if r<ord('a')
then begin v:=ord('z')-ord('a')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end; end;
if (ord(s[i])<=ord('Z')) and (ord(s[i])>=Ord('A')) then begin r:=ord(s[i])+54; if r<ord('A')
вместо-х вставил+54
получил
не в зашифрованном виде Google.com
в зашифрованном виде вышло так }ҐҐќў›.™ҐЈ
|
