[miso]

app by Softpedia Page



Bult under: .NET 4.0

its only 27 lines

Code:

Imports System.Windows.Forms
Module Module1
    Private random As Random = New Random()
    Public Function RandomString(ByVal length As Integer, ByVal chars As String) As String
        Return New String(Enumerable.Repeat(chars, length).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
    End Function

    Sub Main()
        Do While True
            Dim calc As String = RandomString(4, "1234")
            Dim calc_ As Integer
            For x = 0 To 3
                calc_ += Integer.Parse(calc(x))
            Next
            If calc_ < 10 Then
                Dim key As String = "KRX22" & RandomString(1, "1356789") & calc & calc_
                Console.WriteLine(key & vbCrLf & "(Copied in clipboard!)")
                Clipboard.SetText(key)
                Console.ReadKey()
                Console.Clear()
            End If
            calc_ = 0
        Loop
    End Sub

End Module

[mothered]

Isn't the tool already registered under a freeware license?