Read EAN13 barcodes by whio

$h{$_}=$n++for'Xr\'\x00Lf34dl\x1b,^B!\x1cb\\x1d2FN9&zP\x05\x0enD\x11*vH\x09\x1aht\x17\x16'=~/./g;$r='(.{7})'x6;$/='';map{$%+=(-$_?$_>>=2:0)+$_*2*--$|for@_=($",$h{pack b6,pack C6,@_=map$h{pack b7,$_},/# #$r.{5}$r/},@_);$%=!print$%%10?ERROR:@_[1,0,2..7,0,8..13],'
'}<>

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page