XProfan

Italia

Thomas
Zielinski

Ich spiele gerade etwas mit der mdx5.pcu rum und bibn da auf eine kommische Sache gestoßen die ich mir nicht erklären kann. Wenn ich folgenden Code ausführe dann erscheinen bei mir 4 unterschiedliche Prüfsummen, obwohl es doch eigentlich nur 2 unterschiedliche doppelt sein dürften:
Kompilieren Markieren Separieren

 $U mdx5.pcu = mdx5.
var code$ = mdx5.build(herberta)
Print mdx5.build(code$)
Print mdx5.build(herberta)
code$ = mdx5.build(herbertc)
Print mdx5.build(code$)
Print mdx5.build(herbertc)
WaitInput
a>

Als Ergebnisse bekomme ich in dieser Reihenfolge:
180f499...
75b9c3f...
c5c28ee...
1655ecc...
Eigentlich sollten doch der erste und zweite sowie der dritte und vierte gleich sein. Wie kommt das nun zustande? In den Stringvariablen steht doch das gleiche wie bei der direkten Übergabe. Oder was ist da anders?

Und wenn ich einmal bei MD5 bin:
Kompilieren Markieren Separieren

Declare e%, code$, orig$, aktualtext$, z%[7]
 $U mdx5.pcu = mdx5.
cls
orig$ = e8dc4081b13434b45189a720b77b6818 =abcdefgh

WhileNot e% = 1

    bestimmen des Zeichens

    If z%[7] < 122

        z%[7] = z%[7] + 1 warum mekert der eigentlich inc z%[7] an? is doch doof

    Else

        z%[7] = 32

        If z%[6] < 122

            z%[6] = z%[6]+1

        Else

            z%[6] = 32

            If z%[5] < 122

                z%[5] = z%[5] + 1

            Else

                z%[5] = 32

                If z%[4] < 122

                    z%[4] = z%[4] + 1

                Else

                    z%[4] = 32

                    If z%[3] < 122

                        z%[3] = z%[3] + 1

                    Else

                        z%[3] = 32

                        If z%[2] < 122

                            z%[2] = z%[2] + 1

                        Else

                            z%[2] = 32

                            If z%[1] < 122

                                z%[1] = z%[1] + 1

                            Else

                                z%[1] = 32

                                If z%[0] < 122

                                    z%[0] = z%[0] + 1

                                Else

                                    e%=1
                                    Print Kein ergebnis per  + orig$

                                EndIf

                            EndIf

                        EndIf

                    EndIf

                EndIf

            EndIf

        EndIf

    EndIf

    einfügen des Zeichens in den Prüfstring
    aktualtext$ = Chr$(z%[0])+Chr$(z%[1])+Chr$(z%[2])+Chr$(z%[3])+Chr$(z%[4])+Chr$(z%[5])+Chr$(z%[6])+Chr$(z%[7])
    Prüfsumme bestimmen
    code$ = mdx5.build(aktualtext$)
    und abgleichen mit der gesuchten

    If orig$ = code$

        Print code$ +  steht per  + aktualtext$
        e% = 1

    Else

        Print code$ +  |  + aktualtext$ Hier die Ausgabe des Falschen MD5

    EndIf

EndWhile

Print Taste zum beenden drücken!
WaitInput
End

Dieser Code gibt mir immer die selben Ausgaben als Prüfsumme. Bestimmt nur ein Dropsfehler aber ich seh ihn nicht.
Saluto Thomas
(Und wehe jemand nutzt auch nur eine Zeile XPSE oder macht Kommentare circa Programm Nr. 2 [sowas kann Jahre dauern und ist unpraktikabel - ich weis])

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

15.04.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Paul
Glatz

@Thomas beim oberen Code erzeugst du bei den Strings 2mal die Proüfsumme also 1mal die Prüfsumme von der Prüfsumme
Kompilieren Markieren Separieren

 $U mdx5.pcu = mdx5.
var code$ = herberta
Print mdx5.build(code$)
Print mdx5.build(herberta)
code$ = herbertc
Print mdx5.build(code$)
Print mdx5.build(herbertc)
WaitInput
a>