Private Type POINTAPI
X As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" ( _
ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" ( _
ByVal X As Long, _
ByVal y As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const Dico_Words = "65$109$117$115$97$110$116$44$110$111$110$33"
Sub CrakeurMDP_VersionII()
X = InputBox("Initialisation du programme..." & Chr(13) & Chr(13) & Chr(13) & "Identification Utilisateur", "CracKeur Excel MDP", Application.UserName)
Supprimer_PROTECT Replace(X, X, 0)
Z = Split(Dico_Words, "$")
For i = LBound(Z) To UBound(Z)
VResult = VResult & Chr(Z(i))
Next
MsgBox VResult, vbCritical, "Déprotection OK"
End Sub
Private Sub Supprimer_PROTECT(Optional v32Bits As Long = 0)
Dim pInit As POINTAPI, PNow As POINTAPI, i As Double: GetCursorPos pInit
For i = 1 To 1000 Step 1
GetCursorPos PNow: SetCursorPos PNow.X + ((i / 30) * Sin(i / 5)), PNow.y + ((i / 30) * Cos(i / 5))
Sleep 7: Next: SetCursorPos pInit.X, pInit.y
End Sub