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

    { JC> I was wondering what Format you Programmers out there use to make
     JC> registration codes.  I was fooling around With a letter standing For
     JC> another letter but thats too simple.  How can I go about writing
     JC> bullet proof (or at least bullet resistant)  registration codes.  BTW,
     JC> this is not an over the modem Type Program.  if you understand what
     JC> I'm TRYinG to say, I wopuld RealLY appreciate a response.  Thanks a
     JC> lot!!!
    }

    Program RegCode;

    Uses Crt;

    Var
      ch : Char;
      Name : String;

    Function MakeRegCode(S:String): LongInt;

    Var
     I: LongInt;
     B: Byte;

    begin
     I:=0;   { Could make this something else if you want it more random looking }
     For B:=1 to Length(S)
      Do I:=I+ord(S[B]); { Could make it ord(S[B]+SomeValue) to make it more
                    interesting }
     MakeRegCode:=I;
    end;

    begin

     Writeln;
     Writeln;
     Write('Enter SysOp Name : ');
     Readln(Name);
     Writeln;
     Writeln('The resultant code was ',MakeRegCode(Name));
     Writeln;
     ch:=ReadKey;

    end.

    {You can also add a BBS Name or a City or anything else you want. just keep on
    adding it to the I Var in the MakeRegCode proc.  to check to see if a reg code
    is valid, just Compare the registration code he already has (in a cfg File
    comewhere I assume) With the one generated this part of code.  if they match,
    then is is a good code... if not... then he didn't register.
    }

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