home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Elite Hackers Toolkit
/
TheEliteHackersToolkitVolume1_1998.rar
/
HACKERS.BIN
/
appcraks
/
WKT_WC35.ZIP
/
WCMCRYPT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-04-27
|
785b
|
24 lines
Program Windows_Commander_String_Encryptor;
Var
Cadena : String;
i : Byte;
Begin
WriteLn(#13#10+
'┌─────────────────────────────────────┐ ');
WriteLn('│ Windows Commander v3.x │ █');
WriteLn('│ (c) 1993-1998 Christian Ghisler │ █');
WriteLn('│─────────────────────────────────────│ █');
WriteLn('│ DeS/ENCRiPTaDoR de CaDeNaS │ █');
WriteLn('│ (c) Aitor [WKT/1998] │ █');
WriteLn('└─────────────────────────────────────┘ █');
WriteLn(' ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀'
+#13#10);
Write(' ■ Cadena Original ..: ');
ReadLn(Cadena);
For i:=1 to Length(Cadena) do
Cadena[i]:=Chr(((Ord(Cadena[i])-$20) xor $77)+$20);
WriteLn(' ■ Cadena Encriptada : '+Cadena);
End.