003
22.04.2005, 09:38 Uhr
FloSoft
Medialer Over-Flow
(Administrator)
|
hab einen gefunden, der verlangt nur leider 700 Euro dafür, aber er hat mir ein Example von einer Exe gemacht, und der Code scheint ok zu sein (bis auf diverse Sprungadressen usw, aber das hat er eh gemeint das man das nachbearbeiten muss)
man könnte natürlich jetzt versuchen den decompiler selbst zu basteln, den output hab ich ja nun, nur dazu müsste man sich halt auch wirklich mit basic-p-code auskennen usw
| Code: |
REM G Parameters 3C30 , 4931 , 1850
REM *******
100 REM Creating HAUPT.DEB by decompiling HAUPT.DCE
DIM SHARED L140$(49),L163$(49),L142$(86),L103(9),I58(8)
COMMON SHARED I15,L16,I17,I20$,I30,I32,L35,L40,I42,L47$,L55
COMMON SHARED I56,I58(),I59,I60,L63$,L65$,L66$,L68$,I70,L72$,L73$
COMMON SHARED I74,I76,L78$,L80$,I82,L84$,L86$,L88$,L90$,L92$,L94$
COMMON SHARED L96$,I98,L101$,I102,L103(),L104$,I105,L107$,I109,L111$,L112$
COMMON SHARED L113$,L114$,L115$,L117$,L118$,L120$,L122$,L124$,L125$,L127$,L128$
COMMON SHARED L130$,I132,L134$,L135$,L137$,L139,L140$(),L142$(),L143,L144,L149
COMMON SHARED L151$,L152$,L153$,L154$,L155$,L156$,L157$,L158$,L163$(),L164,L167
COMMON SHARED L170,L172$,L173$,L176$,L177$,L178$,L179$,L180$,L181$,L182$,L183$
COMMON SHARED L184,I185,I197,I199,L200$,L201$,L203$,L205$,L207$,L209$,L211$
COMMON SHARED L212$,L214$,L216$,L218$,L220$,L222$,L224$,L226$,L228$,L229$,L231$
COMMON SHARED L233$,L235$,L236$,L238$,L240$,L242$,L244$,L245$,L247$,L248$,L249$
COMMON SHARED L250$,L251$,L252$,L253$,L254$,L255$,L256$,L257$,L258$,L259$,L260$
COMMON SHARED L261$,L262$,L263$,L264$,L265$,L266$,L267$,L268$,L270$,L272$,L273$
COMMON SHARED L274$,L275$,L276$,L277$,L278$,L279$,L280$,L281$,L282$,L283$,I284
COMMON SHARED L285$,I286,L287$,I288,L289$,I290,L291$,L292$,L293$,L294$,L295$
COMMON SHARED L296$,L297$,L298$,L300$,L301$,I303,L304$,L305$,I306,I307,L309$
COMMON SHARED L315$,L318$,L320$,L322$,L324$
110 KEY 15,CHR$(8) + CHR$(50)
120 KEY 16,CHR$(40) + CHR$(50)
130 KEY 17,CHR$(8) + CHR$(33)
140 KEY 18,CHR$(40) + CHR$(33)
150 KEY(9) ON
160 KEY(10) ON
170 KEY(15) ON
180 KEY(16) ON
190 KEY(17) ON
200 KEY(18) ON
210 ON KEY(9) GOSUB 1270'????
220 ON KEY(10) GOSUB 1450'????
230 ON KEY(15) GOSUB 1640'????
240 ON KEY(16) GOSUB 1640'????
250 ON KEY(17) GOSUB 1810'????
260 ON KEY(18) GOSUB 1810'????
270 ON ERROR GOTO 300'????
280 GOTO 1990'????
290 I15 = ERR
300 L16 = ERL
310 I17 = I15
320 IF I17 <> 24 THEN GOTO 390
330 LOCATE 24,10
340 IF ((I20$ <> "j") AND (I20$ <> "J")) = 0 THEN GOTO 370
350 INPUT "DRUCKER EINGESCHALTET ";I20$
360 GOTO 340'????
370 RESUME
380 GOTO 1270'????
390 IF I17 <> 25 THEN GOTO 470
usw
|
--
class God : public ChuckNorris { };
Dieser Post wurde am 06.05.2005 um 23:22 Uhr von FloSoft editiert. |
) Klar kommt auch nicht mehr der originalcode dann raus, aber der code der rauskommt funktioniert dann trotzdem und das ist wichtig.
?
oder 
oder einfach 
oder warum um gottes willen willst du QBasic dekompilieren?
