Криптиране на дума

Идеята е следната да се досеща някой код за криптиране на дума ( може да само числа може да числа с букви или само букви ).
Ако може някой да ми услужи с кода за криптиране и съответно за декриптиране ще съм му мнго благодарен!

Благодаря предварително !!!!

Неприятно подозрение измъчва душата ми... Пак трябва да решим на някой домашното... Все пак, днес съм в добро настроние. Ето един зашеметяващ код, който върши чудесна работа - веднъж за криптиране, втори път за декриптиране. Освен това има огромното достойнство, че пасва на мързеливи девелопери като мене. Колкото за нивото на криптиране, то отлично подхожда на мързеливи студенти 1 курс

function Crypt (W: string) : string;

var i: integer;

begin

for i:=1 to length (W) do Result:=Result+chr (ord (W [ i ]) xor $ff);

end;

чети и дишай по-леко

i ako trqbwa da bydem malko po-seriozni:

[линк]

tuka ima dosta prilichni algoritmi za kriptirane - lichna razrabotka -vlachi- taka pone malko po-lesno sywestta mi pozwolqwa da pozwam chujd rtrud

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Не става въпрос за домашно а за нещо по специално това че прякора ми е стутедент не означава че съм студент!!
Завърших миналата година но Няма Значка !!!!

Но все пак благодаря много !!!!!

Моля, моля... Извинявай, ако съм сбъркал... Ама за по-специални цели е силно препоръчително да изпиратстваш колегата SDR...

чети и дишай по-леко

Няма нищо NP;
Аз теб те уважавам ти си ми помагал и в други ситуации!!