home *** CD-ROM | disk | FTP | other *** search
/ The Elite Hackers Toolkit / TheEliteHackersToolkitVolume1_1998.rar / HACKERS.BIN / appcraks / WKT_WC35.ZIP / WCMCRYPT.PAS < prev    next >
Pascal/Delphi Source File  |  1998-04-27  |  785b  |  24 lines

  1. Program Windows_Commander_String_Encryptor;
  2.  
  3. Var
  4.   Cadena : String;
  5.   i      : Byte;
  6.  
  7. Begin
  8.   WriteLn(#13#10+
  9.           '┌─────────────────────────────────────┐  ');
  10.   WriteLn('│        Windows Commander v3.x       │ █');
  11.   WriteLn('│   (c) 1993-1998 Christian Ghisler   │ █');
  12.   WriteLn('│─────────────────────────────────────│ █');
  13.   WriteLn('│      DeS/ENCRiPTaDoR de CaDeNaS     │ █');
  14.   WriteLn('│         (c) Aitor [WKT/1998]        │ █');
  15.   WriteLn('└─────────────────────────────────────┘ █');
  16.   WriteLn('  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀'
  17.     +#13#10);
  18.   Write(' ■ Cadena Original ..: ');
  19.   ReadLn(Cadena);
  20.   For i:=1 to Length(Cadena) do
  21.     Cadena[i]:=Chr(((Ord(Cadena[i])-$20) xor $77)+$20);
  22.   WriteLn(' ■ Cadena Encriptada : '+Cadena);
  23. End.
  24.