XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Prüfsumme von Dateien bestimmen
##############################################
Programm-Module vor Aendereungen schützen
bzw. auf Änderungen in den Modulen reagieren.
##############################################
DEF MapFileAndCheckSum(3) ! Imagehlp,MapFileAndCheckSumA
Declare File$,HeadSum&,CheckSum&
Let File$ = test.txt
MapFileAndCheckSum(Addr(File$),addr(Headsum&),addr(Checksum&))

If Checksum& <> 26821

    @Messagebox(ZUVIEL GEHACKT !,HACKER-ANGRIFF...,16)

else

    hier gehts dann weiter
    Print Alles in Butter

endif

print checksum&
waitinput
end