{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!