Új hozzászólás Aktív témák

• #2152 Panther45 csendes tag

  Új Válasz 2008-03-31 17:51:47 #2152

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Panther45

  csendes tag

  Sziasztok!
  Csak vagy 2-3 kérdésem lenne!
  (* pwtitkos.pas *)
  program pwtitkos;
  uses crt;

  { Sztringet jelsz˘val titkosˇt˘ elj r s

  bemen“ param‚terek: kulcs - a jelsz˘
  forras - az eredeti v. titkosˇtott sz”veg
  kimen“ param‚ter : eredmeny - a m–velet eredm‚nye
  }
  {$R-}
  procedure titkosit(kulcs, forras: string; var eredmeny: string);
  var
  fix : integer;
  px, { jelsz˘ index }
  fx { forr s index } : byte;
  chkod : byte;
  begin
  fix := length(kulcs) * 1996;
  fx := 1;
  px := 1;
  eredmeny[0]:=forras[0];
  repeat
  chkod := ord(forras[fx]) xor ord(kulcs[px]) xor fix;
  eredmeny[fx] := chr(chkod);
  inc(fx);
  inc(px);
  if px > length(kulcs) then px := 1;
  until fx > length(forras);
  end;

  var
  kulcs,
  eredeti,
  titkos,
  nemtitkos : string;

  begin
  clrscr;
  eredeti := 'Programozzunk Turbo Pascal nyelven!';
  kulcs := 'ComputerBooks';

  titkosit(kulcs, eredeti, titkos);
  writeln('Az eredeti sz”veg : ', eredeti);
  writeln('A k˘dolt sz”veg : ', titkos);

  titkosit(kulcs, titkos, nemtitkos);
  writeln('A visszak˘dolt sz”veg : ', nemtitkos);
  writeln;

  kulcs := 'Programozzunk Turbo Pascal nyelven!';
  titkosit(kulcs, eredeti, titkos);
  writeln('Az eredeti sz”veg : ', eredeti);
  writeln('A k˘dolt sz”veg : ', titkos);

  titkosit(kulcs, titkos, nemtitkos);
  writeln('A visszak˘dolt sz”veg : ', nemtitkos);
  writeln;
  eredeti := 'ComputerBooks';
  kulcs := 'Programozzunk Turbo Pascal nyelven!';
  titkosit(kulcs, eredeti, titkos);
  writeln('Az eredeti sz”veg : ', eredeti);
  writeln('A k˘dolt sz”veg : ', titkos);

  titkosit(kulcs, titkos, nemtitkos);
  writeln('A visszak˘dolt sz”veg : ', nemtitkos);

  readln;
  end.

  Ez lenne a programom...
  Van benne ilyen hogy "fx,px" ezek mire jók?
  Meg azt nem értem még hogy miért van benne az eredeti szöveg után a KULCS?
  Ez miért van?
  Csak ennyit szeretnék,köszönöm !!!

Új hozzászólás Aktív témák