Evalúe una expresión registrada en un código QR 

Un código de barras QR con corrección de errores L puede guardar hasta 7089 dígitos, 4296 caracteres alfanuméricos o 2953 caracteres ASCII.

In[1]:=

X BarcodeRecognize[\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztklFuFEEMRGcQH1yDo8ARwgkSCX6REiSUc3BhAkIrb70qdxOWP7eUUa9d rnqezPuHr3df3hzH8fTu5XF3//3D4+P986e3Lz8+Pn/7/PCr9ePPnz3nefLn +fuwSH3VXKbsJQEM0g7SeX2sVeWRe8Ngg+ymNmKQlkhJVn1shB1MAOJD20G6 CVK1WtYts41uNh2kWyHZVpNOw7TIIN0EiTIC7ATRlgLqJX2QNpF4Es//eG6e QWK6PdTUixjyWxJ9SvmrM0iMlov4M7cW0/dgBdwuvYpB6pH6Fq3ST7lbB1sX frINUkKyznW8yuyFp2LbTe3bSAsOko3gIBmWGyVCmRXP4/o0uwySICWTxtxC 7mydVrCbDlKPRH2tWGbZSGAsnqW1i/N1DVIytw7SklC7hdVYE+Eh7SAtkUjI k9yI1Bctv00ZpB2kyta7UZOWEmdrZR34ugZpiSRTgsfcZd0mckFuMUg7SMRg 0VqlOBmkreWxqIOUkKygAb7U6WO7XF+61mqQlkhsCYbE9VMMtTyNc0oZJIsk rWQoAlu0rYQnqzF6kBKS8DRi3tPpPZf1QXoFEkfO62NRewcqLUbaaJASkszW Z4MhRXlyhKHMGqR9JMoEQwytg9XYRfqVE/kgJaTqL5A2RRg4SMj9rEHaR0qG NlcqAmnHU2WHZ5CSITUJjAKaHNvfkt06YQ+S2PY+7ErLLsLZBJDcBmmJVE1q YnVjov3ZzJKQhySD1CDJCFMos7lpQblwcalbw0GySIlElEzvZQmem4pykPaR qiaJZQWKWbRdmnBkkHaQiGd9SG7ZLHnVy9dlX8sgLZEuz6qUopjYxKbOIHuh fpCWSNKyMPVnihBmG8SftBqkJRJPYiZtIkkV8ZRn4hkki2Sdm0tvWPV0Jq19 P4O0j1S7NLfPZq8lmCWx/oOUfBIP/Xlsy+61P9W8okE6N444SMR5/T0Qg7l1 tpkapE0k/lt3WmQTDNFwxM6m0EFKH0Y9UhGfGlqf3IJWFDTbDdIOUgqq3Rph Z8lDQTOV3sAgvQLJUsmFX2BaStKFYfNbGqQeKXHarqA25jyD9C9IomE3AfRs cqRo/S38IFmkNGtRJZRIMkseaVnzQVoi/QSTPDDR "], {{0, 147}, {147, 0}}, {0, 1}, ColorFunction->GrayLevel], BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{147, 147}, PlotRange->{{0, 147}, {0, 147}}]\)]

Out[1]=

In[2]:=

X BarcodeRecognize[\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztklFuFEEMRGcQH1yDo8ARwgkSCX6REiSUc3BhAkIrb70qdxOWP7eUUa9d rnqezPuHr3df3hzH8fTu5XF3//3D4+P986e3Lz8+Pn/7/PCr9ePPnz3nefLn +fuwSH3VXKbsJQEM0g7SeX2sVeWRe8Ngg+ymNmKQlkhJVn1shB1MAOJD20G6 CVK1WtYts41uNh2kWyHZVpNOw7TIIN0EiTIC7ATRlgLqJX2QNpF4Es//eG6e QWK6PdTUixjyWxJ9SvmrM0iMlov4M7cW0/dgBdwuvYpB6pH6Fq3ST7lbB1sX frINUkKyznW8yuyFp2LbTe3bSAsOko3gIBmWGyVCmRXP4/o0uwySICWTxtxC 7mydVrCbDlKPRH2tWGbZSGAsnqW1i/N1DVIytw7SklC7hdVYE+Eh7SAtkUjI k9yI1Bctv00ZpB2kyta7UZOWEmdrZR34ugZpiSRTgsfcZd0mckFuMUg7SMRg 0VqlOBmkreWxqIOUkKygAb7U6WO7XF+61mqQlkhsCYbE9VMMtTyNc0oZJIsk rWQoAlu0rYQnqzF6kBKS8DRi3tPpPZf1QXoFEkfO62NRewcqLUbaaJASkszW Z4MhRXlyhKHMGqR9JMoEQwytg9XYRfqVE/kgJaTqL5A2RRg4SMj9rEHaR0qG NlcqAmnHU2WHZ5CSITUJjAKaHNvfkt06YQ+S2PY+7ErLLsLZBJDcBmmJVE1q YnVjov3ZzJKQhySD1CDJCFMos7lpQblwcalbw0GySIlElEzvZQmem4pykPaR qiaJZQWKWbRdmnBkkHaQiGd9SG7ZLHnVy9dlX8sgLZEuz6qUopjYxKbOIHuh fpCWSNKyMPVnihBmG8SftBqkJRJPYiZtIkkV8ZRn4hkki2Sdm0tvWPV0Jq19 P4O0j1S7NLfPZq8lmCWx/oOUfBIP/Xlsy+61P9W8okE6N444SMR5/T0Qg7l1 tpkapE0k/lt3WmQTDNFwxM6m0EFKH0Y9UhGfGlqf3IJWFDTbDdIOUgqq3Rph Z8lDQTOV3sAgvQLJUsmFX2BaStKFYfNbGqQeKXHarqA25jyD9C9IomE3AfRs cqRo/S38IFmkNGtRJZRIMkseaVnzQVoi/QSTPDDR "], {{0, 147}, {147, 0}}, {0, 1}, ColorFunction->GrayLevel], BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->Magnification[1], ImageSizeRaw->{147, 147}, PlotRange->{{0, 147}, {0, 147}}]\)]; ToExpression[%]

Out[2]=