MS-DOS TEST naar een ASP site

[Dennis013]

Hallo,

Ik heb een vraag:
In opdracht van een pscyholoog moet ik een oud ms-dos programma omzetten naar een asp-applicatie.
Het programma is een soort persoonlijksheidtest wat aan de hand van ongeveer 124 vragen een uitslag geeft, wat door de psycholoog verder geïnterperteerd moet worden.
Nou is dit het probleem: De logica achter de test zit in de broncode van het ms-dos programma. Ook al heeft mijn client alle benodigde licenties om deze test te gebruiken, hij kan niet aan de 'weeging & waardering' komen die achter deze vragen hangt.
Nou is mijn vraag.. Is er een manier om dit uit de broncode van het msdos programme te vissen?
Ik ben zelf wel redelijk bekwaam in webscripts etc, maar programmatuur die op diskette komt is nogal een mysterie voor me.

Dus alle tips zijn welkom...
Ben benieuwd of dit gaat....

Met vriendelijke groet,
Dennis Masselink

[RobIII]

Dat wordt disassemblen vrees ik...Als je niet bekend bent met executables ontleden of assembly dan zou ik daar mijn hoop maar niet op vestigen. Is nogal "expert" werk

Misschien kun je met wat logica de waardes uitrekenen?
Dus b.v. 123 vragen met nee, 1 met ja beantwoorden en dan score bekijken. En dat dan telkens met een andere vraag. Dan ga ik er dus wel van uit dat vragen niet afhankelijk zijn van elkaar en dat je ja/nee vragen (of desnoods multiple choice vragen) hebt.

[ Voor 123% gewijzigd door RobIII op 17-07-2003 21:13 ]

[Dennis013]

ja das een goeie

124 vragen (tot de 2e macht?)

weinig kans dat ik dat ga doen.... waarmee doe je zo'n disassembly??

-------------
3 antw. per vraag mogelijk

1. niet van toepassing
2. redelijk van toepassing
3. altijd van toepassing

[ Voor 36% gewijzigd door Dennis013 op 17-07-2003 21:14 ]

[RobIII]

Dennis013 schreef op 17 July 2003 @ 21:13:
ja das een goeie

124 vragen (tot de 2e macht?)

weinig kans dat ik dat ga doen.... waarmee doe je zo'n disassembly??

Nogmaals, als je niet bekend bent met assembly hoef je niet te piekeren over disassembly.
Als je dit kunt lezen:

code:

title   Hello World Program                             (hello.asm)
dosseg
.model small
.stack 100h

.data
hello_message db 'Hello, World!',0dh,0ah,'$'

.code
main  proc
      mov    ax,@data
      mov    ds,ax

      mov    ah,9
      mov    dx,offset hello_message
      int    21h

      mov    ax,4C00h
      int    21h
main  endp
end   main

dan weet je wat assembly is... en dit voorbeeld is alleen nog maar om "Hello, World!" op je scherm te zetten... Lower-level dan dit kun je bijna niet (of je moet bits en bytes gaan inkloppen in 1-en en 0-en )

[ Voor 19% gewijzigd door RobIII op 17-07-2003 21:17 ]

[Dennis013]

van een stukje code word ik niet bang...

hoe zit het met de rekenkundige functies? zijn die te herkennen?

[RobIII]

Dennis013 schreef op 17 July 2003 @ 21:16:
van een stukje code word ik niet bang...

hoe zit het met de rekenkundige functies? zijn die te herkennen?

Jas maar eens een willekeurige exe door w32dasm en zie wat je te wachten staat. ECHT, geloof me, je moet hier geen hoop op vestigen als je niet eens weet wat assembly is...

hier tref je wat disassemblers aan. Maar nogmaals, je bent gewaarschuwd!

Voorbeeldje van PI berekenen in ASM: (effe van Google geript, stamt uit 1993 dus kan waarschijnlijk wel mooier en korter )

code:

;
; ASMPI by Rich Geldreich, December 1992 - June 1993
; (A FAST all-assembly PI calculator.)
; Thanks to Victor Yui for suggesting the division optimization.
; (This program has only been verified to 10,000 digits.)
;

.286
IDEAL           ; Assembled with TASM v3.0 (sorry MASM guys!)
MODEL SMALL
DOSSEG
STACK 512

DATASEG
;-------------------------------------------------------------------------------
;The following equates specify how many digits of PI are to be calculated.
;I used the QuickBASIC program MAKESZES.BAS to calculate these values.
;(The maximum number of digits this program can handle is about 36,000
;because of memory limitations.)

;NumDigits=564
;MPVSize=224
;Last1=801
;Last2=225

;NumDigits=1064
;MPVSize=448
;Last1=1588
;Last2=436

;NumDigits=2564
;MPVSize=1056
;Last1=3949
;Last2=1069

;NumDigits=5064
;MPVSize=2080
;Last1=7883
;Last2=2124

NumDigits=10064
MPVSize=4160
Last1=15752
Last2=4234

;NumDigits=20064
;MPVSize=8320
;Last1=31489
;Last2=8453

;NumDigits=36064
;MPVSize=14976
;Last1=56669
;Last2=15204


;MPV stands for: multiple precision variable.

EVEN
MPV1            db      MPVSize         dup(0)
MPV2            db      MPVSize         dup(0)
MPV3            db      MPVSize         dup(0)
MPV4            db      MPVSize         dup(0)

MPVDivZero      dw      0
MPVDivZeroSize  dw      0
MPVMulZero      dw      0
MPVMulZeroSize  dw      0

Divisor         dw      0
OddEven         db      0

Max             dw      0

TwiddlePos      dw      0
TwiddleStuff    db      'Ä','\','|','/'
TwiddleCount    db      0

Message1        db      'Machin Series PI Calculator',10,13
                db      'by Rich Geldreich, June 1993',10,13,'$'

Message2        db      'Initializing... $'
Message3        db      13,'Calculating group one... $'
Message4        db      '    ',13,'Calculating group two... $'
Message5        db      '    ',13,'Conterting result to decimal... $'
Message6        db      13,'                                     ',13,10,13,'$'

