![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Te paso la que tengo yo hecha en vb.net a ver si te sirve o te da pistas.
Public Shared Function calculatecrc8(ByVal input As String) As String Dim crc8_table() As Byte = New Byte() {CByte(&H0), CByte(&H7), CByte(&HE), CByte(&H9), CByte(&H1C), CByte(&H1B), CByte(&H12), CByte(&H15), CByte(&H38), CByte(&H3F), CByte(&H36), CByte(&H31), CByte(&H24), CByte(&H23), CByte(&H2A), CByte(&H2D), CByte(&H70), CByte(&H77), CByte(&H7E), CByte(&H79), CByte(&H6C), CByte(&H6B), CByte(&H62), CByte(&H65), CByte(&H48), CByte(&H4F), CByte(&H46), CByte(&H41), CByte(&H54), CByte(&H53), CByte(&H5A), CByte(&H5D), CByte(&HE0), CByte(&HE7), CByte(&HEE), CByte(&HE9), CByte(&HFC), CByte(&HFB), CByte(&HF2), CByte(&HF5), CByte(&HD8), CByte(&HDF), CByte(&HD6), CByte(&HD1), CByte(&HC4), CByte(&HC3), CByte(&HCA), CByte(&HCD), CByte(&H90), CByte(&H97), CByte(&H9E), CByte(&H99), CByte(&H8C), CByte(&H8B), CByte(&H82), CByte(&H85), CByte(&HA8), CByte(&HAF), CByte(&HA6), CByte(&HA1), CByte(&HB4), CByte(&HB3), CByte(&HBA), CByte(&HBD), CByte(&HC7), CByte(&HC0), CByte(&HC9), CByte(&HCE), CByte(&HDB), CByte(&HDC), CByte(&HD5), CByte(&HD2), CByte(&HFF), CByte(&HF8), CByte(&HF1), CByte(&HF6), CByte(&HE3), CByte(&HE4), CByte(&HED), CByte(&HEA), CByte(&HB7), CByte(&HB0), CByte(&HB9), CByte(&HBE), CByte(&HAB), CByte(&HAC), CByte(&HA5), CByte(&HA2), CByte(&H8F), CByte(&H88), CByte(&H81), CByte(&H86), CByte(&H93), CByte(&H94), CByte(&H9D), CByte(&H9A), CByte(&H27), CByte(&H20), CByte(&H29), CByte(&H2E), CByte(&H3B), CByte(&H3C), CByte(&H35), CByte(&H32), CByte(&H1F), CByte(&H18), CByte(&H11), CByte(&H16), CByte(&H3), CByte(&H4), CByte(&HD), CByte(&HA), CByte(&H57), CByte(&H50), CByte(&H59), CByte(&H5E), CByte(&H4B), CByte(&H4C), CByte(&H45), CByte(&H42), CByte(&H6F), CByte(&H68), CByte(&H61), CByte(&H66), CByte(&H73), CByte(&H74), CByte(&H7D), CByte(&H7A), CByte(&H89), CByte(&H8E), CByte(&H87), CByte(&H80), CByte(&H95), CByte(&H92), CByte(&H9B), CByte(&H9C), CByte(&HB1), CByte(&HB6), CByte(&HBF), CByte(&HB8), CByte(&HAD), CByte(&HAA), CByte(&HA3), CByte(&HA4), CByte(&HF9), CByte(&HFE), CByte(&HF7), CByte(&HF0), CByte(&HE5), CByte(&HE2), CByte(&HEB), CByte(&HEC), CByte(&HC1), CByte(&HC6), CByte(&HCF), CByte(&HC8), CByte(&HDD), CByte(&HDA), CByte(&HD3), CByte(&HD4), CByte(&H69), CByte(&H6E), CByte(&H67), CByte(&H60), CByte(&H75), CByte(&H72), CByte(&H7B), CByte(&H7C), CByte(&H51), CByte(&H56), CByte(&H5F), CByte(&H58), CByte(&H4D), CByte(&H4A), CByte(&H43), CByte(&H44), CByte(&H19), CByte(&H1E), CByte(&H17), CByte(&H10), CByte(&H5), CByte(&H2), CByte(&HB), CByte(&HC), CByte(&H21), CByte(&H26), CByte(&H2F), CByte(&H28), CByte(&H3D), CByte(&H3A), CByte(&H33), CByte(&H34), CByte(&H4E), CByte(&H49), CByte(&H40), CByte(&H47), CByte(&H52), CByte(&H55), CByte(&H5C), CByte(&H5B), CByte(&H76), CByte(&H71), CByte(&H78), CByte(&H7F), CByte(&H6A), CByte(&H6D), CByte(&H64), CByte(&H63), CByte(&H3E), CByte(&H39), CByte(&H30), CByte(&H37), CByte(&H22), CByte(&H25), CByte(&H2C), CByte(&H2B), CByte(&H6), CByte(&H1), CByte(&H8), CByte(&HF), CByte(&H1A), CByte(&H1D), CByte(&H14), CByte(&H13), CByte(&HAE), CByte(&HA9), CByte(&HA0), CByte(&HA7), CByte(&HB2), CByte(&HB5), CByte(&HBC), CByte(&HBB), CByte(&H96), CByte(&H91), CByte(&H98), CByte(&H9F), CByte(&H8A), CByte(&H8D), CByte(&H84), CByte(&H83), CByte(&HDE), CByte(&HD9), CByte(&HD0), CByte(&HD7), CByte(&HC2), CByte(&HC5), CByte(&HCC), CByte(&HCB), CByte(&HE6), CByte(&HE1), CByte(&HE8), CByte(&HEF), CByte(&HFA), CByte(&HFD), CByte(&HF4), CByte(&HF3)} Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(input) Dim len As Integer = data.Length Dim crc As Byte = 0 For i As Integer = 0 To len - 1 crc = crc8_table((crc Xor data(i)) And 255) Next i Return String.Format("{0 ![]() End Function |
#2
|
|||
|
|||
Y la función en java de las dipus, que yo a partir de esa hice la de vb.net
10. 3. ERANSKINA – CRC EGIAZTATZEKO ALGORITMOA / 10. ANEXO 3 – ALGORITMO CRC DE COMPROBACIÓN package net.ticketbai; import java.io.UnsupportedEncodingException; public class CRC8{ private static final String UTF_8 = “UTF-8”; // CRC-8, // Poly = x^8 + x^2 + x^1 + x^0 // Init = 0 // RefIn = false // RefOut = false // XorOut = 0 private static final byte[] crc8_table = new byte[] { (byte) 0x00, (byte) 0x07, (byte) 0x0E, (byte) 0x09, (byte) 0x1C, (byte) 0x1B, (byte) 0x12, (byte) 0x15, (byte) 0x38, (byte) 0x3F, (byte) 0x36, (byte) 0x31, (byte) 0x24, (byte) 0x23, (byte) 0x2A, (byte) 0x2D, (byte) 0x70, (byte) 0x77, (byte) 0x7E, (byte) 0x79, (byte) 0x6C, (byte) 0x6B, (byte) 0x62, (byte) 0x65, (byte) 0x48, (byte) 0x4F, (byte) 0x46, (byte) 0x41, (byte) 0x54, (byte) 0x53, (byte) 0x5A, (byte) 0x5D, (byte) 0xE0, (byte) 0xE7, (byte) 0xEE, (byte) 0xE9, (byte) 0xFC, (byte) 0xFB, (byte) 0xF2, (byte) 0xF5, (byte) 0xD8, (byte) 0xDF, (byte) 0xD6, (byte) 0xD1, (byte) 0xC4, (byte) 0xC3, (byte) 0xCA, (byte) 0xCD, (byte) 0x90, (byte) 0x97, (byte) 0x9E, (byte) 0x99, (byte) 0x8C, (byte) 0x8B, (byte) 0x82, (byte) 0x85, (byte) 0xA8, (byte) 0xAF, (byte) 0xA6, (byte) 0xA1, (byte) 0xB4, (byte) 0xB3, (byte) 0xBA, (byte) 0xBD, (byte) 0xC7, (byte) 0xC0, (byte) 0xC9, (byte) 0xCE, (byte) 0xDB, (byte) 0xDC, (byte) 0xD5, (byte) 0xD2, (byte) 0xFF, (byte) 0xF8, (byte) 0xF1, (byte) 0xF6, (byte) 0xE3, (byte) 0xE4, (byte) 0xED, (byte) 0xEA, (byte) 0xB7, (byte) 0xB0, (byte) 0xB9, (byte) 0xBE, (byte) 0xAB, (byte) 0xAC, (byte) 0xA5, (byte) 0xA2, (byte) 0x8F, (byte) 0x88, (byte) 0x81, (byte) 0x86, (byte) 0x93, (byte) 0x94, (byte) 0x9D, (byte) 0x9A, (byte) 0x27, (byte) 0x20, (byte) 0x29, (byte) 0x2E, (byte) 0x3B, (byte) 0x3C, (byte) 0x35, (byte) 0x32, (byte) 0x1F, (byte) 0x18, (byte) 0x11, (byte) 0x16, (byte) 0x03, (byte) 0x04, (byte) 0x0D, (byte) 0x0A, (byte) 0x57, (byte) 0x50, (byte) 0x59, (byte) 0x5E, (byte) 0x4B, (byte) 0x4C, (byte) 0x45, (byte) 0x42, (byte) 0x6F, (byte) 0x68, (byte) 0x61, (byte) 0x66, (byte) 0x73, (byte) 0x74, (byte) 0x7D, (byte) 0x7A, (byte) 0x89, (byte) 0x8E, (byte) 0x87, (byte) 0x80, (byte) 0x95, (byte) 0x92, (byte) 0x9B, (byte) 0x9C, (byte) 0xB1, (byte) 0xB6, (byte) 0xBF, (byte) 0xB8, (byte) 0xAD, (byte) 0xAA, (byte) 0xA3, (byte) 0xA4, (byte) 0xF9, (byte) 0xFE, (byte) 0xF7, (byte) 0xF0, (byte) 0xE5, (byte) 0xE2, (byte) 0xEB, (byte) 0xEC, (byte) 0xC1, (byte) 0xC6, (byte) 0xCF, (byte) 0xC8, (byte) 0xDD, (byte) 0xDA, (byte) 0xD3, (byte) 0xD4, (byte) 0x69, (byte) 0x6E, (byte) 0x67, (byte) 0x60, (byte) 0x75, (byte) 0x72, (byte) 0x7B, (byte) 0x7C, (byte) 0x51, (byte) 0x56, (byte) 0x5F, (byte) 0x58, (byte) 0x4D, (byte) 0x4A, (byte) 0x43, (byte) 0x44, (byte) 0x19, (byte) 0x1E, (byte) 0x17, (byte) 0x10, (byte) 0x05, (byte) 0x02, (byte) 0x0B, (byte) 0x0C, (byte) 0x21, (byte) 0x26, (byte) 0x2F, (byte) 0x28, (byte) 0x3D, (byte) 0x3A, (byte) 0x33, (byte) 0x34, (byte) 0x4E, (byte) 0x49, (byte) 0x40, (byte) 0x47, (byte) 0x52, (byte) 0x55, (byte) 0x5C, (byte) 0x5B, (byte) 0x76, (byte) 0x71, (byte) 0x78, (byte) 0x7F, (byte) 0x6A, (byte) 0x6D, (byte) 0x64, (byte) 0x63, (byte) 0x3E, (byte) 0x39, (byte) 0x30, (byte) 0x37, (byte) 0x22, (byte) 0x25, (byte) 0x2C, (byte) 0x2B, (byte) 0x06, (byte) 0x01, (byte) 0x08, (byte) 0x0F, (byte) 0x1A, (byte) 0x1D, (byte) 0x14, (byte) 0x13, (byte) 0xAE, (byte) 0xA9, (byte) 0xA0, (byte) 0xA7, (byte) 0xB2, (byte) 0xB5, (byte) 0xBC, (byte) 0xBB, (byte) 0x96, (byte) 0x91, (byte) 0x98, (byte) 0x9F, (byte) 0x8A, (byte) 0x8D, (byte) 0x84, (byte) 0x83, (byte) 0xDE, (byte) 0xD9, (byte) 0xD0, (byte) 0xD7, (byte) 0xC2, (byte) 0xC5, (byte) 0xCC, (byte) 0xCB, (byte) 0xE6, (byte) 0xE1, (byte) 0xE8, (byte) 0xEF, (byte) 0xFA, (byte) 0xFD, (byte) 0xF4, (byte) 0xF3 }; /** *Calculate the CRC value with data from input string. *@param input input string *@return The calculated CRC value. Left padding with zeros. * @throws UnsupportedEncodingException */ public static String calculate(String input) throws UnsupportedEncodingException { byte[] data = input.getBytes(UTF_8); int len = data.length; byte crc = 0; for (int i = 0; i < len; i++) crc = crc8_table[(crc ^ data[i]) & 0xff]; return String.format(“%03d”, crc & 0xFFL); }} |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice | newtron | Internet | 3565 | Hace 6 Días 11:04:13 |
Como utilizar la ayuda del nuevo Sistema Operativo | gluglu | Humor | 3 | 24-09-2007 09:39:05 |
Aplicacion Agencia De Viajes | ArdiIIa | Varios | 9 | 20-01-2007 16:49:53 |
El Vasco Aguirre | Al González | La Taberna | 5 | 26-05-2006 09:22:28 |
Microsoft ha lanzado su nuevo sistema operativo | DarkByte | Humor | 0 | 25-01-2004 09:21:14 |
![]() |
|