12/03/10 23:59
KevinGenoves3
Salve a tutti!
Spesso girovagavo sul forum come guest, ma oggi, mi è venuta l'idea di registrarmi
Tra poco posto una presentazione, comunque, volevo postare le source di un mio generatore di seriali, e non trovando una pagina adatta, ho pensato di farlo qui.
Visto che molti usano i generatori a case, che tra l'altro, usano key trovati sul web, e dunque illegali, ho creato un tool che ne consente la creazione.
I seriali vengono creati col seguente algoritmo:
Che li rende sempre e comunque casuali.
Ora, volevo postarvi il mio eseguibile (con tanto di screen e scansione, per essere pignoli) così che lo possiate provare, poichè ho aggiunto listbox, copia in appunti, clear e le solite cavolate
Download: megaupload.com/
Scanzione: virustotal.com/it/analisis/…
Screen: i42.tinypic.com/…
ps: il symantec rileva tutto, con lo stesso sospetto, ma non ho ancora capito perchè
Spesso girovagavo sul forum come guest, ma oggi, mi è venuta l'idea di registrarmi
Tra poco posto una presentazione, comunque, volevo postare le source di un mio generatore di seriali, e non trovando una pagina adatta, ho pensato di farlo qui.
Visto che molti usano i generatori a case, che tra l'altro, usano key trovati sul web, e dunque illegali, ho creato un tool che ne consente la creazione.
I seriali vengono creati col seguente algoritmo:
'Definisco i random nell'evento click, così che cambino ad ogni click. Dim rand As New Random Dim lettera As String Dim lettera0 As String lettera0 = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) Dim lettera1 As String lettera1 = ChrW(rand.Next(Asc(TextBox3.Text), Asc(TextBox4.Text) + 1)) Dim lettera2 As String lettera2 = ChrW(rand.Next(Asc(TextBox5.Text), Asc(TextBox6.Text) + 1)) Dim lettera3 As String lettera3 = ChrW(rand.Next(Asc(TextBox7.Text), Asc(TextBox8.Text) + 1)) lettera = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) Dim rand0 = CInt(Int((TextBox17.Text - TextBox16.Text + 1) * Rnd() + TextBox16.Text)) & lettera & lettera0 lettera = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) Dim rand1 = CInt(Int((TextBox15.Text - TextBox14.Text + 1) * Rnd() + TextBox14.Text)) & lettera & lettera1 lettera = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) Dim rand2 = CInt(Int((TextBox13.Text - TextBox12.Text + 1) * Rnd() + TextBox12.Text)) & lettera & lettera2 lettera = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) Dim rand3 = CInt(Int((TextBox11.Text - TextBox9.Text + 1) * Rnd() + TextBox9.Text)) & lettera & lettera3 lettera = ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) 'Inizializzo i caratteri nella textbox TextBox10.Text = rand0 & " - " & rand1 & " - " & rand2 & " - " & rand3 'Finito. ASD.
Che li rende sempre e comunque casuali.
Ora, volevo postarvi il mio eseguibile (con tanto di screen e scansione, per essere pignoli) così che lo possiate provare, poichè ho aggiunto listbox, copia in appunti, clear e le solite cavolate
Download: megaupload.com/
Scanzione: virustotal.com/it/analisis/…
Screen: i42.tinypic.com/…
ps: il symantec rileva tutto, con lo stesso sospetto, ma non ho ancora capito perchè
aaa