http://img470.imageshack.us/img470/5022/mircyg0.jpg

 

Public Class Form1

Private Sub generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generate.Click
       Dim Table(42)
       Table(4) = 11
       Table(5) = 6
       Table(6) = 17
       Table(7) = 12
       Table(8) = 12
       Table(9) = 14
       Table(10) = 5
       Table(11) = 12
       Table(12) = 16
       Table(13) = 10
       Table(14) = 11
       Table(15) = 6
       Table(16) = 14
       Table(17) = 14
       Table(18) = 4
       Table(19) = 11
       Table(20) = 6
       Table(21) = 14
       Table(22) = 14
       Table(23) = 4
       Table(24) = 11
       Table(25) = 9
       Table(26) = 12
       Table(27) = 11
       Table(28) = 10
       Table(29) = 8
       Table(30) = 10
       Table(31) = 10
       Table(32) = 16
       Table(33) = 8
       Table(34) = 4
       Table(35) = 6
       Table(36) = 10
       Table(37) = 12
       Table(38) = 16
       Table(39) = 8
       Table(40) = 10
       Table(41) = 4
       Table(42) = 16
       Dim a As Integer, b As Integer = 0, c As Integer, d As Integer
       For i As Integer = 4 To nameBox.Text.Length
           a = Asc(Mid(nameBox.Text, i, 1)) * Table(i)
           c += a
           If b + 1 > 42 Then b = 0 Else b += 1
       Next
       a = Nothing : b = Nothing
       For i As Integer = 4 To nameBox.Text.Length
           a = Asc(Mid(nameBox.Text, i, 1)) * Asc(Mid(nameBox.Text, i - 1, 1))
           b = a * Table(i)
           d += b
       Next
       codeBox.Text = c & "-" & d
   End Sub

   Private Sub copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles copy.Click
       My.Computer.Clipboard.SetText(codeBox.Text)
   End Sub

   Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
       If nameBox.Text.Length < 5 Then
           generate.Enabled = False : copy.Enabled = False
       ElseIf nameBox.Text.Length >= 5 Then
           generate.Enabled = True : copy.Enabled = True
       End If
   End Sub
End Class

 

You may get the full Source Code here:

 

http://rapidshare.de/files/32538449/mIRC_Request_Code_Generator.rar

PW = http://www.ZomgStuff.com

 

 

 

THANKS TO UGLY-NERD

GOOD WORK SONNY.

leet

Silvernoma... Give me 100% credit (UgLy-NeRd (951623 at SecureGamers)).

ty <3

nice.. gj