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