View Single Post
  #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)