Помогите написать прогу шифрования/дешифрования

[DiSpalL]

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

[Stilet]

Такое подойдет:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 //********* END PROCEDURE******* {}
    function XORString(str:String; XORKey:byte):string;
var e:dword;
begin
 result:='';
    //********* FOR ******************
    for e :=1  to length(str) do
    begin
      result:=result+chr(byte(str[e]) xor XORKey);
    end;
    //******* END FOR ****************{}
end;
//**************************************************************************

procedure TForm1.FormCreate(Sender: TObject);
begin
   caption:=XORString('Строка',3);
end;
end.

[SERG1980]

Ещё вариант шифрования XOR c ключом

[DiSpalL]

а на каком языке это написано?)))))))))

[SERG1980]

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

а на каком языке это написано?)))))))))

это delphi

[Sparky]

У меня есть прога - алгоритм шифрования Фано, на паскале. Если нужно могу кинуть

[Ыыыга]

у меня есть на VB, но скинуть только завтра вечером могу

[DeKot]

Смотрим здесь :
http://www.programmersforum.ru/showt...F0%E0%F2%EE%F0

[DiSpalL]

А как сделать экзешник к этой проге? Помогите пожалуйста!