Dim r(5), g(5), ra2(5)
Dim aa As Integer

'ii = FreeFile
'Open "D:\contoh.txt" For Output As #ii

For i = 1 To 5
r(i) = Int(7 * Rnd(-786786 * i) - 0.01)
If r(i) = 0 Then r(i) = 2
If r(i) = 7 Then r(i) = 5
'MsgBox r(i)
Next i

For i = 1 To 5
ra2(i) = Int(6 * Rnd(-i) + 1)
'MsgBox ra2(i)
Next i

For i = 1 To 4
If ra2(i) = ra2(i + 1) Then j = i + 1: GoTo 1
GoTo 2
1 For k = j To 4
ra2(k) = Int(5 * Rnd(i) + 1)
Next k
2 Next i


r(1) = 6 - 7 + 3 * 3 - 3 + 1 - 4
r(2) = 5 - 6 + 11 - 4 - 2
r(3) = 6 * 2 - 45 / 9 - 5 + 1
r(4) = 6 * 4 - 7 * 2 - 7 - 2
r(5) = 78 * 3 - 56 * 4 - 6 - 3 + 1 + 4 - 1

For i = 5 To 5
For j = 1 To 5
If i = j Then GoTo 3
If r(i) <> r(j) And r(i) > 0 And r(j) > 0 And r(i) < 7 And r(j) < 7 Then GoTo 3
MsgBox "wrong solution"
3 Next j
Next i

For i = 1 To 5
'MsgBox r(i)
Next i

For i = 1 To 5
'MsgBox ra2(i)
Next i

For i = 1 To 5
For j = 1 To 5
If i <> j And r(i) = r(j) Then r(j) = r(j) + 1
Next j
Next i

' First guess of the password:
g(1) = 4
g(2) = 3
g(3) = 6
g(4) = 2
g(5) = 1

'InputBox (aa)
'MsgBox aa
'InputBox b
'InputBox c
'InputBox d
'InputBox e
'g(1) = a
'g(2) = b
'g(3) = c
'g(4) = d
'g(5) = e

'InputBox g(1)
'InputBox g(2)
'InputBox g(3)
'InputBox g(4)
'InputBox g(5)
gr = 0
For i = 1 To 5
If g(i) = r(i) Then gr = gr + 1
Next i

y = 0
'For i = 1 To 5
'If g(i) = r(1) Or g(i) = r(2) Or g(i) = r(3) Or g(i) = r(4) Or g(i) = r(5) And g(1) <> r(1) And g(2) <> r(2) And g(3) <> r(3) And g(4) <> r(4) And g(5) <> r(5) Then y = y + 1
'Next i

For i = 1 To 5
If g(i) = r(1) Or g(i) = r(2) Or g(i) = r(3) Or g(i) = r(4) Or g(i) = r(5) Then y = y + 1
Next i

y = y - gr

'If g(1) = r(1) And g(2) = r(2) And g(3) = r(3) And g(4) = r(4) And g(5) = r(5) Then y = 0

MsgBox (gr)
MsgBox (y)

'Print #ii, r(1), r(2), r(3), r(4), r(5)

'Print #ii, g(1), g(2), g(3), g(4), g(5)

'Print #ii, gr, y

'Print #ii, r(1), r(2), r(3), r(4), r(5)