软件反编译代码后，看到注册部分，注册机怎么写

IF gs_dog = "0" THEN
        gb_regok = FALSE
        cmpid = getharddrivecomputerid()
        regcode = sqrt(abs(cmpid * 83 + 137))
        s_regcode = string(regcode,"")
        FOR i = 1 TO len(s_regcode)
                IF mid(s_regcode,i,1) = "." THEN
                        s_regend = s_regend + "8"
                ELSE
                        s_regend = s_regend + mid(s_regcode,i,1)
                END IF
        NEXT
        os_regcode = profilestring(gs_buffer + "\soft.ini","yyzc","regcode","")
        IF os_regcode <> s_regend THEN
                messagebox("","注册码错误，请联系注册事宜")
                gb_regok = FALSE
        ELSE
                gb_regok = TRUE
        END IF
算法很清楚了，写了个不行，大家看看班我弄下

[课程]FART 脱壳王！加量不加价！FART作者讲授！