Code archives/Algorithms/Key Generator

;Checksum passed - check actual code
r = Rand(1, 50)
For i = 1 to 50
  If r = i Then code$ = GenerateCode(AccountName$) Else code$ = GenerateDummyCode(AccountName$)
  If code$ = typedcode$ Then Return ACCEPTED
Next
Return REJECTED

<?
//So you'll need to keep a version for yourself for sending keys to people!
print keygen("pexe");

Function keygen ($name)   {

// change v$ to as many or few random or unrandom letters, numbers, characters whatever
// this is what the key is going to be made out of
// You can have duplicates all over the place if you want, it's up to you!
// This is one part that will make your keys unique to other people using this program
// e.g. v$="I1D9U0AJ5PFWIN1TR3EKLWZID42HU7KL8S6LTBN9VMCXOF6T46GY3JHIE9T7VTLFDEQ3Y38P"


$v = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

$tname = $name;

// make name longer if necessary
// again adjust this to make your keys unique

$namel = 20;
do {

If (strlen($tname) <= $namel) {
$temp = "";
For ($n=1; $n<=strlen($tname); $n++) {
$temp = $temp . chr(ord(substr($tname, $n-1, 1)) + 1);
}
$tname = $tname . $temp;
}

}
while (strlen($tname) <= $namel);



// this bit makes sure that you don't get any obvious repetitions over the 20 character key
For ($n = 5; $n <= 100; $n+=5) {
If (strlen($tname) == $n) { $tname = $tname . "~"; }
}


// create encrypt string
$encrypt = "";
for ($n = 0; $n <= 19; $n++) {
$encrypt = $encrypt . Chr(1);
}
$ee = 1;

// over load encrypt 30 times
// change this to make your keys unique further

for ($l = 1; $l<=30; $l++) {

For ($n = 1; $n<=strlen($tname); $n++) {
$a = Ord(SubStr($tname, $n-1, 1));
$a = $a - 32;

$temp = "";

For ($nn = 1; $nn<=20; $nn++) {
$tl = Ord(Substr($encrypt, $nn-1, 1));
If ($nn == $ee) {
$temp = $temp . Chr($tl + $a % 256);
}Else{
$temp = $temp . Chr($tl);
}
}

$encrypt = $temp;
$ee = $ee + 1;
If ($ee == 20) { $ee = 1; }
}

}

// suck out the key
$encrypted = "";
For ($ee = 1; $ee<=20; $ee++) {
$e = Ord(Substr($encrypt, $ee-1, 1))% strlen($v);
If ($e == 0) { $e = 1; }
$encrypted = $encrypted . substr($v, $e-1, 1);
}

// format the key with -'s
$encrypted = substr($encrypted, 1-1, 5) . "-" . substr($encrypted, 6-1, 5) . "-" . substr($encrypted, 11-1, 5) . "-" . substr($encrypted, 16-1, 5);

// return the key
Return $encrypted;

}
?>

'KeyGen
'2004 MentalIllusion.co.uk
'web: http://www.mentalillusion.co.uk
'email: rob@...
'
'This is a key generator for any blitzy thing you want
'include it in your main programs to unlock bits of code.
'
'The usage is pretty straight forward, key$ = keygen("Name or whatever")
'So you'll need to keep a version for yourself for sending keys to people!

SuperStrict

Module rob.keygen
ModuleInfo "Author: Rob Farley"
ModuleInfo "Conversion to Blitzmax: Peter Rigby"
ModuleInfo "Public Domain"
ModuleInfo "Purpose: Generate keys for the purpose of registering software"

rem
	bbdoc: Generates a key based on the name you pass it
	about: This function generates a key from whatever name string you pass to it. Pass a different v string to make it unique to you.
	returns: The generated key string.
end rem
Function keygen:String(name:String, v:String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")

'	change v$ to as many or few random or unrandom letters, numbers, characters whatever
'	this is what the key is going to be made out of
'	You can have duplicates all over the place if you want, it's up to you!
'	This is one part that will make your keys unique to other people using this program
'	e.g. v$="I1D9U0AJ5PFWIN1TR3EKLWZID42HU7KL8S6LTBN9VMCXOF6T46GY3JHIE9T7VTLFDEQ3Y38P"

	Local tname:String = name:String

'	make name longer if necessary
'	again adjust this to make your keys unique

	Local namel:Int = 20
	Local temp:String = ""
	
	Repeat
		If Len(tname) <= namel
			temp = ""
			For Local n:Int = 0 To Len(tname) - 1
				temp = temp + Chr(tname[n] + 1)
			Next
			tname = tname + temp
		EndIf
	Until Len(tname) > namel

'	this bit makes sure that you don't get any obvious repetitions over the 20 character key
	For Local n:Int = 5 To 100 Step 5
		If Len(tname) = n Then tname = tname + "~~"
	Next

'	create encrypt string
	Local encrypt:String = ""
	For Local n:Int = 0 To 19
		encrypt = encrypt + Chr(1)
	Next
	
	Local ee:Int
'	over load encrypt 30 times
'	change this to make your keys unique further
	Local a:Int
	Local tl:Int
	For Local l:Int = 1 To 30
		For Local n:Int = 0 To Len(tname) - 1
		
			a = tname[n]
			a = a - 32
			temp = ""

			For Local nn:Int = 0 To 19
				tl = encrypt[nn]
				If nn = ee Then temp = temp + Chr(tl + a Mod 256)Else temp = temp + Chr(tl)
			Next
			encrypt = temp
			ee = ee + 1
			If ee = 19 Then ee = 0
			
		Next
	Next

'	suck out the key
	Local encrypted:String = ""
	Local e:Int
	For Local ee:Int = 0 To 19
		e = encrypt[ee] Mod Len(v) - 1
		If e = -1 Then e = 0
		encrypted = encrypted + Chr(v[e])
	Next

'	format the key with -'s
	encrypted = encrypted[..5] + "-" + encrypted[5..10] + "-" + encrypted[10..15] + "-" + encrypted[15..20]

'	return the key
	Return encrypted

End Function