Exetools  

Go Back   Exetools > General > Source Code

Notices

Reply
 
Thread Tools Display Modes
  #1  
Old 09-20-2016, 02:02
Jasi2169's Avatar
Jasi2169 Jasi2169 is offline
Family
 
Join Date: Sep 2015
Location: 127.0.0.1
Posts: 280
Rept. Given: 3
Rept. Rcvd 55 Times in 41 Posts
Thanks Given: 33
Thanks Rcvd at 433 Times in 173 Posts
Jasi2169 Reputation: 55
Comfy all products keygen source code VB.net

this was done year back pretty gross that time,i dont know it works or not now
here it is

Code:
Imports System.IO
Imports System
Imports System.Text
Imports Un4seen.BassMOD
Imports System.Security.Cryptography

Public Class Form1

    Shared Function GetHash(theInput As String) As String

        Using hasher As MD5 = MD5.Create()    ' create hash object

            ' Convert to byte array and get hash
            Dim dbytes As Byte() =
                 hasher.ComputeHash(Encoding.UTF8.GetBytes(theInput))

            ' sb to create string from bytes
            Dim sBuilder As New StringBuilder()

            ' convert byte data to hex string
            For n As Integer = 0 To dbytes.Length - 1
                sBuilder.Append(dbytes(n).ToString("X2"))
            Next n

            Return sBuilder.ToString()
        End Using

    End Function

    Shared Function convrt(theInput As String) As String

        Dim t As String = String.Empty
        Dim a As String = theInput
        For Each c As Char In a
            t &= AscW(c)
        Next

        Return t

    End Function

    Private Sub qwe_Click(sender As Object, e As EventArgs) Handles qwe.Click
        MessageBox.Show("Comfy Photo Recovery v4.3 Keygen" & vbCrLf & " Coded By Jasi2169" & vbCrLf & "  GFX By Popeyes ~ XU" & vbCrLf & "   Team URET © 2015", "About", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub asd_Click(sender As Object, e As EventArgs) Handles asd.Click

        Dim name As String = po.Text.ToUpper

        Dim final As String

        Dim prehash As String

        Dim hash As String

        Dim home As String = "HOME EDITION"

        Dim office As String = "OFFICE EDITION"

        Dim comm As String = "COMMERCIAL EDITION"

        Dim extra As String = "950376F0-2E94-443F-82D9-702C3197CF0D"

        ' FILE RECOVERY,PARTITION RECOVERY, PHOTO RECOVERY    // All Products Middle name

        Dim product As String = "COMFY PHOTO RECOVERY"

        If (name = String.Empty) Then
            MessageBox.Show(Me, "Name Cannot Be Empty..", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If

        If ComboBox1.Text = " Select Edition" Then
            MessageBox.Show(Me, "Select Edition To Generate License Key..", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        If ComboBox1.Text = "Home Edition" Then

            final = name + product + home + extra

            prehash = GetHash(final)

            hash = convrt(prehash)

            lk.Text = hash(1) + hash(3) + hash(5) + hash(7) + "-" + hash(9) + hash(11) + hash(13) + hash(15) + "-" + hash(17) + hash(19) + hash(21) + hash(23) + "-" + hash(25) + hash(27) + hash(29) + hash(31)

        End If

        If ComboBox1.Text = "Office Edition" Then

            final = name + product + office + extra

            prehash = GetHash(final)

            hash = convrt(prehash)

            lk.Text = hash(1) + hash(3) + hash(5) + hash(7) + "-" + hash(9) + hash(11) + hash(13) + hash(15) + "-" + hash(17) + hash(19) + hash(21) + hash(23) + "-" + hash(25) + hash(27) + hash(29) + hash(31)

           

        End If

        If ComboBox1.Text = "Commercial Edition" Then
            final = name + product + comm + extra

            prehash = GetHash(final)

            hash = convrt(prehash)

            lk.Text = hash(1) + hash(3) + hash(5) + hash(7) + "-" + hash(9) + hash(11) + hash(13) + hash(15) + "-" + hash(17) + hash(19) + hash(21) + hash(23) + "-" + hash(25) + hash(27) + hash(29) + hash(31)

        End If

    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        e.Handled = True
    End Sub

End Class
Reply With Quote
The Following 3 Users Say Thank You to Jasi2169 For This Useful Post:
niculaita (09-20-2016), ontryit (09-20-2016)
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On


Similar Threads
Thread Thread Starter Forum Replies Last Post
UseFull Keygen with Source Code gsaralji Source Code 21 10-31-2020 13:40
Winamp v5.0 Keygen Source Code [ASM] tK! Source Code 0 07-04-2014 03:40


All times are GMT +8. The time now is 16:04.


Always Your Best Friend: Aaron, JMI, ahmadmansoor, ZeNiX, chessgod101
( 1998 - 2024 )