Discussion :

[DarkVader]

Bonjour,
A mon tour cette fois.

J'aimerais récupérer les dépendances DCOM(les références utilisées) d'un exécutable PE,
soit en tant que fichier soit au pire en tant que Process en cours d'exécution.
TLI ne veut pas le faire et EnumProcessModule ne concerne que les modules non DCOM

[Delbeke]

J'ai essayé et m'y suis cassé les dents.

Parfois on trouve le nom des ocx dans l'executable, mais pas toujours.

[DarkVader]

Par quelle méthode ?

[ucfoutu]

Bonjour,

Tu veux développer toi-même la chose ou tu en as simplement besoin ?

Si tu en as seulement besoin ponctuellement, tu peux utiliser certains outils, tel celui-ci :

http://www.pe-explorer.com/peexplore...cy-scanner.htm

[Delbeke]

Ben, en ouvrant l'exe en mode binaire et en recherchant .OCX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
  Dim hFich As Integer
  Dim Buffer As String
  Dim lPosit As Long
  Dim lDebPosit As Long
  hFich = FreeFile
  Open txtFilename For Binary As #hFich
  Buffer = String(LOF(hFich), 0)
  Get #hFich, , Buffer
  Close #hFich
  Buffer = UCase(Buffer)
  lPosit = InStr(Buffer, ".OCX")
  Do While lPosit
    lDebPosit = InStrRev(Buffer, Chr(0), lPosit)
    Debug.Print Mid(Buffer, lDebPosit, lPosit - lDebPosit)
    lPosit = InStr(lPosit + 1, Buffer, ".OCX")
  Loop
End Sub

[DarkVader]

Bonjour,

Tu veux développer toi-même la chose ou tu en as simplement besoin ?

Devines

Si tu en as seulement besoin ponctuellement, tu peux utiliser certains outils, tel celui-ci :

http://www.pe-explorer.com/peexplore...cy-scanner.htm

Il n'en fait pas plus que depends (voir moins que la version 2) - bref, pas beaucoup plus que ce qu'on peux récupérer gratuitement via un EnumProcessModule

Ben, en ouvrant l'exe en mode binaire et en recherchant .OCX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
  Dim hFich As Integer
  Dim Buffer As String
  Dim lPosit As Long
  Dim lDebPosit As Long
  hFich = FreeFile
  Open txtFilename For Binary As #hFich
  Buffer = String(LOF(hFich), 0)
  Get #hFich, , Buffer
  Close #hFich
  Buffer = UCase(Buffer)
  lPosit = InStr(Buffer, ".OCX")
  Do While lPosit
    lDebPosit = InStrRev(Buffer, Chr(0), lPosit)
    Debug.Print Mid(Buffer, lDebPosit, lPosit - lDebPosit)
    lPosit = InStr(lPosit + 1, Buffer, ".OCX")
  Loop
End Sub

Carrément - en dur - cela suppose un exécutable vb.

J'ai cru un temps y parvenir par le biais de TLBInf32 mais je scannais un exe activeX -
cela semble pourtant la voie à emprunter.

[Delbeke]

J'avais bien dit que je m'y etais cassé les dents, c'est ce que j'ai pu trouver de mieux, et c'est pas grand chose

[DarkVader]

Ma réponse d'hier soir était un peu laconique :
il me semblerait plus judicieux de rechercher des clsid que des terminaisons
et tant qu'à faire plutôt dans la zone mémoire du process que dans l'exécutable qui est compressé.

En y repensant, il y a peut-être aussi une voie à explorer via WMI.

[Delbeke]

En tout cas, si tu trouves une solution, je suis preneur

[ucfoutu]

Une idée sans doute idiote :
Rechercher dans les fichiers de désinstallation du produit (s'il a été installé de manière orthodoxe)...

Vaut ce qu'elle vaut ...

[DarkVader]

A défaut de mieux, cela peut-être tenté en dernier ressort mais cela reste aussi de la bidouille.

[DarkVader]

Bon, petite avancée :
pour un exécutable créé avec VB, les ProgID sont en durs au format Unicode.
Etant donné qu'un appel à CoCreateInstanceEx et à CLSIDFromProgIDEx est effectué
je suppute (peut-être un peu vite) que
1/ c'est un schéma commun aux exécutables PE
2/ et qu'en conséquence qu'ils sont décrits à une adresse précise du header PE