Discussion :

[FLB]

J'essaye de créer un programme qui execute un autre et qui écrit une variable, définie dans le premier programme, dans le second programme...
Le problème que je rencontre est l'insertion d'un texte dans un programme a partir d'un autre, ce que je n'arrive pas a faire.
Merci

[M.Dlb]

Tu peux peut-être essayer de faire passer ce texte en ligne de commande dans le programme que tu exécute. Encore une fois, c'est la fonction exec pour exécuter une programme à partir d'un autre ( attention à la pile !! ).
a+

[Eric Sigoillot]

Euh... On va se la refaire là...

Qu'entends-tu par "écrire une variable dans le second programme" ?

Si tu veux faire dans la simplicité, tu peux te contenter de passer ton texte par la ligne de commande, ou, s'il est trop volumineux, passer un nom de fichier contenant ce texte.

Sinon, il y a bien sûr d'autres méthodes. En voilà deux :

1. Une fois ta variable chaîne définie, appelons-la S, tu récupères son adresse mémoire : segment et offset, que tu convertis en chaîne :

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  S: string;
  Offset, Segment: string;
begin
S := 'Essaie';
Str(Seg(S), Segment);
Str(Ofs(S), Offset);
end;

Une fois ceci fais, tu appelles ton autre programme, en lui transmettant en paramètres le segment et l'offset de ta chaîne :

Code :

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

1
2
3
4
 
SwapVectors;
Exec('2.EXE', Segment + ' ' + Offset);
SwapVectors;

Dans l'autre programme, il te suffit de récupérer cette adresse. Dans l'exemple, je vais effectuer une copie de la chaîne d'origine, mais ce n'est pas obligatoire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  S: string;
  Offset, Segment: Word;
  Erreur: Integer;
begin
Val(ParamStr(1), Segment, Erreur);
Val(ParamStr(2), Offset, Erreur);
Move(Mam[Segment:Offset], S, SizeOf(S));
 
WriteLn(S);
end;

Il n'y a dans cet exemple aucune vérification d'erreurs : à toi de voir où il en faut.

2. Autre méthode, qui ne se sert pas de la ligne de commande : il faut te placer sur une interruption dite "libre", l'int 0FAh par exemple. En fonction des paramètres passés à cette interruption, celle-ci renverra l'adresse mémoire de la chaîne. Voilà ce que ça peut donner :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
uses
  Dos;
 
var
  S: string;
  OldFA: procedure;
 
{$F+}
procedure IntFA(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word); interrupt;
begin
if (AX = $11) and (BX = $22) then
  begin
  ES := Seg(S);
  BX := Ofs(S);
  end
else OldFA;
end;
{$F-}
 
 
begin
GetIntVec($FA, @OldFA);
SetIntVec($FA, @IntFA);
.
.
.
SwapVectors;
Exec('2.EXE', '');
Swapvectors;
.
.
.
SetIntVec($FA, @OldFA);
end.

Et pour le programme n°2, ça donnerait :

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
 
uses
  Dos;
 
var
  S: string;
  Regs: Registers;
 
begin
Regs.AX := $11;
Regs.BX := $22;
Intr($FA, Regs);
Move(Mem[Regs.ES:Regs.BX], S, SizeOf(S));
 
WriteLn(S);
end.

Ca devrait fonctionner au poil ! A noter que les valeurs $11 et $22 sont toalement choisies au hasard, et permettent de savoir si c'est bien notre programme qui appelle l'interuption, et non un autre.

A+

[FLB]

Aouch, merci beaucoup, jvais enregistrer tous ca et le relire! Sans vouloir fayoter, vous êtes vraiment excellent!

[FLB]