Message7        db      'Assembled for ','$'
Message8        db      ' digits.',10,13,'$'
;-------------------------------------------------------------------------------
FARDATA DigitSeg
Digits          db      NumDigits       dup(0)
ENDS
;-------------------------------------------------------------------------------

CODESEG
ASSUME DS:@DATA, ES:@DATA, CS:@CODE

Start:          Cld

                Mov     ax, @DATA
                Mov     ds, ax
                Mov     es, ax

                Mov     ah, 9
                Mov     dx, offset Message1
                Int     021h

                Call    PrintNumDigits

                Call    MPVLOAD10           ;calculate 10^numdigits in binary
                Call    TERM1               ;calculate term 1
                Call    TERM2               ;calculate term 2
                Call    MPVPRINT            ;convert result to decimal and
                                            ;print to screen
                Mov     ax, 04C00h          ;exit to dos
                Int     021h
;-------------------------------------------------------------------------------
EVEN
PROC            MPVDIV                      ;divides an MPV by BX

                Std

                Mov     si, [MPVDivZero]
                Mov     dx, [MPVDivZeroSize]
                Xor     ax, ax

                Sub     di, dx
                Sub     di, dx

@@10:           Cmp     dx, MPVSize/2       ;track how big the MPV is
                Je      @@20
                Cmp     [si], ax
                Jne     @@20
                Dec     si
                Dec     si
                Inc     dx
                Stosw
                Jmp     @@10

@@20:           Mov     [MPVDivZero], si
                Mov     [MPVDivZeroSize], dx

                Mov     cx, MPVSize/2
                Sub     cx, dx

                Xor     dx, dx
                Push    cx
                And     cx, 15
                Jcxz    @@40
@@30:           Lodsw
                Div     bx
                Stosw
                Loop    @@30
@@40:           Pop     cx

                Shr     cx, 4
                Jz      @@Exit
EVEN
@@50:           REPT    16
                Lodsw
                Div     bx
                Stosw
                ENDM
                Loop    @@50

@@Exit:         Cld
                Ret
ENDP            MPVDIV
;-------------------------------------------------------------------------------
EVEN
PROC            MPVMUL                      ;multiplies an MPV by BX

                Mov     si, [MPVMulZero]
                Mov     cx, [MPVMulZeroSize]

@@01:           Cmp     [word si], 0        ;track how big the MPV is
                Je      @@02
                Inc     si
                Inc     si
                Dec     cx
                Jnz     @@01
@@02:
                Mov     [MPVMulZero], si
                Mov     [MPVMulZeroSize], cx

                Neg     cx
                Add     cx, MPVSize/2

                Mov     di, offset MPV4
                Mov     si, offset MPV4

                Xor     bp, bp

                Push    cx
                And     cx, 7
                Jz      @@03
@@04:           Lodsw
                Mul     bx
                Add     ax, bp
                Adc     dx, 0
                Stosw
                Mov     bp, dx
                Loop    @@04
@@03:           Pop     cx
                Shr     cx, 3
                Jnz     @@10
                Jmp     @@Exit

EVEN
@@10:           REPT    8
                Lodsw
                Mul     bx
                Add     ax, bp
                Adc     dx, 0
                Stosw
                Mov     bp, dx
                ENDM

                Loop    @@10

@@Exit:         Mov     ax, bp
                Stosw

                Ret
ENDP            MPVMUL
;-------------------------------------------------------------------------------
EVEN
PROC            MPVSHIFT                    ;shifts an MPV over to the left 1 time
                Mov     cx, (MPVSize/2)/16

                Mov     dx, 32

                Clc
EVEN
@@10:           Rcl     [word ds:si], 1
                Rcl     [word ds:si+2], 1
                Rcl     [word ds:si+4], 1
                Rcl     [word ds:si+6], 1

                Rcl     [word ds:si+8], 1
                Rcl     [word ds:si+10], 1
                Rcl     [word ds:si+12], 1
                Rcl     [word ds:si+14], 1

                Rcl     [word ds:si+16], 1
                Rcl     [word ds:si+18], 1
                Rcl     [word ds:si+20], 1
                Rcl     [word ds:si+22], 1

                Rcl     [word ds:si+24], 1
                Rcl     [word ds:si+26], 1
                Rcl     [word ds:si+28], 1
                Rcl     [word ds:si+30], 1

                Lahf
                Add     si, dx
                Sahf

                Loop    @@10

                Ret

ENDP            MPVSHIFT
;-------------------------------------------------------------------------------
EVEN
PROC            MPVCOPY                     ;copies an MPV
                Mov     cx, MPVSize/2

                Rep     Movsw

                Ret
ENDP            MPVCOPY
;-------------------------------------------------------------------------------
EVEN
PROC            MPVADD                      ;adds an MPV with another MPV

                Mov     cx, MPVSize/2
                Sub     cx, [MPVDivZeroSize]
                Jnz     @@10
                Ret
@@10:
                Mov     dx, 32

                Push    cx
                And     cx, 15
                Jz      @@30
                Clc
@@20:           Lodsw
                Adc     [ds:di], ax
                Inc     di
                Inc     di
                Loop    @@20
@@30:           Pop     cx

                Lahf
                Shr     cx, 4
                Jnz     @@40
                Ret
@@40:           Sahf

EVEN
@@50:           Lodsw
                Adc     [ds:di], ax
                Lodsw
                Adc     [ds:di+2], ax
                Lodsw
                Adc     [ds:di+4], ax
                Lodsw
                Adc     [ds:di+6], ax
                Lodsw
                Adc     [ds:di+8], ax
                Lodsw
                Adc     [ds:di+10], ax
                Lodsw
                Adc     [ds:di+12], ax
                Lodsw
                Adc     [ds:di+14], ax

                Lodsw
                Adc     [ds:di+16], ax
                Lodsw
                Adc     [ds:di+18], ax
                Lodsw
                Adc     [ds:di+20], ax
                Lodsw
                Adc     [ds:di+22], ax
                Lodsw
                Adc     [ds:di+24], ax
                Lodsw
                Adc     [ds:di+26], ax
                Lodsw
                Adc     [ds:di+28], ax
                Lodsw
                Adc     [ds:di+30], ax

                Lahf
                Add     di, dx
                Sahf

                Loop    @@50

