• Initiateur de la discussion Initiateur de la discussion samia89
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

samia89

XLDnaute Nouveau
bonsoir tt le monde, y a t'il un moyen de lire ce code VBA crypter? Merci

Private Sub CommandButton_exporter_Click()
Application.ScreenUpdating = False
If e4bbb916b768fa62e2edfdc7b2c6ba8fa >= 0 Then
b4585cde2e81e688a446d496f2379a809 = 0
For i = 1 To 30
If Controls("CheckBox" & i).Value Then
b4585cde2e81e688a446d496f2379a809 = b4585cde2e81e688a446d496f2379a809 + 1
End If
Next
If b4585cde2e81e688a446d496f2379a809 = 0 Then
dd = MsgBox("Vous n'avez rien coché ...", 48, "Erreur")
Exit Sub
End If
BD_TEMP.Cells.ClearContents
For b05bb72f6e451cc37b7247f3aca01f69c = -1 To e4bbb916b768fa62e2edfdc7b2c6ba8fa
n6e909625e03d80f0913a1855c7b9e69f = 0
If e4bbb916b768fa62e2edfdc7b2c6ba8fa > xlEntireChart Then Exit For
For bb7a1e2a3fdf57e659da8c898e3737416 = 1 To 30
If Controls("CheckBox" & bb7a1e2a3fdf57e659da8c898e3737416).Value Then
n6e909625e03d80f0913a1855c7b9e69f = n6e909625e03d80f0913a1855c7b9e69f + 1
If b05bb72f6e451cc37b7247f3aca01f69c = -1 Then
w0f72c458a2dd643978e7aff6015d7700 = 1
Else
w0f72c458a2dd643978e7aff6015d7700 = e85c33963b652c33f4b04519aa1c08dc8(b05bb72f6e451cc37b7247f3aca01f69c)
End If
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f) = BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)
If IsDate(BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)) Then
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f).NumberFormat = "m/d/yyyy"
End If
End If
Next
Next
BD_TEMP.Range("1:" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2).Copy
ba5b1fb13e8879ea12cf0153494604367 = ActiveWorkbook.Name
Dim Classeur_export As Workbook
Set Classeur_export = Workbooks.Add
Classeur_export.ActiveSheet.Paste
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
If Val(Application.Version) >= 12 Then
ActiveSheet.Cells.Select
ActiveSheet.Sort.SortFields.Clear
If Controls("CheckBox1").Value = True Or (Controls("CheckBox1").Value = False And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
If Controls("CheckBox1").Value = False Or (Controls("CheckBox1").Value = True And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:AE" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
ActiveSheet.Range("1:1").Font.Bold = True
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Unload Me
Unload UserForm_STOCK
Workbooks(ba5b1fb13e8879ea12cf0153494604367).Sheets("BD_TEMP").Cells.ClearContents
Else
Unload Me
End If
End Sub
 
Re : code VBA crypter

Salut Samia,

Je ne suis pas convaincu que ce soit un code crypté ; Juste, je pense que la personne qui a codé a glissé sur son clavier, quand il a fait ses variables ^^
En faisant des ctrl+h sur ton code, et en remplaçant par toto tes variables (et fonction, pour une fonction), voià ce que je trouve :



Code:
Private Sub CommandButton_exporter_Click()
Application.ScreenUpdating = False
If toto1 >= 0 Then
toto2 = 0
For i = 1 To 30
If Controls("CheckBox" & i).Value Then
toto2 = toto2 + 1
End If
Next
If toto2 = 0 Then
dd = MsgBox("Vous n'avez rien coché ...", 48, "Erreur")
Exit Sub
End If
BD_TEMP.Cells.ClearContents
For toto3 = -1 To toto1
toto5 = 0
If toto1 > xlEntireChart Then Exit For
For toto4 = 1 To 30
If Controls("CheckBox" & toto4).Value Then
toto5 = toto5 + 1
If toto3 = -1 Then
toto6 = 1
Else
toto6 = fonction0(toto7)
End If
BD_TEMP.Cells(toto3 + 2, toto5) = BD_CONTACTS.Cells(toto8, toto4)
If IsDate(BD_CONTACTS.Cells(toto9, toto4)) Then
BD_TEMP.Cells(toto3 + 2, toto5).NumberFormat = "m/d/yyyy"
End If
End If
Next
Next
BD_TEMP.Range("1:" & toto1 + 2).Copy
toto10 = ActiveWorkbook.Name
Dim Classeur_export As Workbook
Set Classeur_export = Workbooks.Add
Classeur_export.ActiveSheet.Paste
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
If Val(Application.Version) >= 12 Then
ActiveSheet.Cells.Select
ActiveSheet.Sort.SortFields.Clear
If Controls("CheckBox1").Value = True Or (Controls("CheckBox1").Value = False And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & toto1 + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
If Controls("CheckBox1").Value = False Or (Controls("CheckBox1").Value = True And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & toto1 + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & toto1 + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:AE" & toto1 + 2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
ActiveSheet.Range("1:1").Font.Bold = True
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Unload Me
Unload UserForm_STOCK
Workbooks(toto10).Sheet s("BD_TEMP").Cells.ClearContents
Else
Unload Me
End If
End Sub
 
Re : code VBA crypter

Bonsour®
pour abonder dans le sens de la réponse de Tatiak:
l'auteur a simplement complexifié les noms de variables pour perturber le lecteur,
(principe de l'obfuscation) ici la complexification est faible et limitée aux variables, il en serait autrement si les fonctions et mots clés avaient également été "complexifiés".

🙄
y a t'il un moyen de lire ce code VBA
l'ordinateur sait très bien passer outre cette barrière,

et comme l'à fait remarquer Hieu, l'algorithmique est inchangée.

les variables seraient-elles écrites en breton 🙄 ou en vietnamien 😕 on en serait au même point ... 😉
le reste c'est du travail d'analyste...
On entre dans le domaine du "reverse engineering" (rétroconception)
https://fr.wikipedia.org/wiki/Rétro-ingénierie#L.C3.A9gislation
 

Là au moins c'est clair …

Mais c'est aussi un forum où l'on peut se faire bannir sans enfreindre une règle ni avertissement,
si tu n'es pas "bobo like" ou si tu fais de l'ombre surtout parce qu'il a des choses à vendre !

Avec deux sous de jugeote, l’offuscation de variables n'est pas une réelle protection …

 
Re : code VBA crypter

Bonjour à tous,


Là au moins c'est clair …

Mais c'est aussi un forum où l'on peut se faire bannir sans enfreindre une règle ni avertissement,
si tu n'es pas "bobo like" ou si tu fais de l'ombre surtout parce qu'il a des choses à vendre !

Avec deux sous de jugeote, l’offuscation de variables n'est pas une réelle protection …


Que c'est puéril de ta part de continuer à cracher ton venin Marc L, décidément tu ne changeras jamais ...

Si tu t'es fait bannir du forum Excel-Pratique c'est dû à des plaintes répétées de la part des autres membres suite à ton mauvais comportement sur le forum ! Et malgré mes avertissements tu n'as rien fait pour changer ! Donc ne viens pas pleurer sur les autres forums et raconter n'importe quoi par vengeance 😡

Quant à Samia89, c'était un membre avec un total de 5 messages dont 3 sur ce piratage et qui pratiquait le multi-posting (poster sur plusieurs forum à la fois), ce n'est pas comme toi qui était un membre actif et avec qui j'ai été très patient !

Sébastien
 

Louis XiV du p'tit forum vert ! 🙄

Sauf que je n'ai jamais reçu un quelconque avertissement ni ai eu un retour de plainte
fondée sur telle ou telle discussion et que c'est même moi qui t'ai contacté
ayant cru à un problème de ton forum, même pas été prévenu du bannissement ‼

Et tu parles d'une vengeance un an après ! T'oses jouer la victime ‼
Si j'avais voulu te pourrir n'aurais-je point attendu votre seigneurie ? Franchement !

 
Re : code VBA crypter


Louis XiV du p'tit forum vert ! 🙄

Sauf que je n'ai jamais reçu un quelconque avertissement ni ai eu un retour de plainte
fondée sur telle ou telle discussion et que c'est même moi qui t'ai contacté
ayant cru à un problème de ton forum, même pas été prévenu du bannissement ‼

Et tu parles d'une vengeance un an après ! T'oses jouer la victime ‼
Si j'avais voulu te pourrir n'aurais-je point attendu votre seigneurie ? Franchement !


bonjour tout le monde, avant tout je voudrai dire a ce lui qui ma bannie du forum excel-pratique que je suis qu'un débutant dans la programmation en générale et je n'est aucune notion en piratage, mon intention si de comprendre le code utiliser dans l'application rien de plus que j'ai posté précédemment sur les deux forums, et je voudrais dire a se Sébastien tu n'est qu'un égoïste et un lâche a mes yeux tu ma supprimé du forum son m’avisai, je tien a m'excuse auprès de excel-dowloads.
 
Re : code VBA crypter

bonjour tout le monde, avant tout je voudrai dire a ce lui qui ma bannie du forum excel-pratique que je suis qu'un débutant dans la programmation en générale et je n'est aucune notion en piratage, mon intention si de comprendre le code utiliser dans l'application rien de plus que j'ai posté précédemment sur les deux forums, et je voudrais dire a se Sébastien tu n'est qu'un égoïste et un lâche a mes yeux tu ma supprimé du forum son m’avisai et je poste mes messages la ou je veut , je tien a m'excuse auprès de excel-dowloads.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
292
Réponses
4
Affichages
199
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
177
Réponses
4
Affichages
468
Réponses
3
Affichages
300
Réponses
2
Affichages
518
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
654
Réponses
17
Affichages
1 K
Retour