PureBasic

Code : Tout sélectionner

;{ Données du programme enfant }
DataSection
Data.S "Error.I = 1"
Data.S "If OpenConsole()"
Data.S "If ExamineAssembly(?CodeStart, ?CodeEnd):"
Data.S "If NextInstruction()"
Data.S "BaseAdress.I = InstructionAddress()"
Data.S "PrintN(InstructionString() )"
Data.S "Input()"
Data.S "Error = 0"
Data.S "EndIf"
Data.S "EndIf"
Data.S "CloseConsole()"
Data.S "EndIf"
Data.S "End Error"
Data.S "CodeStart:"
Data.S "CodeEnd:"
Data.S ""
EndDataSection
;}

Global Dim TrustLine.S(31)

#Home = #PB_Compiler_Home

Structure OpString
   TrustFileName.S
   Value.S
   CplProg.I   
   TrustLineQty.I
   CodeOp.I[63]
   CodeQty.I
EndStructure

Procedure.S CplInput(St.S)
   Protected I.I
   Protected Result.S
   Result = UCase(St)
   Result = ReplaceString(Result, ";", Chr(9) )
   ProcedureReturn Result
EndProcedure

Procedure ReadTrust(*C.OpString) ; one time !
   Protected St.S
   With *C
      Repeat
         Read.S St
         If St <> ""
            TrustLine(\TrustLineQty) = St
            \TrustLineQty + 1
         EndIf
      Until St = ""
   EndWith
EndProcedure

Procedure PreStoreTrust(*C.OpString, St.S) ; Etape A
   Protected I.I
   With *C
      \CodeQty = CountString(St, ".") + 1
      For I = 0 To CountString(St, ".")     
         \CodeOp[I] = Val(StringField(St, I + 1, ".") )
      Next I
   EndWith
EndProcedure

Procedure StoreTrust(*C.OpString) ; Etape B
   Protected I.I
   With *C
      CreateFile(0, #Home + \TrustFileName + ".pb")
         For I = 0 To \TrustLineQty - 2
            WriteStringN(0, TrustLine(I) )
         Next I
         For I = 0 To \CodeQty - 1
            WriteStringN(0, "! DB " + Str(\CodeOp[I] ) )
         Next I
         WriteStringN(0, TrustLine(\TrustLineQty - 1) )
      CloseFile(0)
   EndWith
EndProcedure

Procedure CompileTrust(*C.OpString)
   With *C
      WriteProgramStringN(\CplProg, CplInput("SOURCE;" + #Home + \TrustFileName + ".pb") )
      WriteProgramStringN(\CplProg, CplInput("TARGET;" + #Home + \TrustFileName + ".EXE") )
      WriteProgramStringN(\CplProg, "COMPILE")
      ReadProgramString(\CplProg)
   EndWith
EndProcedure

Procedure.I ExecTrust(*C.OpString) ;

   Protected Result.I
   With *C
      Trust = RunProgram(#Home + \TrustFileName + ".EXE", "", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Write | #PB_Program_Hide)
      \Value = ReadProgramString(Trust)
      WriteProgramStringN(Trust, " ")
      While ProgramRunning(Trust)
         Delay(16)
      Wend
      Result = ProgramExitCode(Trust)
      CloseProgram(Trust)
   EndWith
   ProcedureReturn Result.I

EndProcedure

Procedure RecordTrust(*C.OpString) ;
   With *C
      Debug \Value
   EndWith
EndProcedure

Procedure CplOpen(*C.OpString)
   Protected St.S
   With *C
      \CplProg = RunProgram(#PB_Compiler_Home+"\Compilers\pbcompiler", "/STANDBY", "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Write|#PB_Program_Hide)
      If \CplProg
         Repeat
            Delay(15)
            St = ReadProgramString(\CplProg)
         Until St = "READY"
      Else
         MessageRequester("/!\", "Code 3")
      EndIf
   EndWith
EndProcedure

Procedure CplClose(*C.OpString)
   With *C
      WriteProgramStringN(\CplProg, "END")
      While ProgramRunning(\CplProg)
         Delay(100)
      Wend
      If ProgramExitCode(\CplProg) <> 0
         MessageRequester("/!\", "Code 2")
      EndIf
      CloseProgram(\CplProg)
   EndWith
EndProcedure

Procedure.S DisAsm(*C.OpString, St.S)
   Protected Result.S
   With *C
      Delay(500)
      PreStoreTrust(*C, St) ; CodeChaîne >> CodeNum
      StoreTrust(*C) ; CodeNum >> FichPB
      CompileTrust(*C) ; FichPB >> FichEXE
      ExecTrust(*C) ; FichEXE >> CodeOp
;   RecordTrust(Op) ; CodeOp >> Enregistrement
      Result = \Value
   EndWith
   ProcedureReturn Result
EndProcedure

Procedure Main()

   Protected Op.OpString
   Protected St.S
   
   Op\TrustFileName = "Temp"
   ReadTrust(Op)
   
   CplOpen(Op)   
      OpenConsole()
      Repeat         
         PrintN(" ")
         PrintN("Saisissez un code machine. Puis validez avec la touche [Entree].")
         PrintN("Le code doit etre en decimal.")
         PrintN("Le code est ecrit octet apres octet, separe d'un point.")
         PrintN("Exemple: 0.0 (Ici, le code machine se compose de 2 octets chacun etant egal a zero.")
         St = Input()
         If St = ""
            Break
         Else
            Print("Le code machine de " + St + " est : ")
            PrintN(UCase(DisAsm(Op, St) ) )
            Print("Appuyez sur [Entree] pour continuer...")
            Input()
         EndIf
      ForEver
      CloseConsole()
   CplClose(Op)
   
EndProcedure

   Main()