demRC4 Encryptor\decryptor

[demien]

demRC4 Encryptor\decryptor
cod3t by demien
icq 414-8888-1-8

infO:
Программа для шифрования\дешифрования
любых текстовых строк, текста и т.д. любым паролем.

screeN:

downloaD:
sendspace.com/file/rpzjh7

 

[Mr.Di]

Добавь басе64 енкод для закодированного кодеса, дабы можно было легко копипастеть =\

 

[demien]

demRC4 + Base64 Encryptor\decryptor v0.2
автор: demien
аська: 414-8888-1-8

infа:
В связи с недброжелательностью антивирсусов и фаеров к файлу rc4.exe (а точнее к алгоритму криптования (RC4)). Переписал софт на VB, добавил функцию шифрования base64 на выходе (за идею спасибо DiFor'у).
Размер уменьшился в разы. Вообщем вот вторая версия енкриптора\декритора.

скрин:

работа с функцией:

function xRc4(Expression, Password:string):string;
var
  RB:         array[0..255] of integer;
  X, Y, Z:    LongInt;
  Key:        TByteArray;
  ByteArray:  TByteArray;
  Temp:       Byte;
begin
  if Length(Password) = 0 then
    Exit;
  if Length(Expression) = 0 then
    Exit;
  if Length(Password) > 256 then
  begin
    SetLength(Key, 256);
    Move(@Key[0], @Password[1], 256)
  end
  else
  begin
    SetLength(Key, Length(Password));
    Move(@Key[0], @Password[1], Length(Password));
  end;
  for X := 0 to 255 do
    RB[X] := X;
  X := 0;
  Y := 0;
  Z := 0;
  for X := 0 to 255 do
  begin
    Y := (Y + RB[X] + Key[X mod Length(Password)]) mod 256;
    Temp := RB[X];
    RB[X] := RB[Y];
    RB[Y] := Temp;
  end;
  X := 0;
  Y := 0;
  Z := 0;
  SetLength(ByteArray, Length(Expression));
  Move(@ByteArray[0], @Expression[1], Length(Expression));
  for X := 0 to Length(Expression) - 1 do
  begin
    Y := (Y + 1) mod 256;
    Z := (Z + RB[Y]) mod 256;
    Temp := RB[Y];
    RB[Y] := RB[Z];
    RB[Z] := Temp;
    ByteArray[X] := ByteArray[X] xor (RB[(RB[Y] + RB[Z]) mod 256]);
  end;
  SetLength(Result, Length(Expression));
  Move(@Result[1], @ByteArray[0], Length(Expression));
end;

использование:

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.text:= xRc4(memo1.text, edit1.text);
end;

download:
http://www.sendspace.com/file/vqn1i0

 

[Sunzer]

А смысл? Когда уже куча готового есть. Зачем изобретать велосипед?

 

[karabas-barabas]

А смысл? Когда уже куча готового есть. Зачем изобретать велосипед?

зато этот с пиз**тым gui интерфейсом

 

[mactoob]

This file has been deleted. Please contact the uploader and ask them to upload the file again.

Есть ли возможность обновить ссылку?
спасибо)

 

[DASM32]

mactoob

http://dump.ru/file/4410508
http://rapidshare.com/files/360552088/demRC4EncDec.rar.html
http://depositfiles.com/files/i4phe6nkh