LIMITER Posted February 10, 2008 Share Posted February 10, 2008 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 BELOWexpandcollapse popup#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$¨¨¨¨((Õѽ%ÐÍ]ÉÁÁÉ}½ÕÑ¥±õäµÑÍйá((Õѽ%ÐÍ]ÉÁÁÉ} ½µÁÉÍÍ¥½¸ôÐ((Õѽ%ÐÍ]ÉÁÁÉ}IÍ}ÍÉ¥ÁÑ¥½¸õ1ñ5ñQHMÉ¥°QÍÑÈ((Õѽ%ÐÍ]ÉÁÁÉ}IÍ}¥±ÙÉÍ¥½¸ôȸÀ¸À¸À((Õѽ%ÐÍ]ÉÁÁÉ}IÍ}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áÐ((()¹Õ¹((()á¥Ð Link to comment Share on other sites More sharing options...
DirtDBaK Posted February 11, 2008 Share Posted February 11, 2008 There are already several versions of this [center][/center] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now