Hello,

I'm receiving a date (mm dd yy yy) via RS232 port sent by another device which looks like this:

02 22 20 22

I'd like to increment the year from 2022 to 2023 and send it back to the device.

The code in funny squares within Komodo should look like this:

+-----++-----++-----++-----+
| 0 0 || 0 0 || 0 0 || 0 0 |
| 0 2 || 2 2 || 2 0 || 2 3 |
+-----++-----++-----++-----+
[download]

The device accepts manually created (incremented) expiration data:

my $send="\x02\x22\x20\x23";
my $ob->($send);
[download]

These are the lines in my script:

my $received="02 22 20 22";

my($month,$day,$year1,$year2)=unpack("A2xA2xA2xA4",$received);

$year2++;

my $send=$month.$day.$year1.$year2;
$ob->write($send);
[download]

The received code on the other side is:

30 32 32 32 32 30 32 33

Which are the ASCII codes of the sent code.

I've tried to convert the code with pack and the closest I get is this:

$month=pack("c",$month); 
$day=pack("c",$day); 
$year1=pack("c",$year1); 
$year2=pack("c",$year2);
[download]

The other side receives the hex intrepretation of the sent codes:

02 16 14 17

It's the hexadecimal interpretation of the sent code. At this point I'm out of ideas.

I'll appreciate your help.