目标软件：鼎鼎批量条码
下载地址：http://www.newhua.com/soft/26926.htm
小弟不是很会破解软件 ，目前只会用winhex破解 ，OllyDBG正在学习，目前需要用到这个条码软件，自己现学现卖N天了，还没有搞定。。。。
查看发现是.net 程序 ，用Reflector查看找到其注册码 计算方法，  但是看不懂 如何运算的 。A_0的传入输入数据应该是 5JVHM99W ，
请大虾帮忙分析下 ，运算完后是个什么值。。。。
计算方法转换成C#语言如下
   
public static string b(string A_0)
{
    string str = "";
    for (int i = 1; i < A_0.Length; i += 2)
    {
        char ch = A_0[i - 1];
        char ch2 = A_0[i];
        int num2 = (ch | ch2) % 0x100;
        str = str + ((char) num2);
    }
    int num3 = 0;
    int num4 = str.Length - 1;
    string str2 = "";
    while (num3 < num4)
    {
        int num5 = str[num3];
        int num6 = str[num4];
        str2 = str2 + Math.Abs((int) (((int) (((double) ((num5 * num6) >> 2)) % 17.33333)) - 3)).ToString();
        num3++;
        num4--;
    }
    return str2;
}

==================
VB语言如下

Public Shared Function b(ByVal A_0 As String) As String
    Dim str As String = ""
    Dim i As Integer = 1
    Do While (i < A_0.Length)
        Dim ch As Char = A_0.Chars((i - 1))
        Dim ch2 As Char = A_0.Chars(i)
        Dim num2 As Integer = ((ch Or ch2) Mod &H100)
        str = (str & DirectCast(num2, Char))
        i = (i + 2)
    Loop
    Dim num3 As Integer = 0
    Dim num4 As Integer = (str.Length - 1)
    Dim str2 As String = ""
    Do While (num3 < num4)
        Dim num5 As Integer = str.Chars(num3)
        Dim num6 As Integer = str.Chars(num4)
        str2 = (str2 & Math.Abs(CInt((CInt((CDbl(((num5 * num6) >> 2)) Mod 17.33333)) - 3))).ToString)
        num3 += 1
        num4 -= 1
    Loop
    Return str2
End Function
=======================================
小弟不胜感激

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课