S> Loader + HWID GEN SOURCE CODE

[Dreamer]

Its very simple. Its a loader that auto injects. Set up to inject to combat arms but you can change it. And its hwid protected. Which is why there is a hwid gen. If your stuck you can always contact me or interested at tonyrocksyourworld@live.com.

Im taking offers even though I sold a copy for $10 dollars already :P

YES IT LOOKS SIMPLE! Thats because your suppose to modify the gui by yourself. I just set out the inner coding.

[IMG]https://i1215.photobucke*****m/albums/cc510/killer66143/Planin.png[/IMG]

A MIDDLE MAN WILL BE USED IF POSSIBLE

[Fabolous]

Tellem what language you coded it in

[Dreamer]

Tellem what language you coded it in

@Fabolous
Its in vb .net

[Dreamer]

#Bump!
Still selling!

[Dreamer]

#Bump
Guys im still selling> Im taking any available offers!

[Dreamer]

#Bump Still For sale people.

[jdslashv2]

who would buy this fail loader? its actually very easy to make, matter of fact, all you need is the dll injection code thats EVERYWHERE and heres a hwid code

    Private LocalDisk As String = "C:"""
    Private HardDisk As String
    Private Mac As String
    Private Proc As String
    Public HWID As String
    Public Sub GetHardwareID()

        ' Set Hardriveisnt
        Dim disk As New ManagementObject("win32_logicaldisk.deviceid=""" & LocalDisk)
        disk.[Get]()
        HardDisk = disk("VolumeSerialNumber").ToString()
        ' Set Hardrive

        ' Set Mac

        Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = [String].Empty

        For Each mo As ManagementObject In moc
            If MACAddress = [String].Empty Then
                ' only return MAC Address from first card
                If CBool(mo("IPEnabled")) = True Then
                    MACAddress = mo("MacAddress").ToString()
                End If
            End If
        Next
        Mac = MACAddress.Replace(":", "")



        ' Set Mac

        ' Set Proc
        Dim cpuInfo As String = [String].Empty
        Dim temp As String = [String].Empty
        Dim wat As New ManagementClass("Win32_Processor")
        Dim mexican As ManagementObjectCollection = wat.GetInstances()
        For Each mf As ManagementObject In mexican
            If cpuInfo = [String].Empty Then
                cpuInfo = mf.Properties("ProcessorId").Value.ToString()
            End If
        Next
        Proc = cpuInfo
        ' Set Proc

        Dim hashit As String = [String].Empty
        Dim AE As New ASCIIEncoding()
        Dim shaM As SHA1 = New SHA1Managed()
        hashit = HardDisk & Proc & Mac
        Dim hashed As String = Convert.ToBase64String(shaM.ComputeHash(AE.GetBytes(hashit)))


        HWID = hashed
    End Sub

[Dreamer]

But for the people who is too lazy to start a project.