Discussion :

[[ZiP]]

Bonjour,

Je suis en train de développer un plugin pour OllyDbg et je rencontre un problème avec la gestion des chaines de caractères.

Voici ma fonction :

Code :

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

1
2
3
4
5
6
7
 
{$A1}
 
procedure Log(Ligne:string);
begin
     Addtolist(0, 1, 'DEBUG : %s', Ligne);
end;

Le résultat que j'ai dans ma fenêtre de log est le suivant :

DEBUG : g
DEBUG : g
DEBUG : g
DEBUG : g
DEBUG : 0
DEBUG : 0

Je n'ai que le premier caractère de ma variable...

Je ne sais pas pourquoi et comment régler le problème ?

Merci,
ZiP

[ShaiLeTroll]

Il nous manque le code autour !
Appel de Log
Code de Addtolist (utilise Format je suppose)

Pourquoi tu forces l'alignement packed ?

[[ZiP]]

Bonjour,

J'appelle "Log" comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
if Debug then
begin
     Log('gDebugProcessId = ' + IntToStr(gDebugProcessId));
     Log('gDebugHandleProcess = ' + IntToStr(gDebugHandleProcess));
     Log('gDebugModuleBase = ' + IntToStr(gDebugModuleBase));
     Log('gDebugFileName = ' + gDebugFileName);
end;

La fonction Addtolist est déclarée comme ceci dans Plugin.pas :

Code :

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

1
2
 
procedure Addtolist(addr: LongInt; highlight: Integer; format: PAnsiChar); cdecl; varargs;

Pour répondre à ta dernière question :

Following compiler settings are required for correct communication between plugin and OllyDbg. For compilers listed above, plugin.h forces or checks some of these rules:
* Export all callback functions by name, NOT by ordinal;
* If you use C++ compiler, disable name mangling on all callback functions (declare them as extern "C");
* Force standard C-style passing of parameters to all API and callback functions (declare them as cdecl);
* Force BYTE alignment of all structures declared in plugin.h;
* Set default character type to UNSIGNED.

J'ai attaché mon fichier Plugin.pas où il y a les différentes déclarations.

Lorsque j'utilise le code suivant avec des constantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
const
     PluginVersion  = '0.1';
     PluginName     = 'PluginZiP';
     PluginAuthor   = 'ZiP';
 
// On ajoute des informations dans la fenêtre "Log" d'OllyDbg
Addtolist(0, 0, ' ');
Addtolist(0, 0, PluginName);
Addtolist(0, -1, 'Version : ' + PluginVersion);
Addtolist(0, -1, 'Author : ' + PluginAuthor);
Addtolist(0, 0, ' ');

Les informations sont affichées correctement dans la fenêtre de Log.

Merci,
ZiP

[ShaiLeTroll]

Tu ne passerais pas 4 paramètre au lieu de 3 ?

En Ignorant varargs, j'écrirais cela

Code :

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

1
2
3
4
procedure Log(const Ligne:string);
begin
     Addtolist(0, 1, PChar(Format('DEBUG : %s', [Ligne])));
end;

Car, comment faire comprendre à Delphi que tu passe une chaine string, type Delphi uniquement, à fonction C acceptant un paramètre variable de paramètre attendant des types C !

Essaye ça, ne fait que forcer le type en char*, car on a l'impression que dans ton cas, il ne gère qu'un char !

Code :

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

1
2
3
4
procedure Log(const Ligne:string);
begin
     Addtolist(0, 1, 'DEBUG : %s', PChar(Ligne));
end;

Voir si avec un "Args: Array of const" à la façon de Format, il n'existe pas des astuces du compilateur ?

[[ZiP]]

Bonjour,

Je viens d'essayer ça :

Code :

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

1
2
3
4
5
 
procedure Log(Ligne:string);
begin
     Addtolist(0, 1, PAnsiChar(Format('DEBUG : %s', [Ligne])));
end;

Il m'affiche :

D
D
D
D

Je ne trouve pas de solution

Merci pour votre aide,
ZiP

[ShaiLeTroll]

Question ?
Version de Delphi ? 2009 ou plus ?

essaye comme ceci

Code :

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

1
2
3
4
5
6
7
procedure Log(Ligne:string);
var
  ParamStr: AnsiString;
begin
  ParamStr := Ligne;    
  Addtolist(0, 1, 'DEBUG : %s', PAnsiChar(ParamStr));
end;

[[ZiP]]

Bonjour ShaiLeTroll,

J'utilise Delphi XE et votre code fonctionne !

Un grand merci !

J'ai donc modifié ma fonction comme ceci :

Code :

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

1
2
3
4
5
 
procedure Log(Ligne:AnsiString);
begin
     Addtolist(0, 1, 'DEBUG : %s', Ligne);
end;

Merci,
ZiP

[ShaiLeTroll]

Ah, j'ai bien senti le coup venir, de caractère #0 unicode indiquant une fin de chaine Ansi !