[Back to ENCRYPT SWAG index] [Back to Main SWAG index] [Original]

    Program EncryptMessageInsideExe;

    {This stupid program is useful to encrypt copyright messages into executables.
     Use: Run this program
          Input message and xor value
          Write encrypted string and xor value on a sheet
          If you declare the encrypted string as a var(string)/const you can
          decrypt it on-the-fly using XorIT with the same xor value
          In this way hackers (the lamest ones) can't see/modify your string}
    {Author: Salvatore Meschini - E-Mail: smeschini@ermes.it - WWW:
             http://www.ermes.it/pws/mesk . Please report bugs and suggestions}
    {This program if FREE, use it copy it think me :) }

    uses CRT;

    var s,xs:string;
        i,xv,c:word;
        f:text;

    Function XORIT(s:string):string;
      begin
       xs:='';
       for i:=1 to length(s) do
        begin
          c:=ord(s[i]) xor xv;
          xs:=xs+chr(c);
        end;
       xorit:=xs;
      end;

    begin
         clrscr;
         write('Input string: ');
         readln(s);
         write('Input XOR Value: ');{Low values creates plain ASCII strings}
         readln(xv);
         clrscr;
         writeln(S);
         writeln(xorit(s));
         writeln(xorit(xs));  {Safe Check}
         writeln;
         asm {Turns cursor off}
            XOR   ax,ax
            MOV   ax,$0100;
            MOV   cx,$2607;
            INT   $10
         end;

         {IMPORTANT:}
         if paramcount > 0 then
           begin   {If parameter isn't null  you will have the encrypted
                   message in a file, so ... cut and paste in your source (see
    below)!}
             assign(f,paramstr(1));          {^^^^^^^^^^^^}
             rewrite(f);
             write(f,xorit(s));
             close(f);
           end;

         write('Now you can declare
    ''');textcolor(lightred);write(xorit(s));textcolor(7);
         write(''' as a const and decrypt it in execution time with xorit!
    (Remember XORVALUE=');
         textcolor(9);write(xv);textcolor(7);writeln(')');writeln;
         if paramcount <> 0 then write('I saved ',xorit(S),' in
    ');textcolor(10);writeln(paramstr(1));
         readkey;
    end.

    {Example -------------------------------------------------------- Example}

    Program Demo;

    const hiddenmessage='-F,%Vdisdqjw`%H`vfmlkl'; {<- This is equal to:
                                                 '(C) Salvatore Meschini' XORed
                                                     by 5}
          xorvalue=5;               {You can use your message and xorvalue}

    Function XORIT(s:string):string;
      var xs:string;
          xv,i,c:word;
      begin
       xs:='';

       xv:=xorvalue;  {<-- xv:=5}

       for i:=1 to length(s) do
        begin
          c:=ord(s[i]) xor xv;
          xs:=xs+chr(c);
        end;
       xorit:=xs;
      end;

    begin

    writeln(xorit(hiddenmessage)); {You DON'T HAVE (C) Salvatore Meschini in .exe
                                    but you CAN display it!!!}
    end.

[Back to ENCRYPT SWAG index] [Back to Main SWAG index] [Original]