Générer un .exe de mon .exe...

Version imprimable

22/02/2007, 19h17
pierre987321

Générer un .exe de mon .exe...

bonjour a tous et merci d'avance pour votre aide.
je débute en delphi :-(

voila mon probleme.
j'ai fait un petit soft en delphi et je cherche a savoir ci'il est
possible de par un bouton reproduire le exe originale en double
avec des parametre different ?

merci d'avance pour vos info et/ou lien... :D
22/02/2007, 19h30
Eric Boisvert

Citation:

Envoyé par pierre987321

reproduire le exe originale en double

Moi j'appele ca une copie?

Citation:

Envoyé par pierre987321

avec des parametre different ?

Ca me fait penser à bien des choses ce que tu demande....je me trompe sûrment alors...
Faudrait expliquer qu'est-ce qu'un parametre pour toi?
22/02/2007, 19h35
Laurent Dardenne

Salut,
Pour la copie de l'exe c'est possible mais pour modifier les paramètres il faut connaitre leur offset dans le fichier. En utilisant des constantes typées cela est peut être possible.
Il y a peut être d'autre approche, quel est ton besoin exactement ?
Mémoriser les paramètres dans un fichier ini ou la base de registre ne suffit pas ?
[edit]
pas vu le msg d'Eric, pb de refresh :roll:
22/02/2007, 19h43
pierre987321

..

oui donc en faite je propose un petit soft pour le grand publique et gratuit.

donc les personnes utilise le soft en le modifiant et les données sont sauvegardé dans un .ini

je voudrai recompiler l'originale avec les nouveau parametre (infos) dans
le clone pour qu'il puisse la distribuer...

c un jeux ou tout le monde cherche la solution puis indique leur email.
l'email doit etre sauvegarder dans l'exe, a louverture de exe reproduite
sur le ini puis une fois finit reproduit la modification du ini dans le clone.

vous voyez se que je ve dire ? :?
22/02/2007, 19h58
Laurent Dardenne

Citation:

Envoyé par pierre987321

vous voyez se que je ve dire ? :?

Oui je comprend mieux, l'usage d'un fichier de ressource peut être une solution.
Recherche sur le forum car un des modérateur/rédacteur du forum, Bestiol, avait proposé qq chose à ce sujet.
Tu peux aussi consulter la JCL/JCVL, à vérifier...
22/02/2007, 20h04
Eric Boisvert

Dans ce cas, voici un outil un peu spécial qui permet justement à un
programme de s'auto-modifier en quelque sorte.

Tu peux le downloader sur Torry.net:
ExeMod.pas

Il y a quelque exemple... je crois que ca vaut le coup d'oeil.
22/02/2007, 20h35
pierre987321

..

ok je vai voir ton lien...

sinon j'ai peut etre trouver pour le reste (infos)
mais ci vous avai une solution pour une auto-clone directement
avec ou pas modification du nom je suis preuneur :D
style : je clic est voila un clone :yaisse2:
22/02/2007, 20h38
Eric Boisvert

Citation:

Envoyé par pierre987321

mais ci vous avai une solution pour une auto-clone directement
avec ou pas modification du nom je suis preuneur

C'est exactement ce que fait ExeMod...
Alors prépare-toi pour faire ::yaisse2:

Regarde les exemples, il y a aussi un peu de documentation dans des .txt.
c'est pratiquement du plug and play cette unité.
22/02/2007, 21h10
pierre987321

..

derniere aide :lol: car moi et l'anglais :aie:

tu as une petite explication simplifié pour avoir
juste un bouton sur lequel cliker pour faire le clone ?

je comprend que c simple pour vous mais pour moi ! :? !
merci d'avance...

ps:j'ai pu voir sur google qu'il était utilisé pour des fin un p..."virus" .

Citation:

Envoyé par pierre987321

tu as une petite explication simplifié pour avoir
juste un bouton sur lequel cliker pour faire le clone ?

Voici en gros comment tu peux faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
var
    tempstr:string;
begin
    //Lecture de l'executable en cours
    ReadExe;
    //Ajoute une donnée de type string dans le exe en mémoire
    Add2Exe('[*MySpEcIaLDeLeMiTer*]','allo');
    //Ajoute dans l'executable un fichier
    //"test.ini" qui est dans le repertoire du exe
    Add2Exe('[*iNiInExE*]', File2String(ExtractFilePath(ParamStr(0))+'test.ini'));
    //Sauvegarde le exe en mémoire à l'endroit et avec le nom que tu veux
    Exe2File('c:\MyClone.exe');
 
 
    // Alors dans ton programme, Lecture de l'executable
    ReadExe;
    ExtractFromExe('[*MySpEcIaLDeLeMiTer*]',tempstr);
    if tempstr='' then
    begin
        //On ne retrouve pas allo! donc on est l'original!
 
    end
    else
    begin
        //On est le clone! on fait quelque chose avec
    end;
    ExtractFromExe('[*iNiInExE*]',tempstr);
    if tempstr='' then
    begin
        //On ne retrouve pas le fichier ini! donc on est l'original!
 
    end
    else
    begin
        //Extraction du .ini
        String2File(tempstr,File2String(ExtractFilePath(ParamStr(0))+'Test.ini'));
    end;

(bon j'ai fait vite mais l'idée est là)

Citation:

Envoyé par pierre987321

ps:j'ai pu voir sur google qu'il était utilisé pour des fin un p..."virus" .

Ben c'est en fait la force des virus... ils s'auto-modifient...pour éviter les détections.

22/02/2007, 23h04
pierre987321

.

merci pour ton aide :D
je vais tester demain et je te dit le résultat...

merci pour ton aide, tu es un :king:

voici la solution grasse a "Eric Boisvert" :king:
(pour les personnes qui cherche a faire de meme).

1/
j'ai ajouté "'ExeMod in 'ExeMod.pas'"
et le fichier "ExeMod.pas" dans mon dossier.

Code:

1
2
3
4
5
6
7
 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  ExeMod in 'ExeMod.pas';

2/
Ajouter dans votre "uses" => "ExeMod;"

3/
Ajouter sur un bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    ReadExe;
       //Ajoute une donnée de type string dans le exe en mémoire
    //Add2Exe('[*MySpEcIaLDeLeMiTer*]','allo');
       //Ajoute dans l'executable un fichier
       //"test.ini" qui est dans le repertoire du exe
    //Add2Exe('[*iNiInExE*]', File2String(ExtractFilePath(ParamStr(0))+'test.ini'));
       //Sauvegarde le exe en mémoire à l'endroit et avec le nom que tu veux
    Exe2File('MyClone.exe'); // c:\
end;

merci a vous tous pour votre aide :yaisse2:

Si tu n'apporte aucune modification dans ton .exe... et que tu veux simplement une copie...tu n'a nullement besoin de ExeMod.pas...

une simple copie suffie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
//Créer une copie de "moi-même.exe" vers "Copy of moi-même.exe"
procedure TForm1.Button1Click(Sender: TObject);
var
    s:string; //Source
    d:string; //Destination
begin
    // Copie le programme en cours vers le même repertoire.
    s:=ParamStr(0); // Source (sois-même)
    d:=ExtractFilePath(s)+'Copy of '+ExtractFileName(s); // Destination
    Copyfile(PChar(s),PChar(d),FALSE); // Copie ecrasante
end;

23/02/2007, 19h12
pierre987321

..

je vais revoir mon code, car j'avais prévu un truc un peut bateau
pour les modifs du soft.

je pense que ExeMod.pas va tres me servir tout comme
ton code que tu viens de me donner. merci merci :mouarf: