تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] بخصوص تشفير FoxLearn.License
#1
السلام عليكم
قمت بتفعيل ترخيص البرنامج ( تجريبي - مدى الحياة )


فورم توليد سيريال 
كود :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using FoxLearn.License;

namespace FoxLicensMemo
{
   public partial class frmGenerate : Form
   {
       public frmGenerate()
       {
           InitializeComponent();
       }


       const int ProductCode = 1;

       private void frmGenerate_Load(object sender, EventArgs e)
       {
           cboLicenseType.SelectedIndex = 0;
           //Get computer id, it's unique for each computer
           txtProductID.Text = "";
       }

       private void button1_Click(object sender, EventArgs e)
       {
           KeyManager km = new KeyManager(txtProductID.Text);
           KeyValuesClass kv;
           string productKey = string.Empty;
           if (cboLicenseType.SelectedIndex == 0)
           {
               kv = new KeyValuesClass()
               {
                   Type = LicenseType.FULL,
                   Header = Convert.ToByte(9),
                   Footer = Convert.ToByte(6),
                   ProductCode = (byte)ProductCode,//As order of your software
                   Edition = Edition.ENTERPRISE,
                   Version = 1
               };
               if (!km.GenerateKey(kv, ref productKey))//Generate full license key
                   txtProductKey.Text = "ERROR";
           }
           else
           {
               kv = new KeyValuesClass()
               {
                   Type = LicenseType.TRIAL,
                   Header = Convert.ToByte(9),
                   Footer = Convert.ToByte(6),
                   ProductCode = (byte)ProductCode,
                   Edition = Edition.ENTERPRISE,
                   Version = 1,
                   Expiration = DateTime.Now.Date.AddDays(Convert.ToInt32(txtExperience.Text))
               };
               if (!km.GenerateKey(kv, ref productKey))//Generate trial license key
                   txtProductKey.Text = "ERROR";
           }
           txtProductKey.Text = productKey;
       }

       private void txtProductKey_TextChanged(object sender, EventArgs e)
       {

       }
   }
}
وكود قبول الكود هذا هو
كود :
Dim km As KeyManager = New KeyManager(serial.Text)
       Dim productKey As String = 1

       If km.ValidKey(productKey) Then
           Dim kv As KeyValuesClass = New KeyValuesClass()

           If km.DisassembleKey(productKey, kv) Then
               Dim lic As LicenseInfo = New LicenseInfo()
               lic.ProductKey = productKey
               lic.FullName = "FoxLearn"

               If kv.Type = LicenseType.TRIAL Then
                   lic.Day = kv.Expiration.Day
                   lic.Month = kv.Expiration.Month
                   lic.Year = kv.Expiration.Year
               End If
               MessageBox.Show("You have been successfully registered.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Process.Start("First System.exe")
               End
           End If
       Else
           MessageBox.Show("Your product key is invalid.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
           End
       End If
       My.Settings.date_ex = Date.Now

       My.Settings.Save()
لماذا يظهر الخطا ولا يقبل السيريال
الرد }}}
تم الشكر بواسطة:
#2
هو نفس المشروع لديك
ايضا المشروع المرفق من طرفك
تظهر نفس الرسالة
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فائدة بخصوص التعامل مع علامات التنصيص مع {سؤال} justforit 4 245 02-11-25, 11:19 PM
آخر رد: justforit
  [VB.NET] استفسار بخصوص البحث في RichTextBox SerialPort dubai.eig 2 651 18-06-25, 11:09 AM
آخر رد: dubai.eig
  [VB.NET] مثال و مشكلة (تشفير نص) mmaalmesry 5 880 09-05-25, 08:05 AM
آخر رد: mmaalmesry
  [سؤال] SkinSoft VisualStyler.Net v2.4 طلب بخصوص ali.alfoly 6 760 24-12-24, 03:23 PM
آخر رد: عبد العزيز البسكري
  [سؤال] بخصوص حفظ my settings محمد العامر 8 640 12-11-24, 08:49 PM
آخر رد: محمد العامر
  [سؤال] بخصوص حفظ اعدادات المشروع في Settings محمد العامر 4 528 07-11-24, 05:34 AM
آخر رد: محمد العامر
  سؤال بخصوص القريد DOX.1 6 662 31-08-24, 06:24 PM
آخر رد: justforit
  [سؤال] بخصوص الفلترة كومبو بوكس في الفيجوال ستوديو؟ Mena Sabet 2 552 06-05-24, 02:22 AM
آخر رد: Mena Sabet
  سؤا بخصوص تجيمع كميات المواد المباعة في اليوم momani33 2 432 07-04-24, 11:02 PM
آخر رد: momani33
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 450 22-02-24, 12:09 PM
آخر رد: AHMED213

التنقل السريع :


يقوم بقرائة الموضوع: