code VBA crypter

[samia89]

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

 

[Hieu]

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 :

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

 

[Modeste geedee]

Re : code VBA crypter

Bonsour®
Le code impénétrable d'un programme informatique est un code dont la compréhension est très difficile pour un humain tout en restant parfaitement compilable par un ordinateur.

Le procédé par lequel du code est rendu impénétrable est appelé obfuscation, ou obscurcissement

Code Protection (Free VBA Obfuscator)

 

[Hieu]

Re : code VBA crypter

Merci Modeste, pour l'info !!

 

[samia89]

Re : code VBA crypter

Bonsoir Hieu merci pour ta repense je te joins le fichier juste une chose le fichier il est en winrar donc tu dois supprimer l’extension ".xls" avant d’ouvrir le fichier avec le winrar

 

[Marc L]

Bonjour,

entièrement d'accord et qui plus est,
ce n'est vraiment pas compliqué d'effectuer un Rechercher / Remplacer pour chaque variable !

​

 

[Modeste geedee]

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

 

[grisan29]

Re : code VBA crypter

bonjour a tous

le classeur que nous présente samia89 est piraté , elle a posé la même question sur excel-pratique et pas de bol le classeur vient de la, mis en téléchargement mais codé sans acces vba voici l'original
Stock-Pratique (gestion de stock)

 

[Hieu]

Re : code VBA crypter

En vietnamien, ça m'irait bien ^^

 

[Modeste geedee]

Re : code VBA crypter

Bonsour®

En vietnamien, ça m'irait bien ^^

d'aucuns croiront à une vanne(*) ...

mon clin d'oeil était aussi pour Tatiak Gwened...
(*) En langage familier synonyme de blague, une forme d'humour.

 

[Marc L]

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 …

​

 

[seb1]

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

 

[Marc L]

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 !

​

 

[samia89]

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.

 

[samia89]

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.