[Keygenme 8 RCG] C# code Easy

[Pr0c3ss]

Hi bro ,

 

CODE : Pr0c3ss

 

language : C#

 

easy  keygenme plesa keygen ,

 

 

Keygenme 8 csharp.rar

[atom0s]

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

[GIV]

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

[Pr0c3ss]

@atom0s

 

@GIV

 

Thanks bro

Edited September 4, 2013 by Pr0c3ss

[LordCoder]

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