@@60:           Jnc     @@70
                Adc     [word ds:di], 0
                Inc     di
                Inc     di
                Jmp     @@60

@@70:           Ret

ENDP            MPVADD
;-------------------------------------------------------------------------------
EVEN
PROC            MPVSUB                      ;subtracts an MPV from another MPV

                Mov     cx, MPVSize/2
                Sub     cx, [MPVDivZeroSize]
                Jnz     @@10
                Ret
@@10:
                Mov     dx, 32

                Push    cx
                And     cx, 15
                Jz      @@30
                Clc
@@20:           Lodsw
                Sbb     [ds:di], ax
                Inc     di
                Inc     di
                Loop    @@20
@@30:           Pop     cx

                Lahf
                Shr     cx, 4
                Jnz     @@40
                Ret
@@40:           Sahf

EVEN
@@50:           Lodsw
                Sbb     [ds:di], ax
                Lodsw
                Sbb     [ds:di+2], ax
                Lodsw
                Sbb     [ds:di+4], ax
                Lodsw
                Sbb     [ds:di+6], ax
                Lodsw
                Sbb     [ds:di+8], ax
                Lodsw
                Sbb     [ds:di+10], ax
                Lodsw
                Sbb     [ds:di+12], ax
                Lodsw
                Sbb     [ds:di+14], ax

                Lodsw
                Sbb     [ds:di+16], ax
                Lodsw
                Sbb     [ds:di+18], ax
                Lodsw
                Sbb     [ds:di+20], ax
                Lodsw
                Sbb     [ds:di+22], ax
                Lodsw
                Sbb     [ds:di+24], ax
                Lodsw
                Sbb     [ds:di+26], ax
                Lodsw
                Sbb     [ds:di+28], ax
                Lodsw
                Sbb     [ds:di+30], ax

                Lahf
                Add     di, dx
                Sahf

                Loop    @@50

@@60:           Jnc     @@70
                Sbb     [word ds:di], 0
                Inc     di
                Inc     di
                Jmp     @@60

@@70:           Ret

ENDP            MPVSUB
;-------------------------------------------------------------------------------
PROC            MPVLOAD10                   ;initializes MPV4 to a power of 10

                Mov     ah, 9
                Mov     dx, offset Message2
                Int     021h

                Mov     [word ds:MPV4+2], 03B9Ah
                Mov     [word ds:MPV4], 0CA00h

                Mov     [word MPVMulZero], offset MPV4
                Mov     [word MPVMulZeroSize], MPVSize/2
EVEN
@@10:           Mov     bx, 10000
                Call    MPVMUL

                Call    Twiddle

                Cmp     [word ds:MPV4+MPVSize-12], 0 ;fudge factor = 12 bytes
                Je      @@10

                Ret
ENDP            MPVLOAD10
;-------------------------------------------------------------------------------
PROC            MPVPRINT                    ;prints an MPV to the screen in decimal
                Mov     ah, 9
                Mov     dx, offset Message5
                Int     021h

                Mov     cx, NumDigits/4
                Mov     [ds:Max], cx

                Mov     di, offset Digits+NumDigits-1
                Mov     [ds:MPVDivZero], offset MPV2+MPVSize-2
                Mov     [ds:MPVDivZeroSize], 0

EVEN
@@10:           Push    cx di

                Mov     di, offset MPV2+MPVSize-2
                Mov     bx, 10000
                Call    MPVDIV

                Pop     di cx

                Mov     ax, DigitSeg
                Mov     ds, ax

                Mov     ax, dx
                Mov     bx, 10

                REPT    4

                Xor     dx, dx
                Div     bx
                Add     dl, '0'
                Mov     [ds:di], dl
                Dec     di

                ENDM

                Mov     ax, @DATA
                Mov     ds, ax

                Mov     ax, NumDigits/4
                Sub     ax, cx
                Call    PERCENT

                Loop    @@10

                Mov     ah, 9
                Mov     dx, offset Message6
                Int     021h

                Mov     cx, NumDigits

                Mov     ax, DigitSeg
                Mov     ds, ax
                Mov     si, di
                Inc     si

@@20:           Lodsb
                Cmp     al, '0'
                Jne     @@30
                Loop    @@20
                Jmp     short @@Exit
@@30:

                Mov     dl, al
                Mov     ah, 2
                Int     021h

                Dec     cx
                Jz      @@Exit

@@40:           Lodsb                   ;this is slower than doing a single
                Mov     dl, al          ;DOS call to print the entire number,
                Mov     ah, 2           ;but that's good because it doesn't
                Int     021h            ;zip up the screen as fast
                Loop    @@40

@@Exit:         Ret
ENDP            MPVPRINT
;-------------------------------------------------------------------------------
PROC            TERM1                   ;calculates the first term of the Machin series
                Mov     ah, 9
                Mov     dx, offset Message3
                Int     021h

                Mov     [ds:Max], Last1

                Mov     si, offset MPV4
                Mov     di, offset MPV1
                Call    MPVCOPY

                Mov     [ds:OddEven], -1
                Mov     [ds:Divisor], 1
                Mov     [ds:MPVDivZero], offset MPV1+MPVSize-2
                Mov     [ds:MPVDivZeroSize], 0

EVEN
@@10:
                Mov     di, offset MPV1+MPVSize-2

                Mov     bx, 5
                Cmp     [ds:Divisor], 1
                Je      @@20
                Mov     bx, 25
