XProfan

¡Hola Georg,

Yo lo verstehe es por lo tanto de Exen oder DLL una Signatur a erzeugen,
más no de otro Archivos.
MSDN

This function is used by any application that creates or modifies a executable image. Checksums are required for kernel-mode drivers and some system DLL.

Was genau möchtest Usted letztendlich erzielen?

Georg
Teles

Hi IF,

sí korrekt, lo es son DLL y EXE, el Checksumme se bajo Anderem en el Encabezamiento el DLL / EXE "mitgeschleppt" y antes el Ausführen se el Checksumme gebildet y el verglichen, lo se also geprüft, si el Programa manipuliert wurde o si überhaupt kompatibel es al jeweiligen PC, lo wäre sí unschön si beim Ausführen des Programms para Choque des PC kommen sería neech

...

früher tener Soy un Contribución hier gelesen, lo ging por lo tanto esta Función a nutzen, en propio Programas oder Archivos a schützen, ändert uno wenigstens 1 Byte, así ändert el komplette Summe, y esta "Summe" es el Yo mi, esta Función puede ser scheinbar para cada Dateityp uso, sólo se esta Summe no en el Expediente hinterlegt beispiel TXT, uno kann profano dijo el Summe de beliebigen Archivos forma.

Was Yo erzielen möchte erkläre Yo otra vez kurz: Como el CheckSum Función zwangsläufig una Pfad a Expediente benötigt möchte Yo mittels el eigenen Función el gleiche Ergebnis erziehen, a una Bereichs anstatt el Expediente.

El Función se eben intern en el Programa el Checksumme forma puede sin una Expediente a escribir ... Yo merke gerade, dass lo en größeren Archivos bastante largo dauert a Yo el Summe habe ... naja egal, Yo antes una Archivierer a escribir, y esta Función voluntad Yo para muy kleine Bereiche uso, y zwar para el Contraseña

Yo ya 2 Archivierer geschrieben, uno con Passwortschutz aber el speichert él desafortunadamente con, y yo voluntad esta Función irgendwie anstatt des Passwortes nutzen

...

Yo merke sí todavía qué, Yo costumbre el Función así sí garnicht como Checksum, lo funktioniert sí ya Yo lo voluntad, Yo teste veces si él correcto kodiert y dekodiert ...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Tal vez wäre qué Findus hier Nuevo ha hilfreich(él): [...]

Georg
Teles

Schöner Code, desafortunadamente arbeite I, con XProfan 10 y "encode64" hay como no

naja el Ejemplo zeigt Textverschlüsselung por Umsortieren, el voluntad Yo sí vermeiden, passt ya, Yo tüftel veces más ...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Tomar doch FreeProfan: [...]

Georg
Teles

Gracias IF, 64 Bit hay en efecto Juhuuuu

tener ahora el Solución ...
Mi Función macht genau el, qué MapFileAndCheckSum auch

allerdings muy langsam, para 1 MByte braucht el Programa 22,875 Sekunden, aber el es egal, Yo wende el sólo para kleine Bereiche a

Anscheinend rechnet el Función el Rest el Summe uno Expediente WORD para WORD zusammen...
BZW como Yo verstanden habe, sobald el Summe des ersten WORD con el zweiten Max. erreicht oder größer es (65535), se lo abgezogen, danach se el Rest el restos con el nächsten WORD addiert, después de cada Summe se lo otra vez geprüft, si el Summe Max. erreicht oder größer es, en diesem Fall se el Valor otra vez abgezogen usw ...
Kompilieren Marca Separación

Proc cr2

    Parameters File$,fs&,fs#,p%,s%
    Clear fs&,p%,s%
    fs& = Filesize(file$)
    Dim fs#, fs&
    Clear fs#
    Assign #2,file$
    Openrw #2
    Blockread(#2,fs#,0,fs&)
    Close #2

    If fs& MOD 2 = 0

        s% = (fs&\2)-1

    ElseIf fs& MOD 2 = 1

        s% = (fs&\2)

    EndIf

    WhileLoop 0,s%

        p% = p%+word(fs#,&loop*2)

        If p% > 65534

            p% = (p%-65535)

        endif

    EndWhile

    p% = (p%+fs&)
    Dispose fs#
    Return p%

ENDPROC

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

21.03.2013 ▲

Dann sería Yo el Función (el Teil el rechnet) en un nProc packen -

el va entonces más rápido como el Blitz.

21.03.2013 ▲

Georg
Teles

¡Hola, Voy a veces hier el Thema auffrischen

tener veces para media Archivierer una Passwortsystem überlegt, funktioniert en etwa después de diesem Principio...

Wer Lust para Testen ha ^ ^ el Test schreibt sólo el Head meines Archivierers y Contraseña + abierto y Passwortabfrage ... lo se una Expediente creado asd.tew

Descargar

passworttest.zip	214 kB

Hochgeladen:	07.05.2013

Ladeanzahl:
		Descargar

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

07.05.2013 ▲

Yo bin no sicher, si el Contraseña sicher hinterlegt se.

Wenn Yo, el Bytewert uno individual Passwortzeichens en 1 erhöhe entonces
debería se en el Expediente no auch simplemente sólo 1 Bytewert en 1 erhöhen. So
debería el Contraseña incluso garnicht en el Expediente posición pero más una
Prüfsumme y sólo si Prüfsummen übereinstimmen entonces stimmen el
Passworte überein.

07.05.2013 ▲

Georg
Teles

Naja el es sí el Sache, dass el Passowrt garnicht con drin es

kannst veces el Expediente con Notepad abierto y después de el Contraseña suchen, como findest du nichts.

habe fast vergessen, una Leerzeichen debería uno no benutzen, el funktioniert entonces meistens no, Yo teste veces más ...

Editar: drin es auch sólo el Prüfsumme, allerdings es ellos con allen Anderen Parametern verknüpft sodass si uno intenta el Encabezamiento a manipulieren, se el Programa darauf auch reagieren, theoretisch tener Yo el ya überlegt

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

07.05.2013 ▲