{The following very simple routine will encrypt and decrypt a Text File a line
at a time. The CR/LF is left unencrypted and the algorithm ensures that no
encrypted Character can be < asciiz 127 *provided that* the Text For encrypting
has no hi-bit Characters.
Obviously this is just a skeleten example (untested) With no error checking but
it should demonstrate what you need to do. After encrypting Text just reverse
the parameters and run the Program again to decrypt the encrypted Text.
}
Program encrypt_Text;
Uses Crt;
Var
inText,
outText : Text;
st : String;
pw : longInt;
Function ConvertTxt(s: String): String;
Var x : Byte;
begin
ConvertTxt[0] := s[0];
For x := 1 to length(s) do
ConvertTxt[x] := chr(ord(s[x]) xor (Random(128) or 128));
end; { ConvertTxt }
function enterpw:integer;
var s : string;
ch : char;
err, z : integer;
begin
pw:=0;
z := 1;
s := '';
Write('Enter Password: ');
repeat
ch := upcase(readkey);
case ch of
#8 : Begin
if z > 1 then begin
dec(z);
Delete(s,z,1);
write(ch);
clreol;
end;
end;
#13,#10,#27 : Begin
writeln;
writeln;
WriteLn('Processing...');
end;
else
begin
s:=s+ch;
write('');
inc(z);
end;
end;
until (ch = #13) or (ch = #10) or (ch = #27);
if s = '' then begin
writeln;
textcolor(lightred);
writeln('Error: Invalid Entry, Exiting');
textcolor(lightgray);
halt(10);
end;
val(s,pw,err);
enterpw:=pw;
end;
begin
clrscr;
Writeln('Text Encrypter V1.20 CopyLeft (C) Michael Webster 1995');
WriteLn('FreeWare version!');
WriteLn;
enterpw;
RandSeed := pw;{ set to whatever value you wish - this is your "key" }
assign(inText,ParamStr(1));
reset(inText);
assign(outText,ParamStr(2));
reWrite(outText);
While not eof(inText) do begin
readln(inText,st);
Writeln(outText,ConvertTxt(st));
end;
close(inText);
close(outText);
Writeln('Success!!');
end.
------CUT-----
now here is the file to hack.. its a list of numbers for PBX's/Loops
-------CUT-------
话κр݂ܺΉ觵
ݐ
ܑȧޓ̫ŨԞ
鄩ȏı
ʗҧӼԩ
ƑҜ͜ʽېۤ٨٣
Ӕò∅̖
דΗ銣˼β
ҁǢ
炖ķ쑾ƥ֤
Ńτơїօ
ϣ⍃ɫآƬɬ
킘߲֥ӯ
ĕԇ
ʰΡ͍
Ʃȱ𬥥͜ґ
څ䤶ŧ酐ѵ
ķ٘Ѯǒɚݮ
Ƴꗲס㽰ጫ
⭉眳Қҵ͟
˚ٷ܍Ƌ
Ձʎڍϝج
¤ӧյ֨ӗ
ֶۿˑí
艒֕ƥţ邴
Ұ؏݇琗ܟ
ƿЖŃխ
аҰ㲳𰖷㥍
ےҪɌ
ܺѵڢ
鞁艙ʴۛܓ
٩ә
Ǚڇ܊뗫̓Ȣ̒
ǁ樱ڕ
獇վ鱨
郒֫؊眡
띫ފ˴®ߵ
ؐ䶨°ɆϠ
ƚܩʩӃٲ
ɠߔ´Ջ̢
¸Þ谋ٗșѪ
ŸǶ
ԪèҤߒ
ӿܱŌʱƠº
ζբތՠ
͐ط՞à֗
лލɜ؋ӳ
ެƥӲ幠г
̨䫂ՕԨߘ
پׯŴŒ
șϨژ̡
ɘ،އ
䩄̹ӯ¬
ۦᙞՀ©
Ӓȉܴȴ
쳽ӌȪ¨ʈ
ݵ恉歺õȾ
¢Ǵݫ
يڅᢎ
鿌Ԝİ͆ڋƿ
Ȋܢƻؙؑ
́˘ôӷ嚬
ͮڻńۓѠЄ
鷥嫗ƑҌͲ
֑ʹӂ
ѩњ頶˨Ե
ߔΰś
ɯ٦߁⋅ܫ
݆DZ̩٤ȶ
ാџƪ
Η쳼߸¹ÞɌџ
Уֲٕ̉
҂툱ҕޘȮƿ
žƷ̀ϺƟѵ
ۛԒڤ
ܥ߮ꬾӐ
Ĝ
ùϰă۔ȭͿƔ
Ѷ̤ͧ
ѹԿ⣆꣦굃à
ޖɐŘաƩ҃
ֶ̞Ȥ椃߈
漢ƮĒ䃤
塞쁠ȇԟԫޣ
Õе
ݛудĚ۵Ϊן
艌ڙӹڴ
繇Μּ蟸ъ
뭏жնǼ̯
̰樇
Ԍ俌㋅ԫ
霨ʙγ
ؼ꺄满Ճ
ȟћ
¯Ը̳έ
珿ʭͻŀБ
Ɇ֪ۅ
ޏ쌓Ё
ū𖼳ΰԈ
ۗ衊맅ưɩÉ
魪蕼¬픘
汛핢ӣᴧ
ѓȫ鏭
鎽͇ʛŽ
ȼǮ礘܀
ޓĬݛܾ֜
ƜԵѣ炞
칶劧ĥ؝Ǥ܉
曍็Β͂
㸾ՙ
Ҭٻ
őȅ؝Ҷ
ҸɉЭƀϙ
털ΐЙݒ륚
ͱݾ֠ʼڗ
Ӏ݀敺ݚ爧ੁ
Цր֒
⯈ЉѦ
㏊פߐݢ焵
Ȅⲓ̐ҋ嬳
Ѭ܀DžĄ藍Ѥ
飷Ӳ鑮ӝ
כӒ
Ԕ竑ӅЛ
ً嗔֛ɏ
饪𢷟˷
Őʩ۠Ԫ
ݴШꞧĥؑ
ͿۂϪѨ
ЏʧΖ̢
в»çͻ눳˸
ܨŏ̌᧠
ю̆խɡּ
ܫÊ֨ӱТƺ
ԳŁϝȖָ֘Ĉ
ϞߤخԈߦ©
ރۺԚߐ͈Ӑڇ
ֹѿֺ
ɒ悤֜
âӘӉ侮Ա
؏ߌϧ幏ӏɈԢ촁
ꀳي
܌ʽߙߠᐽ
ߥѱзӀǩ
ݜФߋĺȭ֨
ՑЕ늡ԥ
攻ԮᖍΆ
˖Ş߇
חԣޓ
咣ύݥΞ
ᑁުΟ눂ȴ
𡩬ɀᕰݥР
һŗ߈⎘嫴ц
ʼn쓝ѷӃ
ֽ߰
ԦƏĐÒ
ÄϺ՜Ǭ
ʞ
ńՒ
κǗќէ
ȋ̭̇
劔뱶훶
谹晴ߕذ뽧و
ψסDz
̧Ūڦĉýֱӽ
ԙԢ̯⾛Ց
Ҭ̇΄͒ȳ
٧ґǏLjІڎ
Ӵij˰ǣׄօŤÖ
ڣ˹ՙܹТ
ĭ緄͍ȋÃс
ȕɶЄ
ٶҖ
폒٥ź
ސӟ
ʛǍ冟
Đρ͋˱ߤ
и݆ؓ
ΘĭɈ
ή٣뚏яܠ
ŔŠ̔Ь
ứȒ͈݃湥
Ŕעض؉
ӘÑĵƀ
߮꙰ƴַĆ
ƀˌՎ٧ק
О㒶媱
ȅ
ѓӖʃߣցւ
ɫ㴆ؿ
עϒޒ
բ⛸˿
ʞΰʊӮҼĺ
䝦ݺˌ֬ǧ㛂
߇酼Џ݀ѠˊЁ
Ϥܱ
璐ۦ
ǿݠԪʬ̧
م͓֚쓬
½Š˔ЌŶ
۟将 ƈ
ޕ𭛢ؘ
εŔ㊚֑
ߑӪԀԙŮ
еݹږԲ
ſƁփ
------CUT-------
there is a chalenge
cya
_\\|//_
-Michael (` o-o ')
-------------------------------ooO-(_)-Ooo-----------------------------
Internet: websterm@inca.co.nz | SuperNet: 127:345/220
BBS: +64-9-833-9198 10Pm-7An ONLY! The Board | PowerNet: 260:5000/170
SpaceNet: 95:2000/13 .oooO Oooo. | PaintNet: 300:2121/90
( ) ( )
------------------------------\ (-------) /----------------------------
\_) (_/
Operating at a higher level - I'm Warped!
               (
geocities.com/~franzglaser)