@@20:           Call    MPVDIV

                Mov     di, offset MPV3+MPVSize-2
                Mov     bx, [ds:Divisor]
                Call    MPVDIV

                Mov     si, offset MPV3
                Mov     di, offset MPV2

                Cmp     [ds:OddEven], 0
                Je      @@30
                Call    MPVADD
                Jmp     short @@40
EVEN
@@30:           Call    MPVSUB

@@40:
                Not     [ds:OddEven]

                Mov     ax, [ds:Divisor]
                Inc     ax
                Inc     ax
                Mov     [ds:Divisor], ax

                Cmp     ax, Last1
                Jae     @@Done
                Push    offset @@10
                Jmp     PERCENT
@@Done:
                Mov     si, offset MPV2
                Call    MPVSHIFT
                Mov     si, offset MPV2
                Call    MPVSHIFT

                Ret
ENDP            TERM1
;-------------------------------------------------------------------------------
PROC            TERM2                    ;calculates the second term of the Machin series
                Mov     ah, 9
                Mov     dx, offset Message4
                Int     021h

                Mov     si, offset MPV4
                Mov     di, offset MPV1
                Call    MPVCOPY

                Mov     [ds:Max], Last2

                Mov     [ds:OddEven], 0
                Mov     [ds:Divisor], 1
                Mov     [ds:MPVDivZero], offset MPV1+MPVSize-2
                Mov     [ds:MPVDivZeroSize], 0
EVEN
@@10:
                Mov     di, offset MPV1+MPVSize-2
                Mov     bx, 239
                Cmp     [ds:Divisor], 1
                Je      @@20
                Mov     bx, 239*239
@@20:           Call    MPVDIV

                Mov     di, offset MPV3+MPVSize-2
                Mov     bx, [ds:Divisor]
                Call    MPVDIV

                Mov     si, offset MPV3
                Mov     di, offset MPV2

                Cmp     [ds:OddEven], 0
                Je      @@30
                Call    MPVADD
                Jmp     short @@40
EVEN
@@30:           Call    MPVSUB

@@40:

                Not     [ds:OddEven]

                Mov     ax, [ds:Divisor]
                Inc     ax
                Inc     ax
                Mov     [ds:Divisor], ax

                Cmp     ax, Last2
                Jae     @@Done
                Push    offset @@10
                Jmp     PERCENT
@@Done:

                Mov     si, offset MPV2
                Call    MPVSHIFT
                Mov     si, offset MPV2
                Call    MPVSHIFT

                Ret
ENDP            TERM2
;-------------------------------------------------------------------------------
EVEN
PROC            TWIDDLE
                Mov     al, [ds:TwiddleCount]
                Inc     ax
                And     al, 01Fh
                Mov     [byte ds:TwiddleCount], al
                Jz      @@Update
                Ret

@@Update:       Mov     bx, [ds:TwiddlePos]
                Mov     dl, [ds:bx+TwiddleStuff]
                Inc     bx
                And     bl, 3
                Mov     [ds:TwiddlePos], bx

                Mov     ah, 2
                Int     021h
                Mov     dl, 8
                Mov     ah, 2
                Int     021h

                Ret
ENDP            TWIDDLE
;-------------------------------------------------------------------------------
PROC            PERCENT
                Mov     bl, [ds:TwiddleCount]
                Inc     bl
                Mov     [byte ds:TwiddleCount], bl
                Jz      @@Update
                Ret
@@Update:
                Push    cx

                Mov     bx, 100
                Mul     bx
                Div     [ds:Max]

                Mov     bp, 10
                Xor     cx, cx

@@CalcNumber:   Xor     dx, dx
                Div     bp
                Add     dl, '0'
                Push    dx
                Inc     cx
                And     ax, ax
                Jnz     @@CalcNumber

                Mov     bp, cx
                Mov     ah, 2
@@PrintNumber:
                Pop     dx
                Int     021h
                Loop    @@PrintNumber

                Mov     dl, '%'
                Int     021h

                Mov     cx, bp
                Inc     cx

                Mov     dl, 8
@@BackSpace:    Int     021h
                Loop    @@BackSpace

                Pop     cx

                Ret
ENDP            PERCENT
;-------------------------------------------------------------------------------
PROC            PrintNumDigits

                Mov     ah, 9
                Mov     dx, offset Message7
                Int     021h

                Mov     ax, NumDigits
                Mov     bx, 10
                Xor     cx, cx

@@10:           Cwd
                Div     bx
                Add     dl, '0'
                Push    dx
                Inc     cx
                And     ax, ax
                Jnz     @@10

                Mov     ah, 2

@@20:           Pop     dx
                Int     021h
                Loop    @@20

                Mov     ah, 9
                Mov     dx, offset Message8
                Int     021h

                Ret

ENDP            PrintNumDigits
;-------------------------------------------------------------------------------
END

Da's schrikken he? En dan heb je nog leesbare labels als @@PrintNumber: enzo. Een disassembler nummert die labels gewoon, omdat die "namen" niet worden meegenomen in de uiteindelijke .exe.

[ Voor 116% gewijzigd door RobIII op 17-07-2003 21:34 ]

[Dennis013]

Ik heb gedaan wat je zei... ff dat w32dasm gedownload, mijn .exe ermee geopend, maar ik zie alleen maar wingdings ??
uhmm

[GraveR]

Dennis013 schreef op 17 juli 2003 @ 21:16:
van een stukje code word ik niet bang...

hoe zit het met de rekenkundige functies? zijn die te herkennen?

Waarschijnlijk zit de waardering in eenzelfde vorm als

code:

db 'Hello, World!',0dh,0ah,'$'

Met eerst de vraag en dan de antwoorden met de waardering erachter.

[RobIII]

Dennis013 schreef op 17 July 2003 @ 21:24:
Ik heb gedaan wat je zei... ff dat w32dasm gedownload, mijn .exe ermee geopend, maar ik zie alleen maar wingdings ??
uhmm

Verkeerde lettertype ingesteld staan...

GraveR schreef op 17 July 2003 @ 21:25:
[...]
Waarschijnlijk zit de waardering in eenzelfde vorm als

