la tua funzione
codice:
lunghezza=len(x) 
ean13 = mid (x,lunghezza-1,1)
va in crisi quando la lunghezza di x e' 1

cmq, fare questa cosa
codice:
lunghezza=len(x) 
ean13 = mid (x,lunghezza,1)
e fare quest'altra
codice:
ean13=right(x,1)
e' esattamente lo stesso. anzi, no, RIGHT e' piu' veloce...