Sign in to follow this  
Followers 0
LIMITER

L|M|TER Serial Generator and Tester

2 posts in this topic

This is a very simple Serial Key Generator ... It simply generates random numbers and letters and write's them in a txt,which , the tester checks the serial you inputed :)

SERIAL GENERATOR CODE BELOW

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_outfile=key-gen.exe

#AutoIt3Wrapper_Compression=4

://////=__=

#AutoIt3Wrapper_Res_Fileversion=2.0.0.0

#AutoIt3Wrapper_Res_LegalCopyright=© 2008 - L|M|TER

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include 

#include 



$sFilePath = @HomeDrive & "\serial.txt"

_FileCreate($sFilePath)

$file = FileOpen($sFilePath, 1)

$lines = InputBox("L|M|TER Serial Generator","Enter the number of serial codes to generate")

if @error = 1 Then Exit

ProgressOn("L|M|TER Serial Generator", "Generating serials ...", "", -1, -1, 16)



For $i = 1 To $lines

$a = Call("generate1")

FileWrite($file,$a & @CRLF)

$percent = Round($i / $lines * 100)

ProgressSet($percent, $percent & "% done")

Sleep(100)

Next



ProgressSet(100, "Done")

Sleep(1000)

ProgressOff()



Exit



Func generate()

Dim $string = StringReplace(Random(5047548,9522131),".",""), $result



$aNumber = StringRegExp($string, "\d{4}", 3)



For $i = 0 To UBound($aNumber) - 1

$result &= $aNumber[$i] & "-"

Next



$result = StringTrimRight($result, 1)

Return $result

EndFunc



Func generate1()



$avChars = StringSplit("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", "")

$sTxt = ""

For $i = 1 To 5

For $n = 1 To 4

$sTxt &= $avChars[Random(1, 36, 1)]

Next

If $i < 5 Then $sTxt &= "-"

Next

Return $sTxt

EndFuncoÝ÷ Ù´DLD@D,å¿m«­¢+ØI¥½¸ì¨¨¨¨¥ÉÑ¥ÙÌÉÑäÕѽ%ÐÍ]ÉÁÁÉ}U$¨¨¨¨((Õѽ%ÐÍ]ÉÁÁÉ}½ÕÑ¥±õ­äµÑÍйá((Õѽ%ÐÍ]ÉÁÁÉ}
½µÁÉÍÍ¥½¸ôÐ((Õѽ%ÐÍ]ÉÁÁÉ}}ÍÉ¥ÁÑ¥½¸õ1ñ5ñQHMÉ¥°QÍÑÈ((Õѽ%ÐÍ]ÉÁÁÉ}}¥±ÙÉÍ¥½¸ôȸÀ¸À¸À((Õѽ%ÐÍ]ÉÁÁÉ}}1±
½ÁåÉ¥¡Ðö¤ÈÀÀà´1ñ5ñQH((¹I¥½¸ì¨¨¨¨¥ÉÑ¥ÙÌÉÑäÕѽ%ÐÍ]ÉÁÁÉ}U$¨¨¨¨((¥¹±Õ((()%¥±á¥ÍÑÌ¡!½µÉ¥ÙµÀìÅÕ½ÐìÀäÈíÍÉ¥°¹ÑáÐÅÕ½Ðì¤ôÀQ¡¸()5Í  ½à ÌÈ°ÅÕ½Ðí1ñ5ñQHMÉ¥°QÍÑÈÅÕ½Ðì°ÅÕ½ÐíMÉ¥°¥±½Ì¹½Ðá¥ÍÐÌÌìA±Í¹Éѽ¹¸¸¸ÅÕ½Ðì¤()á¥Ð()¹%((((ÀÌØí±¥¹Ìô%¹ÁÕÑ   ½à ÅÕ½Ðí1ñ5ñQHMÉ¥°QÍÑÈÅÕ½Ðì°ÅÕ½ÐíA±Í¹ÑÈÑ¡¹ÕµÈ½½Ì¡±¥¹Ì¤¹ÉÑÝ¥Ñ 1ñ5ñQHMÉ¥°¹ÉѽÈÅÕ½Ðì¤((()½ÈÀÌØí¤ôÄѼÌ((ÀÌØíÑÍÐô%¹ÁÕÑ   ½à ÅÕ½Ðí1ñ5ñQHMÉ¥°QÍÑÈÅÕ½Ðì°ÅÕ½Ðíe½Ô¡ÙÅÕ½ÐìµÀìдÀÌØí¤µÀìÅÕ½ÐìÑɥ̱ÐÅÕ½ÐìµÀì
I1µÀìÅÕ½ÐíA±Í¹ÑÈÑ¡ÍÉ¥°¹ÕµÈèÅÕ½Ðì¤()%ÉɽÈôÄQ¡¸á¥Ð((ÀÌØíô¡¬ ÀÌØíÑÍФ()%ÀÌØíôÄQ¡¸()5Í ½à ÌÈ°ÅÕ½Ðí1ñ5ñQHMÉ¥°QÍÑÈÅÕ½Ðì°ÅÕ½ÐíMÉ¥°­äÁÑÅÕ½Ðì¤()±Í()5Í ½à ÌÈ°ÅÕ½Ðí1ñ5ñQHMÉ¥°QÍÑÈÅÕ½Ðì°ÅÕ½Ðí]ɽ¹ÍÉ¥°ÅÕ½Ðì¤()¹%()9áÐ((((íøչѥ¤((()Õ¹¡¬ ÀÌØíÑÍÑ¥¹¤((()½ÈÀÌØí¤ôÄQ¼ÀÌØí±¥¹Ì((ÀÌØíÉô¥±I1¥¹¡!½µÉ¥ÙµÀìÅÕ½ÐìÀäÈíÍÉ¥°¹ÑáÐÅÕ½Ðì°ÀÌØí¤¤()%ÀÌØíÉôÀÌØíÑÍÑ¥¹Q¡¸IÑÕɸÄ()9áÐ((()¹Õ¹((()á¥Ð

Share this post


Link to post
Share on other sites



There are already several versions of this


[center][/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0