常用校验算法(累加和、异或和)

1、异或和

  异或和就是对数据逐一异或计算(异或结果与下一个数据异或)

  下面是校验实例

local rdbuf = "FFFF28000000000000600001000D0000000000000000000000000000000000000000000000000000000096" local fast = string.sub(rdbuf, 5, string.len(rdbuf)-2) local last = string.sub(rdbuf, string.len(rdbuf)-1, string.len(rdbuf)) local num = bit.bxor(tonumber(string.sub(fast, 1, 2), 16), tonumber(string.sub(fast, 3, 4), 16)) --异或 local length = string.len(fast) - 1 for i = 5, length, 2 do num = bit.bxor(num, tonumber(string.sub(fast, i, i+1), 16)) end if num == tonumber(last, 16) then 校验成功 end

#include <stdio.h>
#include <string.h>

int main()
{
	char text[100];
	int i,j,key;
	printf("输入明文:");
    for(i=0; i<100; i++){
        text[i] = getchar();
        if(text[i] == '\n'){
            text[i] = '\0';
            break;
        }
    }
    printf("输入密钥:");
    scanf("%d",&key);
    printf("加密:");
    for(j=0;j<i;j++){
        text[j] = text[j] ^ key;
    }
    puts(text);
    printf("解密:");
    for(j=0;j<i;j++){
        text[j] = text[j] ^ key;
    }
    puts(text);
    return 0;
}

 

 

2、累加和

  累加和也是逐一累加,但是计算不进位,所以最终结果其实是累加结果求256的余数

  下面是计算实例

local cmd = 10
cmd = string.format("%02X",cmd) -- 02X 是为了保留两位,空位置0   例如(A是0A)
local fast = "18000000000000600001000200".. cmd .."00000000000000010006"
local length = #fast - 1  
local num = 0
for i = 1, length, 2 do
    num = num + tonumber(string.sub(fast, i, i+1), 16)  
end 
num = num % 256
num = string.format("%02X",num)
local instruction = "FFFF" .. fast .. num

print(instruction)

转载链接

  • 3
    点赞
  • 14
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: vb6.0是一种编程语言,对于十六进制和校验算法的实现,可以通过以下方式进行。 1. 十六进制转换: 在vb6.0中,可以使用Hex函数将十进制数转换为十六进制数。例如,将十进制数16转换为十六进制数,可以使用以下代码: hexValue = Hex(16) 在此示例中,hexValue的值将是10。 2. 校验算法校验算法用于验证数据的完整性,常用校验算法包括奇偶校验和循环冗余校验(CRC)。 a. 奇偶校验: 奇偶校验通过计算数据中1的数量来确定校验位。如果数据中的1的数量为偶数,则校验位设置为0;如果数据中的1的数量为奇数,则校验位设置为1。在vb6.0中,可以使用以下代码计算奇偶校验位: Function ParityCheck(Data As String) As Integer Dim count As Integer count = 0 For i = 1 To Len(Data) If Mid(Data, i, 1) = "1" Then count = count + 1 End If Next i If count Mod 2 = 0 Then ParityCheck = 0 Else ParityCheck = 1 End If End Function b. 循环冗余校验(CRC): 循环冗余校验是一种更复杂的校验算法,它通过多项式除法来计算校验位。在vb6.0中,可以使用CRC32Sync控件或自定义函数来实现CRC校验算法。例如,以下是使用CRC32Sync控件计算CRC校验的示例代码: Dim crc As New CRC32Sync Dim data As String data = "Test Data" crc.PutString data crc.Calculate Debug.Print crc.Result 以上代码将计算出字符串"Test Data"的CRC校验值,并通过Debug.Print语句打印出来。 ### 回答2: VB6.0是一种编程语言,也支持十六进制和校验算法的实现。在VB6.0中,十六进制指的是一种数制系统,使用16个数字(0-9以及A-F)表示数字0-15。而校验算法是运用在数据传输或者存储中,目的是检测数据传输中的错误或者完整性。 在VB6.0中,我们可以使用提供的函数和方法来实现十六进制和校验算法。要将十进制转换为十六进制,我们可以使用VB6.0中的Hex函数。例如,将十进制数15转换为十六进制:Hex(15),得到的结果是"F"。 而要计算校验码,可以使用一些常见的校验算法,例如校验和、循环冗余校验(CRC)等。以校验算法为例,在VB6.0中可以使用循环结构和位运算来实现。 以下是一个示例代码,演示了如何在VB6.0中实现校验算法: ``` Function CalculateChecksum(data As String) As Byte Dim checksum As Byte Dim i As Integer checksum = 0 For i = 1 To Len(data) checksum = checksum Xor Asc(Mid(data, i, 1)) Next i CalculateChecksum = checksum End Function ``` 这段代码定义了一个名为CalculateChecksum的函数,接受一个字符串参数data,并返回一个字节(Byte)类型的校验和结果。在函数中,我们通过循环遍历字符串的每一个字符,并使用Xor运算符对每个字符的ASCII码进行异或操作,最终得到校验和的值。 通过使用上述的函数和方法,我们可以在VB6.0中实现十六进制和校验算法,用于处理和验证数据。这些算法在数据传输或存储中具有重要的作用,可以帮助我们确保数据的完整性和准确性。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值