шифрование байта

[Oleg1988]

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

/////////////
mastrer
///////
char kod=0xa0;
a=encript(kod,byte);
send(a);


/////////////
slave
///////
char kod=0xa0;
byte=resive();
a=dencript(kod,byte);
putchar(a);

подойдут даже самые простые реализации чтоб пароль можно было задавать в пределах байта ...0x00 0xFF

[Stilet]

a=kod^byte;

Это и зашифровка и расшифровка

[plgrm44]

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

a=kod^byte;

Это и зашифровка и расшифровка

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

[Oleg1988]

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

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 var
i:integer;
c:integer;
 f:text;
 b:string;
 f1:text;
 b1:string;
key:byte;


 begin;

 //writeln('Enter key');
 //readln(key);
 Assign(f,'1.txt');
 reset(f);
 read(f,b);
 c:=length(b);

Assign(f1,'2.txt');
ReWrite(f1);


for i:=0 to 999 do begin //for i:=0 to с do begin

Write(b[i]);

end;

writeln('');
writeln('OK');

close(f);
close(f1);

 end.

Може на си поробовать?

[Stilet]

Делфя невидит

Я бы тоже от такого кода несварение компилятора получил...
файл с текстом где?

[Oleg1988]

Вот файл, треба чтоб данные в кекс виде считались и я их обработал, потом сохранил рядом. Наверно 3 раз пишу под вокна код. С вокнами вообще неработал никогда.

[Stilet]

пишу под вокна

Под чем пишешь??

[Oleg1988]

Непонел, пишу с бодуна, иногда трезвый. Под мк пишу на кодвижн и студии, микропаскаль тоже использую. Короче си восновном язык. Для компутера выбрал компилятор Delphi7 portable. Могу на си, делфях, бесике. За бабки могу и на прологе с изотерикой, если бабок много то готов переключать регистры тумблерами и грузить код на перфокартах.