Hjelp til å forstå utregning i Perl-script.

[Cryptography]

Heisann.. Noen som kan hjelpe meg med å forstå hvordan selve utregningen i dette Perl-scriptet foregår?

 

sub toled {

my $page = shift;

my $str = shift;

 

# calculate checksum

my $checksum = 0x74;

for (0..length($str)-1) {

my $c = ord(substr($str,$_));

$checksum = $checksum ^ $c;

}

# construct basic "display this on page $page" message

my $ledcode = sprintf("<ID00><L1><P%s><FE><MA><WC><FE>%s%02X<E>",

uc($page), $str, $checksum);

# send to serial device /dev/ttyS0

open SERIAL, ">/dev/ttyS0";

print SERIAL $ledcode;

close SERIAL;

}

 

For eksempel har man kommet frem til at denne selve teksten i denne linjen her har generert checksumen 4B.

 

<ID00><L1><PA><FE><MA><WC><FE>Text message entered4B<E>

[mobents]

kan du være interessert i å få tilsendt programmet jeg har laget? (vise sangnavnet i winamp)?

[eier]

Eksklusiv eller:

http://en.wikipedia.org/wiki/Xor