Ah, mouais, en faites, jme suis mal exprimé...
Pour mettre dans le contexte, j'ai un amis qui a fait un programme tout bête de protection par mot de passe, et ce que je voudrait faire c'est un programme qui execute le programme de demande de mot de passe, qui insert une variable ( définie dans le premier programme ) à la ligne d'execution n°2 du programme de protection mot de passe. C'est à dire après qu'il ait afficher " veuillez insérer votre mot de passe : ".
Ainsi, je pourrai " cracker ( j'ai déjà le mot de passe, c'est juste pour le fun)" son programme.
Le problème que je rencontre est que lorsque j'execute le programme de protection par mot de passe, il s'éxecute totalement avant que je puisse insérer mon mot de passe ( par l'intermédiaire du premier programme).
Je précise que je ne peux pas mofifier le script du programme de protection... ca serait trop facile!
Voilà, j'espère que j'ai été un peu plus clair.
Merci

[M.Dlb]

C'est compliqué tout ça !! Tu ne pourras pas faire ce que tu veux, sauf si le programme que tu appelles a été conçu pour prendre en compte des "variables extérieures", c'est-à-dire s'il a été conçu pour qu'on puisse rentrer des valeurs à partir de l'extérieur du programme ( je sais pas si je me fas bien comprendre ). Si le programme a été fait en delphi ou BP7, pour windows quoi, tu pourras peut-être t'en sortir avec BP7 en utilisant les API...
a+

[Alcatîz]

Salut !

Si le programme que tu veux "cracker" est compilé (.exe), ton programme a juste à aller écrire la petite phrase dans l'exe à la bonne adresse AVANT son exécution.
S'il est interprété (ne serait-ce pas le cas ici ?), c'est pareil mais dans le source.
Dans les deux cas, c'est de la simple écriture de données dans un fichier.

Mais j'ai du mal à comprendre : tu écris "ce que je voudrais faire c'est un programme qui execute le programme de demande de mot de passe". Si ton programme exécute l'autre, je ne pige pas comment le second programme pourrait se terminer avant que le tien le modifie.

[M.Dlb]

Notre ami veut faire un auto-enregistreur, un auto-remplisseur de ligne en quelques sortes... Seulement, il veut faire ça lorsque le programme de mot de passe est lancé, sinon c'est pas drôle... Donc comme je l'ai dit plus haut, ça ne marchera que si son programme a été fait pour tourner sous Windows exclusivement...
a+

[charly]

euh , juste comme sa , on pourrais pas passer par des variable intermediaire stocker dans un fichiers ? sa serais drolement plus pratque

[FLB]

Que-ce que tu veux dire par " des varibles intérmédiaires stocker dans un fichier"?, si tu veux dire que tu pourrai lire un variable contenu dans un fichier, puis l'insérée dans le programme de protection de facon a simuler un utilisateur qui entre un mot de passe, c'est très intéréssant! Il ne suffirait plus qu'un autre programme inscrive auparavant la variable dans ce fichier...!
Merci a tous!

[zworg]

Il me semble que l'on s'est un peu égaré. En fait, si j'ai bien compris, le programme de demande de mot de passe affiche un texte Entrez le mot de passe : par exemple, puis attend la saisie de l'utilisateur. Tu veux qu'à ce moment-là ton propre programme remplace l'utilisateur et simule cette saisie. Ai-je bien saisi le problème ?
Si c'est le cas, tout ce qui a été dit ici est hors sujet (mais fort intéressant néanmoins ).
J'ai écrit dans le temps (époque DOS en mode texte révolue et remplacée par Windows) un programme qui en "pilote" un autre. C'était de la pure bidouille mais ça marchait. Pour ça j'utilisais une interruption cyclique qui regardait ce qui était affiché à l'écran et remplissait le buffer clavier lorsqu'il le fallait. Ca peut être une solution à ton problème.

[FLB]

Ca fait plaisir de se sentir compris!
Ce que j'aimerai faire, c'est justement un programme "pilote", puisque c'est comme ca que tu l'appelle.
Maintenant, le problème est que je ne connais pas les fonctions sous TP7 ( Mais y en a t-il?) qui permette une interruption cyclique ou toute autre solution permettant de créé ce programme "pilote"!
J'éspère qu'un confirmé pour m'éclaircir sur ce sujet
Merci!

[Alcatîz]

Chouette ! Un T.S.R., "comme dans le temps !".

Il existe en effet une interruption du BIOS clavier qui te permet de simuler la frappe de touches (insertion de scan-code et caractère ASCII dans le buffer) : il s'agit du service 05h de l'interruption 16h.

[M.Dlb]

Je ne veux pas être pessimiste mais je crois très sincèrement, moi qui ne rechigne pas le travail, que vous vous embêtez pour pas grand-chose. En effet, détourner une interruption pour piloter un programme, ensuite synchroniser l'interruption et le programme, c'est je crois beaucoup de boulot qui risque d'apporter des résultats "moyens"... En plus ce programme pilote ne pourra être utilisé que dans un cas...
Je ne veux pas décourager FLB !! Bon au moins, il saura comment détourner une interruption !!
a+

[zworg]

Une question FLB, ton prog tourne sous quel OS ?
Sinon, ce dont j'ai parlé est de la bidouille, je le redis. Et c'est un peu de boulot quand même. Dès que j'aurai remis la main sur le programme en question et que j'aurai le temps, je donnerai les détails techniques.

[FLB]

Mon programme tourne dans une fenêtre dos sous windows.
SI le moyen de détournement d''interruption n'est pas fiable et assez compliqué, la solution de Zworg me paraît excellente, merci a tous!
Je vais tou de même essayer les commandes du service 05h et de l'interruption 16h...
J'attend avec impatience la solution de zworg!!!

[Alcatîz]

Si le programme que tu veux "cracker" tourne également dans une fenêtre DOS, il faut absolument que ton programme tourne sur la même machine virtuelle !

Je m'explique : les programmes DOS 16 bits tournent sur une émulation de mode réel. Windows leur réserve à chacun de la mémoire, leur fournit une copie du vecteur d'interruptions, etc, etc. Chacun tourne donc sur une machine virtuelle.

Si ton programme doit tourner en même temps que le programme à cracker et s'il doit détecter les appels de ce programme aux interruptions, il faut évidemment qu'ils tournent tous les deux dans la même zone de mémoire et qu'ils partagent le même vecteur d'interruptions.

Une bonne méthode serait donc de rendre ton programme résident. Soit tu le charges en mémoire dans toutes les machines virtuelles DOS, soit tu ne le charges en mémoire que dans la machine virtuelle réservée au programme à cracker. Dit autrement : soit tu inclus ton programme dans le fichier Autoexec.bat, soit tu ne l'inclus que dans les paramètres (Properties) de la fenêtre DOS du programme à cracker. A toi de voir.

A présent, un petit clin d'oeil :

Wormful_Sickfoot a écrit :

vous vous embêtez pour pas grand-chose. En effet, détourner une interruption pour piloter un programme, ensuite synchroniser l'interruption et le programme, c'est je crois beaucoup de boulot qui risque d'apporter des résultats "moyens"

.
N'est-ce pas là un des plaisirs de la bidouille ?

A bientôt !

[M.Dlb]

Bah, je suis d'accord, la bidouille c'est marrant, et j'en fais souvent
Mais à ce point là, c'est plus de la bidouille : il veut faire un truc ultra compliqué, quasiment irréalisable sans de bonnes conditions, qui ne marchera que pour un seul programme... Et puis pour information, ce n'est pas de cette façon que l'on cracke des programmes... Donc, je pense que ça ne lui apportera pas grand-chose...
Cela dit, j'adore la bidouille !!!
a+

[zworg]

Je crains fort d'avoir donné de faux espoirs
En fait, le travail que j'avais fait était tiré de la Bible PC (adaptation d'un programme donné en exemple), et aujourd'hui sa lecture ne m'apparait pas particulièrement limpide.
C'est basé sur un module assembleur compilé séparément dont le rôle est de rendre résident une portion du code écrite en pascal. Dans le code Pascal, on fait appel au code assembleur via des déclarations externes. Tout ça est assez tortueux.
Tu es sur que tu veux mettre les mains dans cette grosse bouse pour ce que tu veux faire FLB ?

[FLB]

Il n'existe pas un moyens "simple" pour résoudre mon ptit problème???
Et de toutes facon, si je réussi a trouver un script me permettant l'insertion de ma variable etc... je pourrai l'adapter sans aucun problème pour d'autres programmes.... POur celui ci, c'est vraiment pour le plaisir de la bidouille et de cracker un mot de passe... C'est très bête, mais amusant.
Mais, si sa vous torture l'esprit et que c'est vraiment trop compliquer à faire en pascal, laissez tomber, merci kan même!
Flo