Amigo: Yo uso esto, nserie:=Str(nSerialHD()) y luego la encripto. Este es mi codigo: Saludos, Antonio Function Chequea() Local Nserie,cEncriptado nserie:=Str(nSerialHD()) if !Uso_red((Memvar->c_empre ),97,.f.,,,) Tone(3000,1);Tone(4000,1);Tone(5000,1) MsgInfo("Error ESTE SISTEMA ES UNA COPIA") Re...