Sub Demo_Obfuscator_video()
Dim JOOBetjKa7lPQURVDETaHdF16 As String
Dim JOOBetjKa7lPQURVDFTaHdF16 As String
Dim JOOBetjKa7sTRTVTaHdF16 As String
Dim JOOBetjKa7lPQesTaHdF16 As Integer
Dim JOOBetjKa7j1TaHdF16 As Integer
Dim JOOBetjKa7qPNTaHdF16 As Integer
JOOBetjKa7lPQURVDETaHdF16 = Chr(74) & Chr(79) & Chr(45) & Chr(79) & Chr(66) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(111) & Chr(114) & vbCrLf & vbCrLf
JOOBetjKa7lPQURVDFTaHdF16 = Chr(67) & Chr(101) & Chr(99) & Chr(105) & Chr(32) & Chr(101) & Chr(115) & Chr(116) & Chr(32) & Chr(117) & Chr(110) & Chr(101) & Chr(32) & Chr(100) & Chr(233) & Chr(109) & Chr(111) & Chr(110) & Chr(115) & Chr(116) & Chr(114) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(74) & Chr(79) & Chr(45) & Chr(79) & Chr(66) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(111) & Chr(114) & Chr(46) & vbCrLf & vbCrLf
JOOBetjKa7j1TaHdF16 = Len(JOOBetjKa7lPQURVDETaHdF16)
If JOOBetjKa7j1TaHdF16 = 17 Then
JOOBetjKa7lPQesTaHdF16 = 1
Else
JOOBetjKa7lPQesTaHdF16 = 0
End If
JOOBetjKa7sTRTVTaHdF16 = Chr(74) & Chr(79) & Chr(45) & Chr(79) & Chr(66) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(111) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(86) & Chr(105) & Chr(100) & Chr(233) & Chr(111) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(100) & Chr(233) & Chr(109) & Chr(111) & Chr(110) & Chr(115) & Chr(116) & Chr(114) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110)
Message = JOOBetjKa7lPQURVDETaHdF16
Message = Message & JOOBetjKa7lPQURVDFTaHdF16
Message = Message & Chr(84) & Chr(233) & Chr(108) & Chr(233) & Chr(99) & Chr(104) & Chr(97) & Chr(114) & Chr(103) & Chr(101) & Chr(122) & Chr(32) & Chr(108) & Chr(97) & Chr(32) & Chr(118) & Chr(101) & Chr(114) & Chr(115) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(111) & Chr(114) & Chr(105) & Chr(103) & Chr(105) & Chr(110) & Chr(97) & Chr(108) & Chr(101) & Chr(32) & Chr(115) & Chr(117) & Chr(114) & Chr(32) & Chr(119) & Chr(119) & Chr(119) & Chr(46) & Chr(106) & Chr(111) & Chr(115) & Chr(101) & Chr(111) & Chr(117) & Chr(105) & Chr(110) & Chr(46) & Chr(102) & Chr(114) & vbCrLf & vbCrLf
Message = Message & Chr(65) & Chr(117) & Chr(116) & Chr(101) & Chr(117) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(74) & Chr(111) & Chr(115) & Chr(233) & Chr(32) & Chr(79) & Chr(85) & Chr(73) & Chr(78) & Chr(32) & Chr(45) & Chr(32) & Chr(83) & Chr(105) & Chr(116) & Chr(101) & Chr(32) & Chr(73) & Chr(110) & Chr(116) & Chr(101) & Chr(114) & Chr(110) & Chr(101) & Chr(116) & Chr(32) & Chr(58) & Chr(32) & Chr(119) & Chr(119) & Chr(119) & Chr(46) & Chr(106) & Chr(111) & Chr(115) & Chr(101) & Chr(111) & Chr(117) & Chr(105) & Chr(110) & Chr(46) & Chr(102) & Chr(114)
If ThisWorkbook.ReadOnly = False And JOOBetjKa7lPQesTaHdF16 = 1 Then
JOOBetjKa7qPNTaHdF16 = MsgBox(Message, vbInformation + vbOKOnly, JOOBetjKa7sTRTVTaHdF16)
End If
End Sub

'-- FIN DE LA MACRO

Les lignes ci-dessous ne font pas partie de la macro.
Il s'agit d'un récapitulatif du nom des variables et des chaînes de caractères.

---------- Récapitulatif ----------------
Liste des noms des variables et des constantes de : Sub Demo_Obfuscator_video ()
-------------------------------------------
Variables de la macro :
Message1 ---> JOOBetjKa7lPQURVDETaHdF16
Message2 ---> JOOBetjKa7lPQURVDFTaHdF16
Titre ---> JOOBetjKa7sTRTVTaHdF16
MesON ---> JOOBetjKa7lPQesTaHdF16
Rep ---> JOOBetjKa7qPNTaHdF16
Kp ---> JOOBetjKa7j1TaHdF16
-------------------------------
Constantes de la macro :
"JO-OBfuscator"
"Ceci est une démonstration de JO-OBfuscator."
"JO-OBfuscator : Vidéo de démonstration"
"Téléchargez la version originale sur www.joseouin.fr"
"Auteur : José OUIN - Site Internet : www.joseouin.fr"

'-- JO-OBfuscator - Auteur : José OUIN
'-- Site Internet : www.joseouin.fr --