#1
|
||||
|
||||
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 |
|
|
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 |