code:

db 'Hello, World!',0dh,0ah,'$'

Met eerst de vraag en dan de antwoorden met de waardering erachter.

...Dat vrees ik niet, die 0dh en oah zijn alleen maar een CrLf, niks meer niks minder...

[ Voor 107% gewijzigd door RobIII op 17-07-2003 21:30 ]

[GraveR]

RobIII schreef op 17 July 2003 @ 21:25:
Verkeerde lettertype ingesteld staan...

[...]

...Dat vrees ik niet, die 0dh en oah zijn alleen maar een CrLf, niks meer niks minder...

Waar ik dus op doelde is dat de teksten duidelijk te onderscheiden van van de code. Als de waardering per antwoord in dat formaat ligt opgeslagen, dan is het uitpluizen van de code helemaal niet van toepassing.

[RobIII]

Welk "formaat"??? Platte ascii? Ik denk niet dat je die terug zult aantreffen in de disassembly. Waarschijnlijk alleen rauwe getallen die niks zeggen.

[Dennis013]

Ja... zo'n heel stuk code posten is natuurlijk niet goed voor mijn optimisme..
Is er geen andere manier om zoiets voor elkaar te krijgen?

[RobIII]

Als je alleen een .exe hebt ben ik bang van niet. Alleen de logica proberen te "ontdekken" lijkt me een haalbare mogelijkheid voor je. Anders moet je er maar eens een expert bij halen die dat voor je wil doen. Maar geloof me, die zijn dun gezaaid en kunnen flink wat centjes daarvoor vragen. (En nee, je mag dat hier helaas niet vragen , zie daarvoor de FAQ).

[ Voor 6% gewijzigd door RobIII op 17-07-2003 21:32 ]

[GraveR]

Kun je anders die file ff passen naar [e-mail] opdat ik een blik kan werpen op dat ding? Let wel: die file wordt binnen 24 uur weer gewist omdat ik geen gebruiksrecht heb.

Ik kan me niet voorstellen dat de teksten niet gewoon als

code:

Message1        db      'Machin Series PI Calculator',10,13

uit de disassembler komt.

[RobIII]

GraveR schreef op 17 juli 2003 @ 21:32:
Kun je anders die file ff passen naar [e-mail] opdat ik een blik kan werpen op dat ding? Let wel: die file wordt binnen 24 uur weer gewist omdat ik geen gebruiksrecht heb.

Ik kan me niet voorstellen dat de teksten niet gewoon als

code:

Message1        db      'Machin Series PI Calculator',10,13

uit de disassembler komt.

Het gaat hem niet om de teksten, maar om de waarderingen per antwoord.

[GraveR]

RobIII schreef op 17 July 2003 @ 21:33:
[...]

Het gaat hem niet om de teksten, maar om de waarderingen per antwoord.

Die zijn waarschijnlijk ook wel op eenzelfde manier opgeslagen te achterhalen waarschijnlijk.

[djluc]

Je kunt met een programmeertaal die goed is in het verbinden van applicaties zoals Perl proberen om op een structurele wijze het handwerk wat je eigenlijk zou gaan doen, proberen na te doen. Als je die gegevens in een db zet kun je heel eenvoudig de juiste getallen er uit toveren.

Weet je niet wie de maker is van het programma of is het niet gewoon een standaard test die alle psychologen doen en die je dus ook in een normaal formaat terug kunt vinden?

[Dennis013]

mooi... je hebt de mail binnen..
ik heb de gehele inhoud van de flop gemaild (behalve een .sys bestand, wat een leesfout gaf)

[RobIII]

GraveR schreef op 17 July 2003 @ 21:34:
[...]
Die zijn waarschijnlijk ook wel op eenzelfde manier opgeslagen te achterhalen waarschijnlijk.

Neehee, doe nou eens niet zo eigenwijs

Wat je zelf de hele tijd aan geeft is platte tekst (ASCII) die idd gewoon in de .exe te vinden zal zijn. Maar de berekeningsmethode en scores worden gewoon binair opgeslagen en als code gedisassembled. Daar kom je 99% zeker weten niet uit, TENZIJ je behoorlijk goed bent in ASM.

Doe me een lol, en laat me het stukje disassembly zien als je het gevonden hebt, ja?

[ Voor 13% gewijzigd door RobIII op 17-07-2003 21:40 ]

[BCC]

MS-Dos programma's zijn meestal wel redelijk eenvoudig te disassembelen.

[RobIII]

BCC schreef op 17 July 2003 @ 21:38:
MS-Dos programma's zijn meestal wel redelijk eenvoudig te disassembelen.

En dan? Heb je de draad wel gelezen? Praat ik tegen een muur ofzo? Luistert er wel iemand?

[Dennis013]

djluc schreef op 17 July 2003 @ 21:36:
Je kunt met een programmeertaal die goed is in het verbinden van applicaties zoals Perl proberen om op een structurele wijze het handwerk wat je eigenlijk zou gaan doen, proberen na te doen. Als je die gegevens in een db zet kun je heel eenvoudig de juiste getallen er uit toveren.

Weet je niet wie de maker is van het programma of is het niet gewoon een standaard test die alle psychologen doen en die je dus ook in een normaal formaat terug kunt vinden?

ja ik denk ook dat het een standaard test is, waarvan de uitwerking ergens terug te vinden is op papier, maar bij navraag kon hij me niet helpen.

[djluc]

Ik denk persoonlijk dat je daar beter je tijd in kunt steken, al is het natuurlijk wel geinig om een ker die code uit te zoeken en heel erg gaaf als het lukt. Maar economisch gezien is het totaal niet interessant. Je kunt eens op zoek gaan naar credits in het programma?

[nicxz]

hmm je zou een proggie als softice kunnen gebruiken, en kijken wat er gebeurt in het programma elke keer als je een waarde invult, maar ook dat is niet echt makkelijk.

[RobIII]

