Em có đoạn code sau nhưng ko hiểu cách tính password của đoạn code đó thế nào nhờ các bác giải thích giúp. Thanks 
Code đầy đủ:
Code đầy đủ:
PHP:
Private Sub CommandButton1_Click()
On Error Resume Next
Dim KQ As String, So As Long, temp As String, i As Byte, hung As Long
Dim s1 As Byte, s2 As Byte, s3 As Byte, s4 As Byte, s5 As Byte, s6 As Byte, s7 As Byte
Dim r1 As Byte, r2 As Byte, r3 As Byte, r4 As Byte, r5 As Byte, r6 As Byte, r7 As Byte
If MASOHUNG = "" Or Len(MASOHUNG) < 7 Then MsgBox ("vui long nhap ma so kiem tra day du hoac 7 so dau!"), vbApplicationModal, "VBA": MASOHUNG.SetFocus: Exit Sub
inputpass = InputBox("Xin vui loøng nhaäp passwword ñuùng", "password ")
If inputpass = 1 Then 'Day(Now) & Month(Now) & "10" & _
"90" & "5" & _
Year(Now) & _
Format(Minute(Now) * _
2, "00") & 7 Then
s1 = Mid(MASOHUNG, 1, 1): s2 = Mid(MASOHUNG, 2, 1): s3 = Mid(MASOHUNG, 3, 1): s4 = Mid(MASOHUNG, 4, 1): s5 = Mid(MASOHUNG, 5, 1): s6 = Mid(MASOHUNG, 6, 1)
r1 = DVI(s1 * (s2 + 1) + s3, 10)
r2 = 5
r3 = 5
r4 = Int((s1 * (s2 + 1) + s3) / 10)
r5 = DVI(r1, 10)
r6 = DVI(r5 * s3 + 2, 10)
r7 = DVI(r6 * s4 + 5, 10)
KQ = r2 & r3 & r4 & r5 & r6 & r7
F2008 = KQ
MASOHUNG = "copy mã sô fast2008 paste nha"
Else
MASOHUNG = "": F2008 = ""
MsgBox " pasword khong dung"
'ActiveWorkbook.Save: ActiveWindow.Close
End If
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
'ActiveWorkbook.Save: ActiveWindow.Close
End
Call Killed
Unload Me
'ActiveWorkbook.Save: ActiveWindow.Close
End Sub
Private Sub CommandButton3_Click()
On Error Resume Next
Dim KQ As String, So As Long, temp As String, i As Byte, hung As Long
If MASOHUNG1 = "" Or Len(MASOHUNG1) < 7 Then MsgBox ("vui long nhap ma so kiem tra day du hoac 7 so dau!"), vbApplicationModal, "VBA": MASOHUNG1.SetFocus: Exit Sub
inputpass = InputBox("Xin vui loøng nhaäp passwword ñuùng", "password ")
If inputpass = Day(Now) & Month(Now) & "10" & _
"90" & "5" & _
Year(Now) & _
Format(Minute(Now) * _
2, "00") & 7 Then
hung = Val(Left(MASOHUNG1, 7))
So = Val(Right(hung, 6))
temp = Val(Left(So, 2)) + Val(Mid(So, 3, 2)) + Val(Right(So, 2))
KQ = KQ & IIf(Len(temp) > 2, Right(temp, 2), temp)
For i = 2 To 5
temp = Val(Mid(KQ, Len(KQ) - 1, 1)) + Val(Right(KQ, 1)) + i
KQ = KQ & IIf(Len(temp) > 1, Right(temp, 1), temp)
Next i
TRAM = KQ
MASOHUNG1 = "copy mã sô client paste nha"
Else
MASOHUNG1 = "": TRAM = ""
MsgBox " pasword khong dung"
'ActiveWorkbook.Save: ActiveWindow.Close
End If
End Sub
Private Sub CommandButton4_Click()
On Error Resume Next
Dim so1 As String, so2 As String, so3 As String, so4 As String, so5 As String, so6 As String, KQ As String
Dim i As Byte, Y As Byte
Dim b1 As Byte, b2 As Byte, b3 As Byte, b4 As Byte, b5 As Byte, b6 As Byte, b7 As Byte
If BRAVO1 = "" Or Len(BRAVO1) < 6 Then MsgBox ("vui long nhap ma so kiem tra day du hoac 6 so dau!"), vbApplicationModal, "VBA": BRAVO1.SetFocus: Exit Sub
inputpass = InputBox("Xin vui loøng nhaäp passwword ñuùng", "password ")
If inputpass = 1 Then 'Day(Now) & Month(Now) & "10" & _
"90" & "5" & _
Year(Now) & _
Format(Minute(Now) * _
2, "00") & 7 Then
b1 = Mid(BRAVO1, 1, 2): b2 = Mid(BRAVO1, 3, 2): b3 = Mid(BRAVO1, 5, 2)
z = Right((b1 + b2 + b3), 2)
so1 = z: i = Mid(z, 1, 1): Y = Mid(z, 2, 1)
so2 = Right((i + Y), 1)
so3 = Right((i + Y + so2), 1)
so4 = Right((i + Y + so2 + so3), 1)
so5 = Right((i + Y + so2 + so3 + so4), 1)
KQ = so1 + so2 + so3 + so4 + so5
BRAVO2 = KQ: BRAVO1 = "copy mã sô Bravo paste nha"
Else
BRAVO1 = "": BRAVO2 = ""
MsgBox " pasword khong dung"
'ActiveWorkbook.Save: ActiveWindow.Close
End If
End Sub
Private Sub CommandButton5_Click()
On Error Resume Next
Dim PA As Variant
Dim KQ As String
Dim s1 As String, s2 As Byte, s3 As Byte, s4 As Byte, s5 As Byte, s6 As Byte, s7 As Byte
Dim r1 As Byte, r2 As Byte, r3 As Byte, r4 As Byte, r5 As Byte, r6 As Byte, r7 As Byte
If F2006 = "" Or Len(F2006) < 7 Then MsgBox ("vui long nhap ma so kiem tra day du hoac 7 so dau!"), vbApplicationModal, "VBA": F2006.SetFocus: Exit Sub
inputpass = InputBox("Xin vui lòng nh?p passwword ?úng", "password ")
If inputpass = Day(Now) & Month(Now) & "10" & _
"90" & "5" & _
Year(Now) & _
Format(Minute(Now) * _
2, "00") & 7 Then
s1 = Mid(F2006, 1, 1): s2 = Mid(F2006, 2, 1): s3 = Mid(F2006, 3, 1): s4 = Mid(F2006, 4, 1)
s5 = Mid(F2006, 5, 1):: s6 = Mid(F2006, 6, 1)
r2 = DVI((s1 * s3 + 2), 10): r3 = DVI((r2 * s4), 10): r4 = DVI((r3 * s5 + 1), 10): r5 = DVI((r4 * 5 + 1), 10)
KQ = s1 & r2 & r3 & r4 & r5 & s6
MF2006 = KQ
F2006 = " Copy mã s? fast2006 paste nha! "
Else
F2006 = ""
MF2006 = ""
MsgBox " pasword khong dung"
End If
End Sub
Private Sub CommandButton6_Click()
On Error Resume Next
Dim KQ As String, So As Long, temp As String, i As Byte, hung As Long
Dim s1 As Byte, s2 As Byte, s3 As Byte, s4 As Byte, s5 As Byte, s6 As Byte, s7 As Byte
Dim r1 As Byte, r2 As Byte, r3 As Byte, r4 As Byte, r5 As Byte, r6 As Byte, r7 As Byte
If msfast10 = "" Or Len(msfast10) < 7 Then MsgBox ("vui long nhap ma so kiem tra day du hoac 7 so dau!"), vbApplicationModal, "VBA": msfast10.SetFocus: Exit Sub
s1 = Mid(msfast10, 1, 1): s2 = Mid(msfast10, 2, 1): s3 = Mid(msfast10, 3, 1): s4 = Mid(msfast10, 4, 1): s5 = Mid(msfast10, 5, 1): s6 = Mid(msfast10, 6, 1)
r1 = DVI(10 - s5 + s6, 10): r2 = 4: r34 = DVI((s1 + s2 + s3 * (r1 + r2)), 100): r3 = Mid(r34, 1, 1): r4 = Mid(r34, 2, 1): r4 = Int((s1 * (s2 + 1) + s3) / 10): r5 = DVI(r4 * s3 + 3, 10): r6 = DVI(r5 * s4 + 7, 10)
KQ = r1 & r2 & r34 & r5 & r6
fast10 = KQ
msfast10 = ""
End Sub
Private Sub TRAM_Change()
End Sub
Private Sub TRAM_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub
Private Sub TRAM_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
MASOHUNG1.SetFocus
MASOHUNG.SetFocus
BRAVO1.SetFocus
Dim PauseTime
On Error Resume Next
nhan1:
PauseTime = 0.3
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
l = Len(OK1.Caption)
OK1.Caption = Right(OK1.Caption, l - 1) + Left(OK1.Caption, 1)
GoTo nhan1
Unload Me
End Sub
Lần chỉnh sửa cuối:
