[Perl] Verander executable onthefly

[Dragon]

Hallo,

ik wil graag een site maken met downloadbare bestanden waar een wachtwoord moet worden ingevuld (in het programma). Nu is het zo dat het wachtwoord in de executable staat en ik weet precies op de byte nauwkeurig waar het staat. Ik wil het dan on-the-fly laten veranderen met Perl zodra mensen het bestand downloaden. Het wachtwoord heeft altijd dezelfde lengte. Ik weet vrijwel zeker dat het mogelijk is maar hoe?

[Macros]

Executable inlezen, naar die byteoffset gaan, bytes overschrijven, file weer terugschrijven naar een tmp bestand?

[Dragon]

Ok het is gelukt hieronder de code

Perl:

#!/usr/bin/perl

print "Content-Type: text/html\n\n";

    $RECSIZE = 4; # size of record, in bytes
    $recno   = 80;  # which record to update
    open(FH, "+<FILENAME") || die "can't update somewhere: $!";
    binmode(FH);
    seek(FH, $recno, 0);
    print FH "wachtwoord";
    close FH;

print "Done";

close;