djluc schreef op 17 juli 2003 @ 21:42:
Ik denk persoonlijk dat je daar beter je tijd in kunt steken, al is het natuurlijk wel geinig om een ker die code uit te zoeken en heel erg gaaf als het lukt. Maar economisch gezien is het totaal niet interessant. Je kunt eens op zoek gaan naar credits in het programma?

Kijk, DAT is nou creatief denkwerk! Hulde

nicxz schreef op 17 juli 2003 @ 21:42:
hmm je zou een proggie als softice kunnen gebruiken, en kijken wat er gebeurt in het programma elke keer als je een waarde invult, maar ook dat is niet echt makkelijk.

Wat denk je zelf als je dit leest in de startpost?

Dennis013 schreef op 17 July 2003 @ 21:07:
<knip>
Ik ben zelf wel redelijk bekwaam in webscripts etc, maar programmatuur die op diskette komt is nogal een mysterie <knip>

Gaat hem dus (met alle respect) niet lukken vrees ik. Als die software in een high level language (pascal of qbasic of whatever) is geschreven wordt je helemaal simpel van allerlei branches en andere gekke dingen dat je goed 400 tot 800 regels moet door"springen" om er achter te komen hoe die ene toetsdruk nu eigenlijk werd afgehandeld. Laat staan een hele berekening (inclusief overflow checks/handling etc)...

[ Voor 60% gewijzigd door RobIII op 17-07-2003 21:46 ]

[nicxz]

ja ok heb je gelijk in. Maarja ik heb een positief mensbeeld, misschien is de topicstarter zo geinteresseerd en gemotiveerd dat ie het alsnog gaat proberen omdat ie het interessant vind, en dan is een term om op te zoeken wel handig

[djluc]

Gaat hem dus (met alle respect) niet lukken vrees ik.

Dat is vrij zeker inderdaad, alleen op 'mijn manier' zal het lukken denk ik

[ Voor 36% gewijzigd door djluc op 17-07-2003 21:46 ]

[vandijk]

Met een beetje mazzel is het geschreven in Qbasic oid... dan val het misschien te de-tokenizen...

[Dennis013]

En hoe kom ik daar achter?

[Verwijderd]

Ik vind het heel lullig om te moeten zeggen, zeker omdat TS er geen slechte bedoeling mee heeft, maar decompileer vragen mogen niet.

De FAQ schreef:
Dit is in principe gewoon illegaal (net als cracks, passes, warez etc) en voor ons daarom niet/nauwelijks na te gaan of er wel of niet illegaal gedrag getoond wordt. Daarom hebben we besloten het als illegaal te beschouwen en zijn dit soort topics niet gewenst.

[RobIII]

Verwijderd schreef op 17 juli 2003 @ 21:55:
Ik vind het heel lullig om te moeten zeggen, zeker omdat TS er geen slechte bedoeling mee heeft, maar decompileer vragen mogen niet.
[...]

...ook uit de faq waar ik naar refereerde, maar heb er zelf ook niet helemaal bij stil gestaan. Excuses mods!!

[Dennis013]

nou da's lekker dan

[Lambert]

Je kan ook de assembler code omtoveren naar C code.

Linkje met info en tooltje:
http://www.itee.uq.edu.au/~csmweb/decompilation/general.html

De C code is beter lees/begrijpbaar als assembler al zat het tooltje niet de meest frisse C code uitspuwen .

Veel succes iig.

[GraveR]

OK, bevindingen na 5 minuten kijken.

1) De software is 'kopieerbeveiligd' ik krijg een disk format error 1 bij het starten, niet erg
2) De vragen, en dus mogelijk ook de waarderingen, staan in branches.as2, dus niet zozeer in de exe
3) De software komt uit 1987
4) Van de ontwikkelaar is weinig meer bekend, mogelijk hebben ze een andere naam gekregen

Maar we gaan nog even stug door, onder het motto: niet geschoten altijd mis

[Verwijderd]

Om welke test gaat het eigenlijk? Misschien is hier wel al een "modernere" versie van!

[Dennis013]

Ja.... een moderne versie...
die moest ik net nou juist gaan maken

dat de vragen ( en misschien ook wel de wegingen in ) dat .as2 bestand stonden had ik zelf ook net gezien met een hex-editor, maar da's zo'n brei... weet niet hoe je daar effecient iets uit kan halen??

[ Voor 60% gewijzigd door Dennis013 op 17-07-2003 22:04 ]

[eamelink]

Dennis013 schreef op 17 July 2003 @ 21:07:
Nou is mijn vraag.. Is er een manier om dit uit de broncode van het msdos programme te vissen?

Nou heb ik het idee dat ik dom ben of dat de topicstarter niet weet wat broncode is of ik niet, of dat we hier allemaal raar zitten te lullen, of, en dat denk ik, dat dit niet echt zijn vraag is, want als je de broncode hebt, wat zit je dan moeilijk te doen over disassemblen?

Antwoord op je vraag : Ja, je kan vrij gemakkelijk de logica uit de broncode halen.

Weet je héél zeker dat je de broncode hebt?

_{Het kan natuurlijk ook zijn dat mijn begrijpend lezen en oplossen vermogen onder de maat zijn, mijn excuses daarvoor dan}

[Dennis013]

ja oke..
Je hebt gelijk.... broncode is het niet, maar de mensen weten kennelijk wel waar ik het over heb

[Verwijderd]

Is het zuiver en alleen een .exe, of zitten er nog meer bestanden bij?

Als je zou weten in wat voor taal het ooit geschreven is, wordt het al iets makkelijker. 1987, dus dat zal clipper, turbo pascal of turbo basic zijn. Als je dat eenmaal hebt vastgesteld, dan pas kun je verder gaan kijken.

Zoek eens naar 'PE Explorer' , een demoversie is te downloaden bij www.heaventools.com, dat is best een handige disassembler..

[eamelink]

Okee, dan snappen we elkaar . Je zou even je startpost kunnen aanpassen?

