首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 经典问答
    3. 发新帖
[求助]使用vb asp.net在线生成armadillo注册码不能正确使用
发表于: 2009-3-15 14:07 3498

[求助]使用vb asp.net在线生成armadillo注册码不能正确使用

anpig 活跃值
2009-3-15 14:07
3498
新使用vb asp.net 来在线生成armadillo注册码,能够生成注册码,可是注册码不正确不能正常注册.
有朋友研究过这问题吗?能够帮解答下.
另外,现在在本机调试,codegen.dll放在system32下,也想问下,如果在虚拟主机,不让放system32目录下时,在vb asp.net中要怎么调用非托管的dll.
用armadillo生成的注册码是11组,用asp.net生成却是12组.
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="System.Runtime.InteropServices" %>

<script runat="server">
    Public Declare Function VBCreateCodeShort3 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardwareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
    Public Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long

    Sub submit(ByVal sender As Object, ByVal e As EventArgs)
        Dim serial As String
        Dim serialint As Long
        Dim nameStr As String
        
        nameStr = "xxxx"
        serial = txt1.Text
        
        serialint = HexToInt(serial)
        lbl0.Text = txt1.Text
      
        lbl1.Text = VBCreateCodeShort3(10, "", "Template", serialint, 0, 0, 0, 0, 0)
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head><title></title></head>
<body>

<form id="Form1" runat="server">
Your name: <asp:TextBox id="txt1" runat="server" />
<asp:Button ID="Button1" OnClick="submit" Text="Submit" runat="server" />
    <p><asp:Label ID="lbl0" runat="server" Text="Label"></asp:Label></p>
    <p><asp:Label id="lbl1" runat="server" /></p>
<p><asp:Label ID="lbl2" runat="server" /></p>
</form>

</body>
</html>

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

收藏
免费 ・0
支持
分享
最新回复 (3)
anpig
雪    币： 201
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
2 楼
新使用vb asp.net 来在线生成armadillo注册码,能够生成注册码,可是注册码不正确不能正常注册.
有朋友研究过这问题吗?能够帮解答下.
另外,现在在本机调试,codegen.dll放在system32下,也想问下,如果在虚拟主机,不让放system32目录下时,在vb asp.net中要怎么调用非托管的dll.
用armadillo生成的注册码是11组,用asp.net生成却是12组.
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="System.Runtime.InteropServices" %>

<script runat="server">
    Public Declare Function VBCreateCodeShort3 Lib "CodeGen.DLL" (ByVal Level As Long, ByVal Name$, ByVal EncryptionTemplate$, ByVal HardwareID As Long, ByVal OtherInfo1 As Integer, ByVal OtherInfo2 As Integer, ByVal OtherInfo3 As Integer, ByVal OtherInfo4 As Integer, ByVal OtherInfo5 As Integer) As String
    Public Declare Function HexToInt Lib "CodeGen.DLL" (ByVal HexString As String) As Long

    Sub submit(ByVal sender As Object, ByVal e As EventArgs)
        Dim serial As String
        Dim serialint As Long
        Dim nameStr As String
        
        nameStr = "xxxx"
        serial = txt1.Text
        
        serialint = HexToInt(serial)
        lbl0.Text = txt1.Text
       
        lbl1.Text = VBCreateCodeShort3(10, "", "Template", serialint, 0, 0, 0, 0, 0)
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head><title></title></head>
<body>

<form id="Form1" runat="server">
Your name: <asp:TextBox id="txt1" runat="server" />
<asp:Button ID="Button1" OnClick="submit" Text="Submit" runat="server" />
    <p><asp:Label ID="lbl0" runat="server" Text="Label"></asp:Label></p>
    <p><asp:Label id="lbl1" runat="server" /></p>
<p><asp:Label ID="lbl2" runat="server" /></p>
</form>

</body>
</html>
2009-3-15 14:08
0
anpig
雪    币： 201
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
3 楼
1.accept v3key onely
2.level 10
2009-3-15 16:55
0
书呆彭
雪    币： 2110
活跃值： (21)
能力值： (RANK：260 )
在线值：
发帖
回帖
粉丝
私信
4 楼
不是这个领域的，不太懂VB，以及ASP.NET。

首先验证你的算法正确的，写一个本机程序，编译成EXE，试一下。

如果本地程序执行正确，但服务器程序不正确，那只能说是微软.NET平台的问题了。

如果本机程序都不正确，那就是你的算法根本就不对，怎么可能有正确的结果呢？
2009-3-15 17:18
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//