XProfan

English

Thomas
Zielinski

I Games straight something with the mdx5.pcu rum and bibn there on a kommische thing punched The I I do not explain can. If I subesquent code ausführe then attend by me 4 different Prüfsummen, though it still really only 2 different twice his dürften:
Compile Mark Separation

 $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>

as Results I get in this Order:
180f499...
75b9c3f...
c5c28ee...
1655ecc...
really should still the first and second as well as the dritte and fourth same his. How comes the now zustande? into Stringvariablen standing still the same How with the direct Übergabe. or What is there differently?

And if I once with MD5 be:
Compile Mark Separation

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

WhileNot e% = 1

    to determine the Zeichens

    If z%[7] < 122

        z%[7] = z%[7] + 1 Why mekert the really inc z%[7] on? is still thick

    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 no Result for  + orig$

                                EndIf

                            EndIf

                        EndIf

                    EndIf

                EndIf

            EndIf

        EndIf

    EndIf

    insert the Zeichens in whom 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 to determine
    code$ = mdx5.build(aktualtext$)
    and equalize with the sought

    If orig$ = code$

        Print code$ +  standing for  + aktualtext$
        e% = 1

    Else

        Print code$ +  |  + aktualtext$ here The spending the incorrect MD5

    EndIf

EndWhile

Print Button to that terminate pressing!
WaitInput
End

this code gives me always The same expenses as Prüfsumme. certainly only one Dropsfehler but I seh it not.
Greeting Thomas
(and blow someone uses too only a row XPSE or power comments over Program Nr. 2 [something like can years last and is unpraktikabel - I wisely])

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

04/15/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Paul
Glatz

@Thomas at oberen code beget You with whom Strings 2times the Proüfsumme means 1times the Prüfsumme from the Prüfsumme
Compile Mark Separation

 $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>