Change File Hash (Checksum)

;~ Coded by Juno_okyo

Func _ChangeFileHash($file)
    Local $fp = FileOpen($file, 16)
    Local $data = FileRead($fp)
    FileClose($fp)

    $fp = FileOpen(Random(1000, 9999, 1) & '.exe', 2 + 16)
    FileWrite($fp, $data & '00')
    FileClose($fp)
EndFunc   ;==>_ChangeFileHash