Jump to content
Tuts 4 You

[Keygenme 8 RCG] C# code Easy


Pr0c3ss

Recommended Posts

Here's a quick keygen in C#:



 
        /// <summary>
        /// Generates serial on form load.
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void frmMain_Load(object sender, EventArgs e)
        {
            try
            {
                var mObj = new ManagementObject("Win32_logicaldisk='C:'");
                mObj.Get();
 
                var driveSerial = mObj.Properties["VolumeSerialNumber"].Value.ToString();
                var macAddress = "";
 
                var mObjCollection = new ManagementObjectSearcher("Select * From Win32_NetworkAdapter").Get();
                foreach (var m in mObjCollection)
                {
                    if (!string.IsNullOrEmpty((string)m["MACAddress"]))
                    {
                        macAddress = m["MACAddress"].ToString().Replace(":", "");
                    }
                }
 
                this.txtSerial.Text = "v105" + driveSerial + macAddress;
            }
            catch
            {
                this.txtSerial.Text = "Error obtaining serial..";
            }
        }

 

 

atom0s!Keygen.zip

  • Like 1
Link to comment

Keygen in VB .NET 2010



Imports System.Management
Imports Microsoft.VisualBasic.CompilerServices
Public Class frmKeygen Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click
txtSerial.Text = serinoal("c:")
Clipboard.SetText(serinoal("c:"))
End Sub
Public Function serinoal(ByVal surucu As String) As String
Dim str As String = "v105"
Dim obj2 As New ManagementObject(("Win32_logicaldisk='" & surucu & "'"))
obj2.Get()
Dim str2 As String = Conversions.ToString(obj2.Properties.Item("VolumeSerialNumber").Value)
Dim objects As ManagementObjectCollection = New ManagementObjectSearcher("Select * From Win32_NetworkAdapter").Get
Dim str3 As String = ""
Dim obj3 As ManagementObject
For Each obj3 In objects
If Not Operators.ConditionalCompareObjectEqual(obj3.Item("MACAddress"), "", False) Then
str3 = Strings.Replace(Conversions.ToString(obj3.Item("MACAddress")), ":", "", 1, -1, CompareMethod.Binary)
End If
Next
Return (str & str2 & str3)
End Function
End Class

Keygenme 8 RCG Keygen.rar

  • Like 1
Link to comment

public string serinoal(string surucu)

{

string str = "v105";

ManagementObject obj2 = new ManagementObject("Win32_logicaldisk='" + surucu + "'");

obj2.Get();

string str2 = Conversions.ToString(obj2.Properties["VolumeSerialNumber"].Value);

ManagementObjectCollection objects = new ManagementObjectSearcher("Select * From Win32_NetworkAdapter").Get();

string str3 = "";

foreach (ManagementObject obj3 in objects)

{

if (!Operators.ConditionalCompareObjectEqual(obj3["MACAddress"], "", false))

{

str3 = Strings.Replace(Conversions.ToString(obj3["MACAddress"]), ":", "", 1, -1, CompareMethod.Binary);

}

}

return (str + str2 + str3);

}

serial = serialnoa("c:")

Copy and paste keygenmes :D

  • Like 3
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...