Ha elromlott a szövegszerksztő program, s egy ilyen kód jelenik meg, hogy lehet megnézni, hogy mi az eredeti szöveg? 54687265652052696e677320666f722074686520456c76656e2d6b696e67 7320756e6465722074686 520736b792c0d0a536576656e20666f722074686520447761

tabaki kolléga elsőre eltalálta a megoldást.

A szöveged:

Three Rings for the Elven-kings under the sky,

Seven for the Dwa

.. és a nyúlfarknyi program:

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var ch: string;

s : string = '54687265652052696e677320666f722074686520456c76656e2d6b696e67 7320756e6465722074686 520736b792c0d0a536576656e20666f722074686520447761';

i : integer;

begin

s := StringReplace(s, ' ', '', [rfReplaceAll]);

for i := 0 to (Length(s) div 2) - 1 do

begin

ch := '$' + Copy(s, (i * 2) + 1, 2);

Write(Chr(StrToInt(ch)));

end;

ReadLn;

end.

@SimkoL:

Nahát... Esküszöm, motozott bennem, hogy én is megírom, csak fáradt voltam, és persze a priori lusta is -- meg aztán el is hittem, hogy igazi szövegszerkesztőről van szó, ez aláásta a hitemet, hogy ilyen egyszerű.

Tiéd a pálma!

Kérdező, Kérdező, te pedig megéred a pénzed.

A leendő weboldalamat készítem elő, jól esett egy pár sor 'igazi' program a HTML és CSS mellett kikapcsolódásként :). De hogy teljes legyen itt van az egész:

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var ch: string;

s : Ansistring;

i : integer;

begin

s :='54687265652052696E677320666F722074686520456C76656E2D6B696E677320756E6465722074686520736B792C0A0D' +

'536576656E20666F72207468652044776172662D6C6F72647320696E2074686569722068616C6C73206F662073746F6E652C0A0D' +

'4E696E6520666F72204D6F7274616C204D656E20646F6F6D656420746F206469652C0A0D' +

'4F6E6520666F7220746865204461726B204C6F7264206F6E20686973206461726B207468726F6E650A0D' +

'496E20746865204C616E64206F66204D6F72646F722077686572652074686520536861646F7773206C69652E0A0D' +

'4F6E652052696E6720746F2072756C65207468656D20616C6C2C204F6E652052696E6720746F2066696E64207468656D2C0A0D' +

'4F6E652052696E6720746F206272696E67207468656D20616C6C20616E6420696E20746865206461726B6E6573732062696E64207468656D0A0D' +

'496E20746865204C616E64206F66204D6F72646F722077686572652074686520536861646F7773206C69652E';

s := StringReplace(s, ' ', '', [rfReplaceAll]);

for i := 0 to (Length(s) div 2) - 1 do

begin

ch := '$' + Copy(s, (i * 2) + 1, 2);

Write(Chr(StrToInt(ch)));

end;

WriteLn;

s := 'Three Rings for the Elven-kings under the sky,'+#10#13+

'Seven for the Dwarf-lords in their halls of stone,'+#10#13+

'Nine for Mortal Men doomed to die,'+#10#13+

'One for the Dark Lord on his dark throne'+#10#13+

'In the Land of Mordor where the Shadows lie.'+#10#13+

'One Ring to rule them all, One Ring to find them,'+#10#13+

'One Ring to bring them all and in the darkness bind them'+#10#13+

'In the Land of Mordor where the Shadows lie.';

for i := 1 to Length(s) do

begin

ch := IntToHex(Ord(s[i]), 2);

Write(ch);

end;

ReadLn;

end.