Maar als de vragen zoals GraveR zegt niet in de exec staan, maar in een andere file, dan gaat het niet meer over disassemblen, en is het topic bij deze weer legaal toch?

Denk je dat je een stukje hex van die file met vragen online kan zetten? Zodat we de structuur kunnen uitvogelen?

[RobIII]

Als het spul in meerdere bestanden staat is de kans idd. groter, maar ik was tot deze post in de veronderstelling dat het 1 enkele .exe betrof. Mail mij die spullen dan ook maar eens. *snip*
...heb wel morgenavond pas (een beetje ) tijd om er naar te kijken... * RobIII is druk, druk, druk

[ Voor 42% gewijzigd door RobIII op 03-06-2020 23:07 ]

[Verwijderd]

same here [e-mail]

[GraveR]

Voor zover ik kan zien komen eerste iets wat op de vragen lijken en vervolgens de antwoorden

ok, hier een hexdump met antwoorden, soz voor de fuckup van de layout:

code:

0000af80h: 65 0D 0A 20 20 20 20 77 61 61 72 6F 70 20 75 20 ; e..    waarop u 
0000af90h: 75 77 20 6D 65 64 65 77 65 72 6B 65 72 20 62 65 ; uw medewerker be
0000afa0h: 6F 6F 72 64 65 65 6C 74 2E 0D 0A 00 40 0E 00 00 ; oordeelt....@...
0000afb0h: 00 00 00 00 77 00 0D 0A 20 20 20 20 20 20 41 2E ; ....w...      A.
0000afc0h: 20 20 74 65 20 74 6F 65 67 65 73 70 69 74 73 74 ;   te toegespitst
0000afd0h: 20 6F 70 20 68 65 74 20 77 65 72 6B 20 0D 0A 20 ;  op het werk .. 
0000afe0h: 20 20 20 20 20 42 2E 20 20 68 6F 75 64 74 20 76 ;      B.  houdt v
0000aff0h: 61 6E 20 68 65 74 20 77 65 72 6B 20 65 6E 20 64 ; an het werk en d
0000b000h: 65 20 75 69 74 64 61 67 69 6E 67 65 6E 20 64 69 ; e uitdagingen di
0000b010h: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 68 65 74 ; e..          het
0000b020h: 20 6D 65 65 62 72 65 6E 67 74 20 0D 0A 00 80 0E ;  meebrengt ...€.
0000b030h: 00 00 00 00 00 00 4C 00 0D 0A 20 20 20 20 20 20 ; ......L...      
0000b040h: 41 2E 20 20 73 74 65 6C 74 20 70 65 72 66 65 6B ; A.  stelt perfek
0000b050h: 74 69 6F 6E 69 73 74 69 73 63 68 65 20 64 6F 65 ; tionistische doe
0000b060h: 6C 65 6E 20 0D 0A 20 20 20 20 20 20 42 2E 20 20 ; len ..      B.  
0000b070h: 73 74 65 6C 74 20 72 65 89 6C 65 20 64 6F 65 6C ; stelt re‰le doel
0000b080h: 65 6E 0D 0A 00 C0 0E 00 00 00 00 00 00 4C 00 0D ; en...À.......L..
0000b090h: 0A 20 20 20 20 20 20 41 2E 20 20 65 65 6E 20 75 ; .      A.  een u
0000b0a0h: 69 74 73 74 65 6B 65 6E 64 20 74 65 61 6D 6C 65 ; itstekend teamle
0000b0b0h: 69 64 65 72 0D 0A 20 20 20 20 20 20 42 2E 20 20 ; ider..      B.  
0000b0c0h: 77 69 6C 20 73 74 65 65 64 73 20 64 65 20 62 65 ; wil steeds de be
0000b0d0h: 73 74 65 20 7A 69 6A 6E 20 0D 0A 00 00 0F 00 00 ; ste zijn .......
0000b0e0h: 00 00 00 00 4C 00 0D 0A 20 20 20 20 20 20 41 2E ; ....L...      A.
0000b0f0h: 20 20 68 61 6E 64 65 6C 74 20 7A 65 6C 66 76 65 ;   handelt zelfve
0000b100h: 72 7A 65 6B 65 72 64 0D 0A 20 20 20 20 20 20 42 ; rzekerd..      B
0000b110h: 2E 20 20 74 6F 65 67 61 6E 6B 65 6C 69 6A 6B 20 ; .  toegankelijk 
0000b120h: 67 65 76 6F 65 6C 73 6C 65 76 65 6E 20 20 0D 0A ; gevoelsleven  ..
0000b130h: 0D 0A 00 40 0F 00 00 00 00 00 00 5B 00 0D 0A 20 ; ...@.......[... 
0000b140h: 20 20 20 20 20 41 2E 20 20 77 69 6C 20 7A 69 63 ;      A.  wil zic
0000b150h: 68 7A 65 6C 66 20 74 65 20 76 65 65 6C 20 62 65 ; hzelf te veel be
0000b160h: 77 69 6A 7A 65 6E 0D 0A 20 20 20 20 20 20 42 2E ; wijzen..      B.
0000b170h: 20 20 6F 6E 74 73 70 61 6E 6E 65 6E 2C 20 73 74 ;   ontspannen, st
0000b180h: 61 62 69 65 6C 65 20 70 65 72 73 6F 6F 6E 6C 69 ; abiele persoonli
0000b190h: 6A 6B 68 65 69 64 0D 0A 00 80 0F 00 00 00 00 00 ; jkheid...€......
0000b1a0h: 00 90 00 0D 0A 20 20 20 20 20 20 41 2E 20 20 67 ; ....      A.  g
0000b1b0h: 65 6D 6F 74 69 76 65 65 72 64 20 64 6F 6F 72 20 ; emotiveerd door 
0000b1c0h: 7A 27 6E 20 62 65 6C 61 6E 67 73 74 65 6C 6C 69 ; z'n belangstelli
0000b1d0h: 6E 67 0D 0A 20 20 20 20 20 20 42 2E 20 20 67 65 ; ng..      B.  ge
0000b1e0h: 64 72 65 76 65 6E 20 64 6F 6F 72 20 67 65 77 65 ; dreven door gewe
0000b1f0h: 74 65 6E 3A 20 22 75 20 7A 75 6C 74 22 20 65 6E ; ten: "u zult" en
0000b200h: 20 20 20 20 20 20 20 20 20 20 20 20 0D 0A 20 20 ;             ..  
0000b210h: 20 20 20 20 20 20 20 22 75 20 7A 75 6C 74 20 6E ;        "u zult n
0000b220h: 69 65 74 22 20 20 20 20 20 20 20 20 20 20 20 20 ; iet"            
0000b230h: 20 0D 0A 00 C0 0F 00 00 00 00 00 00 5C 00 0D 0A ;  ...À.......\...
0000b240h: 20 20 20 20 20 20 41 2E 20 20 69 6E 66 6F 72 6D ;       A.  inform
0000b250h: 65 65 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 ; eel             
0000b260h: 20 20 20 0D 0A 20 20 20 20 20 20 42 2E 20 20 70 ;    ..      B.  p
0000b270h: 65 72 66 65 63 74 69 6F 6E 69 73 74 20 20 20 20 ; erfectionist    
0000b280h: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;                 
0000b290h: 20 20 20 20 20 20 20 20 0D 0A 00 00 10 00 00 00 ;         ........
0000b2a0h: 00 00 00 76 00 0D 0A 20 20 20 20 20 20 41 2E 20 ; ...v...      A. 
0000b2b0h: 20 61 6C 74 69 6A 64 20 62 65 72 65 69 64 20 6F ;  altijd bereid o
0000b2c0h: 6D 20 61 6E 64 65 72 65 6E 20 74 65 20 68 65 6C ; m anderen te hel
0000b2d0h: 70 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 0D ; pen            .
0000b2e0h: 0A 20 20 20 20 20 20 42 2E 20 20 67 65 8B 6E 74 ; .      B.  ge‹nt
0000b2f0h: 65 72 65 73 73 65 65 72 64 20 69 6E 20 66 65 69 ; eresseerd in fei
0000b300h: 74 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 ; ten             
0000b310h: 20 20 20 20 20 20 20 20 20 0D 0A 00 40 10 00 00 ;          ...@...
0000b320h: 00 00 00 00 38 00 0D 0A 20 20 20 20 20 20 41 2E ; ....8...      A.

[ Voor 3% gewijzigd door GraveR op 17-07-2003 22:23 ]

[Dennis013]

Gaaf al die hulp!!

De mails zijn verstuurd

[RobIII]

code:

                         H U M A N   F A C T O R S
                         ADVANCED TECHNOLOGY GROUP




               ÍÍ         ÍÍÍÍÍÍÍÄ     ÍÍÍÍÍÍÍÍÍ    ÍÍ      ÍÍ
              ÍÍÍÍ        ÍÍ     ÍÍ    ÍÍ            ÍÍ    ÍÍ
             ÍÍ  ÍÍ       ÍÍ    ÄÍÍ    ÍÍ             ÍÍ  ÍÍ
            ÍÍ    ÍÍ      ÍÍÍÍÍÍÍ      ÍÍÍÍÍÍÍ         ÍÍÍÍ
           ÍÍÍÍÍÍÍÍÍÍ     ÍÍ           ÍÍ             ÍÍ  ÍÍ
          ÍÍ        ÍÍ    ÍÍ           ÍÍ            ÍÍ    ÍÍ
         ÍÍ          ÍÍ   ÍÍ           ÍÍÍÍÍÍÍÍÍ    ÍÍ      ÍÍ

...en ook een aanrader: THOUGHTS.DAT

[ Voor 4% gewijzigd door RobIII op 17-07-2003 22:26 ]

[Dennis013]

Dat zijn de teksten die de gebruiker te zien krijgt als die het programma afsluit.... Soort van fortune cookie zeg maar...

[RobIII]

Heb ik ook op mijn site staan, een QOTD (Quote of the Day). Iedere dag een andere. Ik kende het principe dus, alleen stonden hier wel leuke in

[Dennis013]

bof jij weer......
Toevallig ook al de logica kunnen vinden?

[djluc]

3 antw. per vraag mogelijk
1. niet van toepassing
2. redelijk van toepassing
3. altijd van toepassing

Heb je ook al wat standaardantwoorden getest zoals de nummer die je nu er voor zet bij elkaar optellen. Als je overal dus niet van toepassing zet krijg je 124 er uit?

[Verwijderd]

[knip]rotzooi over APL[/knip]

//edit
update

hmm.. bij nader inzien lijkt het toch clipper te zijn.. hierop kom ik, doordat in de executable bv. zaken als 'PLINK86' voorkomen, en dat is een compiler linker voor clipper..

weet je zeker dat dit de sources zijn? heb je nergens .prg bestandjes?lezen

//edit
hmm, aangezien ik geen clipper heb, en die 'source code' bestanden niet te lezen zijn, heb ik eens een clipper decompiler op die .exe losgelaten. Geen effect. Daarna met een compressie-check tool gekeken of het een packed exe was oid (pklite, arj, exepack, enz), dat was het niet. Ook een online clipper decompiler zag er geen brood in.

[ Voor 200% gewijzigd door Verwijderd op 18-07-2003 01:06 ]

[Glimi]

Hoewel het topic lekker loopt, moet ik hem toch dicht gaan gooien. In de FAQ staat beschreven( zie Verwijderd in "MS-DOS TEST naar een ASP site" voor de quote ) waarom.
En nee, helaas is het in jouw geval ook niet legaal, ook al heb je een licence voor het programma. Een licence is nl. een gebruikers licence en niet toestemming om de sourcecode van de rechtmatige eigenaar te achterhalen dmv reverse engineering.

Sorry, maar als ik dit ga toestaan, staan er hier binnen no time vragen of we een of andere game kunnen decompileren en cracken en daar willen we beslist niet naar toe.