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