อธิบายหน่อยคับรู้แต่ว่ามันเป็น vbs อะคับแต่ไม่เข้าใจคับมันแทนค่ากันยังไงคับ
data(0) = 110: data(1) = 97: data(2) = 116: data(3) = 116: data(4) = 121: data(5) = 110: data(6) = 97: data(7) = 114: data(8) = 97: data(9) = 107
Function cc(data)
cc = data xor (10/(1+2+3+4)) xor (20/(1+2+3+4+1+2+3+4))
End Function
Sub Main()
GenerateForm("Resource#01")
for i = 0 to 9
verf = verf & chr(cc(data(i))
next
if Text1.Text = verf Then
Msgbox "ถูกต้องนะคับ"
Else
Msgbox "ผิดแล้วนะคับ"
End If
End Sub
Load balance : Server 05
