[JunkieBeat]

В нэте нашел две функции на вид отличные,но как оказалось это не совсем так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

const   StartKey = 359;//ключи на шифры   MultKey = 61522;   AddKey = 11785; function TForm1.Encrypt(const InString: string; StartKey, MultKey,   AddKey: Integer): string; var   I: Byte;     //Функция шифрования 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; function TForm1.Decrypt(const InString: string; StartKey, MultKey,   AddKey: Integer): string; var   I: Byte;   //функция дешифрирования 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;

При дешифрировании происходят ошибки,как правило кусок который как будто бы не дешифрировался или снос на новую строку лишний вылазиет. Возможно пользуюсь как то криво

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button5Click(Sender: TObject); var   i:integer; //Шифруем begin for i:=0 to Memo1.Lines.Count-1 do begin   Memo1.Lines[i]:=Encrypt(Memo1.Lines[i], StartKey, MultKey, AddKey); end; end;

[Alegun]

Попытка построчной шифровки не есть хорошо, возможно надо так:

Код:

1 2 3 4

procedure TForm1.Button5Click(Sender: TObject); begin   Memo1.Text:= Encrypt(Memo1.Text, StartKey, MultKey, AddKey); end;

Естественно, расшифровывать тоже таким макаром.

[Bargest]

Теоретически в результате шифровки может получиться ноль. А ноль в середине строки - это возможные баги. В делфе строки гибридные - с одной стороны, в начале строки стоит ее длина, с другой - она должна кончаться нулем. Так что во избежание возможных багов лучше шифрованное не интерпретировать как строку.

[Alegun]

Ещё в прошлом веке столкнулся с chr(#0) (обрезало текст, ведь это знак окончания строки), решалось так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

const zn1 = #60; { < }  zn2 = #62; { > }    function EnCrypt(ds: string): string;   var k,l,m: string; i,b,g: integer; t: char;    function Lvs(ds: byte): string;    begin     case ds of Byte(zn1): Result:= zn1+zn2;Byte(zn2): Result:= zn2+zn1;          0: if Random(2)=0 then Result:= zn1+zn1 else Result:= zn2+zn2;            else Result:= Chr(ds);end;    end;   begin    if length(ds)=0 then Exit; Randomize; k:=''; m:=''; b:=1;    for i:=1 to RandomRange(5,16) do k:= k+Chr(RandomRange(1,256));    for i:=1 to Length(ds) do  begin g:= Byte(ds[i])xor Byte(k[b]);    l:=Lvs(g);t:=k[b];if i<=Length(k)then m:=m+t+l else m:=m+l;Inc(b);    if b>Length(k) then b:= 1; end; l:= Chr(Length(k))+m;    for  i:=1 to Length(l) do begin b:= Byte(l[i]) xor i;k:= Lvs(b);    Result:= Result+k; end;   end;    function DeCrypt(ds: string): string;   var k,c,l,n: string; i,b,m: integer; d: boolean;    function Svl(ds: string; ts: integer): char;    var t: byte;    begin     t:=Byte(ds[1]);     if ds=zn1+zn2 then t:=Byte(zn1);if ds=zn2+zn1 then t:=Byte(zn2);     if(ds=zn1+zn1) or (ds=zn2+zn2) then t:= 0;Result:=Chr(Byte(t xor ts));    end;   begin    if length(ds)=0 then Exit; b:=1; i:=1; n:='';    while i<=Length(ds) do begin c:= ds[i];    if (ds[i]=zn1)or(ds[i]=zn2)then begin c:=ds[i]+ds[i+1]; Inc(i); end;    Inc(i); n:= n+Svl(c,b); Inc(b); end; c:=''; k:=''; b:=1; i:=1; d:=false;    m:=Byte(n[1]); Delete(n,1,1);    while i<=Length(n)do begin if b<=m*2 then begin if d then begin l:=n[i];    if (n[i]=zn1) or (n[i]=zn2) then begin l:= n[i]+n[i+1]; Inc(i); end;    c:=c+l; Inc(b);d:=false; end else begin k:=k+n[i]; d:=true; Inc(b); end;    end else begin l:= n[i]; if (n[i]=zn1) or (n[i]=zn2) then begin    l:= n[i]+n[i+1]; Inc(i); end;  c:=c+l; end; Inc(i); end;    if length(c)=0 then Exit;i:=1;b:=1; while i<=Length(c)do begin l:=c[i];    if (c[i]=zn1) or (c[i]=zn2) then begin l:=c[i]+c[i+1]; Inc(i); end;    Inc(i);Result:=Result+Svl(l,Byte(k[b]));Inc(b);if b>Length(k)then b:=1;    end;   end;

[Bargest]

Мда... Больше похоже на java-код, пропущенный через очень мощный обфускатор, со специально построенной таблицей номеров строк, сдекомпилированный через JD... Нельзя так код писать.

[Alegun]

Сообщение от Bargest

Мда... Нельзя так код писать.

1999 год... С тех пор работает без переделок.

[JunkieBeat]

Сообщение от Alegun

Код:

Такая штука не катит вообще большая часть текста уходит в некуда)
а насчет твоего кода 99г то у меня выдает ошибку "[Error] Unit1.pas(68): Undeclared identifier: 'RandomRange'" мб он уже как то по другому пишется,или бблка нужна какая,я нуб просто))

[Alegun]

Сообщение от JunkieBeat

...у меня выдает ошибку "[Error] Unit1.pas(68): Undeclared identifier: 'RandomRange'" мб он уже как то по другому пишется,или бблка нужна какая,я нуб просто))

Нужно модуль Math в uses дописать.

[JunkieBeat]

Спасибо большое работает,но вот добавляет лишние символы в конец как это убрать? потому что мне надо шифровать файлы и сохранять их,потом уже открывать и дешифровать.
и еще

Код:

1	const zn1 = #60; { < }  zn2 = #62; { > }

это я так понял ключи,тут можно поставить любое значение да?

[Alegun]

Сообщение от JunkieBeat

...работает,но вот добавляет лишние символы в конец как это убрать?

Прилагаю примерчик использования - у меня работает как часы, без замечаний очень долгое время.

...и еще

Код:

это я так понял ключи,тут можно поставить любое значение да?

Это не ключи, а указатели (маркеры) на #0, в юните XorCrypt.pas всё подробно об этом написано. Надеюсь, поможет.

[JunkieBeat]

Все Alegun спасибо огромное,выручил)Насчет того что добавляет левые символы,это уже я протупил с вызовом функции))