Agir dans un autre programme

Geo373 Messages postés 588 Date d'inscription   Statut Membre Dernière intervention   -  
jjsteing Messages postés 1613 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour, je voudrais créer un programme permettant de retrouver un mot de passe d'un fichier .rar que j'ai oublié.
Le problème c'est que je ne sais pas comment faire pour que le programme écrive à ma place puis face suivant tout seul dans winrar

Si vous pouviez m'aider ça serait simpa

5 réponses

  1. jjsteing Messages postés 1613 Date d'inscription   Statut Contributeur Dernière intervention   181
     
    Si tu t y connais en vb ben rien de plus simple avec une boucle et un sendkeys... mais je te préviens que ca peut etre tres tres long...

    le prog peut etre quelque chose dans ce gout la :

    Dim Txt()
    Txt = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
    tmp = 0

    SendKeys ("%{TAB}")
    DoEvents

    '54 = s
    VarA = 54
    While VarA < 62
    VarB = 30
    While VarB < 62
    VarC = 24
    While VarC < 62
    'VarD = 0
    'While VarD < 62

    'e = Now
    'Do Until Now > e + TimeValue("0:00:01")
    On Error Resume Next

    DoEvents
    'Loop
    temps = Now
    Do Until Now > temps + TimeValue("0:00:01")
    Loop

    Form1.Caption = (Txt(VarA) & Txt(VarB) & Txt(VarC) & Txt(VarD))
    SendKeys (Form1.Caption)
    DoEvents

    'temps = Now
    'Do Until Now > temps + TimeValue("0:00:01")
    'Loop

    SendKeys ("{TAB}")
    SendKeys ("{ENTER}")
    temps = Now
    Do Until Now > temps + TimeValue("0:00:01")
    Loop

    SendKeys ("{ENTER}")
    temps = Now
    Do Until Now > temps + TimeValue("0:00:01")
    Loop

    SendKeys ("+{HOME}")

    'SendKeys ("{TAB}")
    'SendKeys ("{TAB}")
    'SendKeys ("{TAB}")
    DoEvents

    'VarD = VarD + 1
    'Wend
    VarC = VarC + 1
    Wend
    VarB = VarB + 1
    Wend
    VarA = VarA + 1
    Wend
    0
  2. Geo373 Messages postés 588 Date d'inscription   Statut Membre Dernière intervention   96
     
    Non je m'y connais qu'en langage c
    PAr contre ce qui m'interesserai c'est la partie de ton code qui agit sur winrar pour essayer de l'utiliser avec quelques modifications en langage c
    0
  3. jjsteing Messages postés 1613 Date d'inscription   Statut Contributeur Dernière intervention   181
     
    ben tu peux le faire en C..

    Je te proposait VB car c'est beaucoup plus simple pour créer ce genre de ptit prog...

    Le principe du cose est exactement le meme.. juste la gestion de ta fenetre de lancement a ajouter et quelques traduction de langage ;)

    Mais, au risque de me répéter.. ca va prendre du temps... imagine un peut, bon la mon code n est que pour 4 caractere.. mais donc le prog doit lister tous les mdp possibles pour ces 4 caractere soit (26x2+10)^4 donc 62^4 soit 14 776 336 de possibilité, avec a chaque fois un ptit temps de latence pour vérifier le mdp et le decompresser... et ca c'est que pour un mot de passe à 4 caracteres.. imagine si tu veux tester sur 6,7,8.. ca va mettre des plombes !!

    Mais sinon, je sais qu il existe des hackRar... pour faire tout ca beaucoup mieux et plus vite que de tester tous les code possible... mais je n ais pas de sources à ce sujet.
    0
  4. Geo373 Messages postés 588 Date d'inscription   Statut Membre Dernière intervention   96
     
    ok merci pour ta réponse, je vais essayer en langage c et si c'est trop compliqué, je me mettrai au vb
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. jjsteing Messages postés 1613 Date d'inscription   Statut Contributeur Dernière intervention   181
     
    ok, tiens nous au jus...

    @++
    0