[Req] Keygen with 25 char + random

[dexter74 0]

Hello,
I would like a keygen that will contain 25 characters.
Character Authorized: 23456789RTYPQDFGHJKMWXCVBN

[BrewManNH 1,058]

You want fries with that too?

[Exit 74]

Welcome to the Forum.

This might fit.

$sAllowed = "23456789RTYPQDFGHJKMWXCVBN"
$aAllowed=StringSplit($sAllowed,"")
$sResult=""
For $i=1 To 25
    $sResult &= $aAllowed[Random(1,$aAllowed[0],1)]
    Next
MsgBox(262144, Default, $sResult,0)

 

[Danyfirex 457]

I wrote this.

Edit:I did not read the characters authorized part.

MsgBox(0,"",RamdomKey(25))
Func RamdomKey($nCharacters)
Local $sKey=""
Local $iRam=0
Local $aArray=[[0x30,0x39],[0x41,0x5A]]
For $i=1 to $nCharacters
    $iRam=Random(0,1,1)
    $sKey&=chr(Random($aArray[$iRam][0],$aArray[$iRam][1],1))
Next
Return $sKey
EndFunc

 

Saludos

Edited August 3, 2015 by Danyfirex
Edit

[dexter74 0]

Hello,

I would like a gui:
- Generate button
- The serial box.
- Layout: 12345-12345-12345-12345-12345
- Each key in generating a txt next

 

Thank you very much for this

[Danyfirex 457]

Hello,

I would like a gui:
- Generate button
- The serial box.
- Layout: 12345-12345-12345-12345-12345
- Each key in generating a txt next

 

Thank you very much for this

Read about:

GUICreate

GUICtrlCreateButton

GUICtrlCreateInput

 

Saludos

[dexter74 0]

please .

[Exit 74]

While 1
 Local $sResult = "", $aAllowed = StringSplit("23456789RTYPQDFGHJKMWXCVBN", "")
 For $i = 1 To 25
  $sResult &= $aAllowed[Random(1, $aAllowed[0], 1)]
  If Mod($i, 5) = 0 And $i < 25 Then $sResult &= "-"
 Next
 ConsoleWrite($sResult & @CRLF)
 If MsgBox(1, Default, $sResult & @LF & @LF & "Enter OK to generate a new Key  or Cancel to exit", 0) = 2 Then ExitLoop
WEnd

 

Edited August 3, 2015 by Exit

[guinness 1,447]

You want fries with that too?

Seems they want the potatoes planted, grown and harvested as well. This is a support forum the last time I checked.

[JohnOne 1,583]

Hello,

I would like a gui:
- Generate button
- The serial box.
- Layout: 12345-12345-12345-12345-12345
- Each key in generating a txt next

 

Thank you very much for this

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("generate", 56, 32, 539, 361)
$Input1 = GUICtrlCreateInput("the serial box", 0, 416, 201, 21)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

yor wellcum.

[mikell 617]

JO,  you forgot the (french ?) fries 

[dexter74 0]

can you make script with gui please

 

[guinness 1,447]

@dexter74, if no one else tells you, I will. Open the help file and learn how to use AutoIt, start from the basics and work up. Otherwise your time here on the Forum will be very short.

[dexter74 0]

Hello ,
you could point me to some documentation between button and a loop

[guinness 1,447]

How about you open the help file by selecting F1 in SciTE and do the work yourself.

[mikell 617]

Exit gave an example of serial building...
JO provided the gui...
You can add this :

$str = "23456789RTYPQDFGHJKMWXCVB"
$str = StringRegExpReplace($str, '\w{5}\K(?!$)', "-")
Msgbox(0,"", $str)

What do you want more ?

Edit
Maybe fries. An incrementing number of fries in an endless While loop 

Edited August 3, 2015 by mikell

[dexter74 0]

can your poste variable for work please , will try script , but i'm noob very noob .

 

My english is poor , is more problem.

[JohnOne 1,583]

[jguinch 382]

@J1 : is it Mc Gyver ?

[JohnOne 1,583]

Don't know bud, never heard of mc gyver, sorry.