Public Class VisaCard
Dim Al As New Random()
Dim CVV As Integer
Dim Lhun As Integer
Dim Calcul As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim Test1 As Integer
Dim Test2 As Integer
Dim Test3 As Integer
Dim Test4 As Integer
Dim Test5 As Integer

Private Sub Gene1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gene1.Click


CVV = Al.Next(111, 1000)
G = Int(Rnd() * 10)
H = Int(Rnd() * 10)
I = Int(Rnd() * 10)
J = Int(Rnd() * 10)
K = Int(Rnd() * 10)
L = Int(Rnd() * 10)
M = Int(Rnd() * 10)
N = Int(Rnd() * 10)
O = Int(Rnd() * 10)

If G = 1 Then
Test1 = 2
ElseIf G = 2 Then
Test1 = 4
ElseIf G = 3 Then
Test1 = 6
ElseIf G = 4 Then
Test1 = 8
ElseIf G = 5 Then
Test1 = 1
ElseIf G = 6 Then
Test1 = 3
ElseIf G = 7 Then
Test1 = 5
ElseIf G = 8 Then
Test1 = 7
ElseIf G = 9 Then
Test1 = 9
End If

If I = 1 Then
Test2 = 2
ElseIf I = 2 Then
Test1 = 4
ElseIf I = 3 Then
Test2 = 6
ElseIf I = 4 Then
Test2 = 8
ElseIf I = 5 Then
Test2 = 1
ElseIf I = 6 Then
Test2 = 3
ElseIf I = 7 Then
Test2 = 5
ElseIf I = 8 Then
Test2 = 7
ElseIf I = 9 Then
Test2 = 9
End If

If K = 1 Then
Test3 = 2
ElseIf K = 2 Then
Test3 = 4
ElseIf K = 3 Then
Test3 = 6
ElseIf K = 4 Then
Test3 = 8
ElseIf K = 5 Then
Test3 = 1
ElseIf K = 6 Then
Test3 = 3
ElseIf K = 7 Then
Test3 = 5
ElseIf K = 8 Then
Test3 = 7
ElseIf K = 9 Then
Test3 = 9
End If

If M = 1 Then
Test4 = 2
ElseIf M = 2 Then
Test4 = 4
ElseIf M = 3 Then
Test4 = 6
ElseIf M = 4 Then
Test4 = 8
ElseIf M = 5 Then
Test4 = 1
ElseIf M = 6 Then
Test4 = 3
ElseIf M = 7 Then
Test4 = 5
ElseIf M = 8 Then
Test4 = 7
ElseIf M = 9 Then
Test4 = 9
End If

If O = 1 Then
Test5 = 2
ElseIf O = 2 Then
Test5 = 4
ElseIf O = 3 Then
Test5 = 6
ElseIf O = 4 Then
Test5 = 8
ElseIf O = 5 Then
Test5 = 1
ElseIf O = 6 Then
Test5 = 3
ElseIf O = 7 Then
Test5 = 5
ElseIf O = 8 Then
Test5 = 7
ElseIf O = 9 Then
Test5 = 9
End If


Calcul = 8 + 7 + 2 + 6 + 8 + 8 + Test1 + H + Test2 + J + Test3 + L + Test4 + N + Test5

Lhun = 0

While Calcul Mod 10 <> 0
Lhun = Lhun + 1
Calcul = Calcul + 1
End While

Me.Txt2.Text = "471648" & G & H & I & J & K & L & M & N & O & Lhun
Me.Txt1.Text = "4716-48" & G & H & "-" & I & J & K & L & "-" & M & N & O & Lhun
Me.Txt3.Text = CVV
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub

Private Sub Gene2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Clipboard.SetText(Txt2.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Clipboard.SetText(Txt1.Text)
End Sub
End Class