Quantcast
Channel: Programming Forums
Viewing all articles
Browse latest Browse all 51036
↧

Can any one Help to find out key?

January 5, 2013, 7:51 am
$
0
0
i am vijay studding in mca, i got a project in to find out key from your personal machine id, i try from long time but i cant solve this. here is given code
Imports System
Imports System.IO
Imports System.Management
Imports System.Windows.Forms

Namespace SecurityTest
    Friend Class productkey
        ' Methods
        Public Shared Function [date](ByVal st As String) As Integer
            Try 
                Dim num As UInt64 = crypto.DecryptString(nconvert.toodec(st))
                Dim hashCode As Integer = productkey.genrate.GetHashCode
                If (hashCode < 0) Then
                    hashCode = (hashCode * -1)
                End If
                Return CInt((num - CULng((hashCode * &H5F5E100))))
            Catch exception As Exception
                log.store("default", "Errorinnproductkey2.cs", exception.Message)
                Return 0
            End Try
        End Function

        Public Shared Function genrate() As String
            Try 
                Dim driveLetter As String = Path.GetDirectoryName(Application.ExecutablePath).Substring(0, 1)
                Dim str2 As String = productkey.getkey(driveLetter, "PNPDeviceID")
                Dim str3 As String = productkey.getkey(driveLetter, "Caption")
                Dim str4 As String = productkey.getkey(driveLetter, "Size")
                If ((((str2 Is Nothing) OrElse (str2 = "")) AndAlso ((str3 Is Nothing) OrElse (str3 = ""))) AndAlso ((str4 Is Nothing) OrElse (str4 = ""))) Then
                    MessageBox.Show("Please Check Yours Installation..")
                    Return ""
                End If
                Dim hashCode As Integer = str2.GetHashCode
                Dim num2 As Integer = str3.GetHashCode
                Dim num3 As Integer = str4.GetHashCode
                If (hashCode < 0) Then
                    hashCode = (hashCode * -1)
                End If
                If (num2 < 0) Then
                    num2 = (num2 * -1)
                End If
                If (num3 < 0) Then
                    num3 = (num3 * -1)
                End If
                Dim str5 As String = nconvert.getcode(CULng(hashCode))
                Dim str6 As String = nconvert.getcode(CULng(num2))
                Dim str7 As String = nconvert.getcode(CULng(num3))
                Return String.Concat(New String() { str5, "-", str6, "-", str7 })
            Catch exception As Exception
                log.store("default", "Errorinnproductkey3.cs", exception.Message)
                Return ""
            End Try
        End Function

        Public Shared Function getkey(ByVal driveLetter As String, ByVal typ As String) As String
            Try 
                productkey.type = typ
                productkey._driveLetter = driveLetter.ToUpper
                If Not productkey._driveLetter.Contains(":") Then
                    productkey._driveLetter = (productkey._driveLetter & ":")
                End If
                productkey.matchDriveLetterWithSerial
                Return productkey._serialNumber
            Catch exception As Exception
                log.store("default", "Errorinnproductkey4.cs", exception.Message)
                Return ""
            End Try
        End Function

        Public Shared Function getValueInQuotes(ByVal inValue As String) As String
            Try 
                Dim index As Integer = 0
                Dim num2 As Integer = 0
                index = inValue.IndexOf("""")
                num2 = inValue.IndexOf("""", CInt((index + 1)))
                Return inValue.Substring((index + 1), ((num2 - index) - 1))
            Catch exception As Exception
                log.store("default", "Errorinnproductkey7.cs", exception.Message)
                Return ""
            End Try
        End Function

        Public Shared Sub matchDriveLetterWithSerial()
            Try 
                Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDiskToPartition")
                Dim obj2 As ManagementObject
                For Each obj2 In searcher.Get
                    Dim str2 As String = productkey.getValueInQuotes(obj2.Item("Dependent").ToString)
                    Dim str As String = productkey.getValueInQuotes(obj2.Item("Antecedent").ToString).Split(New Char() { ","c })(0).Remove(0, 6).Trim
                    If (str2 = productkey._driveLetter) Then
                        Dim searcher2 As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
                        Dim obj3 As ManagementObject
                        For Each obj3 In searcher2.Get
                            Dim str3 As String
                            If (((obj3.Item("Name").ToString = ("\\.\PHYSICALDRIVE" & str)) And (obj3.Item("InterfaceType").ToString = "USB")) AndAlso (Not str3 = productkey.type Is Nothing)) Then
                                If Not (str3 = "PNPDeviceID") Then
                                    If (str3 = "Caption") Then
                                        goto Label_0152
                                    End If
                                    If (str3 = "Size") Then
                                        goto Label_016A
                                    End If
                                Else
                                    productkey._serialNumber = productkey.parseSerialFromDeviceID(obj3.Item("PNPDeviceID").ToString)
                                End If
                            End If
                            Continue For
                        Label_0152:
                            productkey._serialNumber = obj3.Item("Caption").ToString
                            Continue For
                        Label_016A:
                            productkey._serialNumber = obj3.Item("Size").ToString
                        Next
                    End If
                Next
            Catch exception As Exception
                log.store("default", "Errorinnproductkey5.cs", exception.Message)
            End Try
        End Sub

        Public Shared Function parseSerialFromDeviceID(ByVal deviceId As String) As String
            Try 
                Dim strArray As String() = deviceId.Split(New Char() { "\"c })
                Dim index As Integer = (strArray.Length - 1)
                Return strArray(index).Split(New Char() { "&"c })(0)
            Catch exception As Exception
                log.store("default", "Errorinnproductkey6.cs", exception.Message)
                Return ""
            End Try
        End Function

        Public Shared Function verify(ByVal st As String) As Boolean
            Try 
                Dim num As Integer = (((DateTime.Now.Year * &H2710) + (DateTime.Now.Month * 100)) + DateTime.Now.Day)
                staticstore.date = num
                Return (((num <= productkey.date(st)) AndAlso (productkey.date(st).ToString.Length = 8)) AndAlso (productkey.date(st).ToString.Substring(0, 3) = "201"))
            Catch exception As Exception
                log.store("default", "Errorinnproductkey1.cs", exception.Message)
                Return False
            End Try
        End Function


        ' Fields
        Private Shared _driveLetter As String
        Private Shared _serialNumber As String
        Private Shared type As String
    End Class
End Namespace

Convert Code
Imports System

Namespace SecurityTest
    Friend Class nconvert
  ' Methods
  Private Shared Function bincode(ByVal st As String) As String
    Try 
    Dim str As String = ""
    Select Case st
    Case "2"
    str = "00"
    Exit Select
    Case "3"
    str = "00001"
    Exit Select
    Case "4"
    str = "00010"
    Exit Select
    Case "5"
    str = "00011"
    Exit Select
    Case "6"
    str = "00100"
    Exit Select
    Case "7"
    str = "00101"
    Exit Select
    Case "8"
    str = "00110"
    Exit Select
    Case "9"
    str = "00111"
    Exit Select
    Case "A"
    str = "01000"
    Exit Select
    Case "B"
    str = "01001"
    Exit Select
    Case "C"
    str = "01010"
    Exit Select
    Case "D"
    str = "01011"
    Exit Select
    Case "E"
    str = "01100"
    Exit Select
    Case "F"
    str = "01101"
    Exit Select
    Case "G"
    str = "01110"
    Exit Select
    Case "H"
    str = "01111"
    Exit Select
    Case "J"
    str = "10000"
    Exit Select
    Case "K"
    str = "10001"
    Exit Select
    Case "L"
    str = "10010"
    Exit Select
    Case "M"
    str = "10011"
    Exit Select
    Case "N"
    str = "10100"
    Exit Select
    Case "P"
    str = "10101"
    Exit Select
    Case "Q"
    str = "10110"
    Exit Select
    Case "R"
    str = "10111"
    Exit Select
    Case "S"
    str = "11000"
    Exit Select
    Case "T"
    str = "11001"
    Exit Select
    Case "U"
    str = "11010"
    Exit Select
    Case "V"
    str = "11011"
    Exit Select
    Case "W"
    str = "11100"
    Exit Select
    Case "X"
    str = "11101"
    Exit Select
    Case "Y"
    str = "11110"
    Exit Select
    Case "Z"
    str = "11"
    Exit Select
    End Select
    Return str
    Catch exception As Exception
    log.store("default", "Errorinnconvert7.cs", exception.Message)
    Return ""
    End Try
  End Function

  Public Shared Function getcode(ByVal cd As UInt64) As String
    Try 
    Return nconvert.tohexa(nconvert.tobinary(cd))
    Catch exception As Exception
    log.store("default", "Errorinnconvert1.cs", exception.Message)
    Return ""
    End Try
  End Function

  Private Shared Function gethex(ByVal st As String) As String
    Try 
    Dim str As String = ""
    Select Case st
    Case "00"
    str = "2"
    Exit Select
    Case "00001"
    str = "3"
    Exit Select
    Case "00010"
    str = "4"
    Exit Select
    Case "00011"
    str = "5"
    Exit Select
    Case "00100"
    str = "6"
    Exit Select
    Case "00101"
    str = "7"
    Exit Select
    Case "00110"
    str = "8"
    Exit Select
    Case "00111"
    str = "9"
    Exit Select
    Case "01000"
    str = "A"
    Exit Select
    Case "01001"
    str = "B"
    Exit Select
    Case "01010"
    str = "C"
    Exit Select
    Case "01011"
    str = "D"
    Exit Select
    Case "01100"
    str = "E"
    Exit Select
    Case "01101"
    str = "F"
    Exit Select
    Case "01110"
    str = "G"
    Exit Select
    Case "01111"
    str = "H"
    Exit Select
    Case "10000"
    str = "J"
    Exit Select
    Case "10001"
    str = "K"
    Exit Select
    Case "10010"
    str = "L"
    Exit Select
    Case "10011"
    str = "M"
    Exit Select
    Case "10100"
    str = "N"
    Exit Select
    Case "10101"
    str = "P"
    Exit Select
    Case "10110"
    str = "Q"
    Exit Select
    Case "10111"
    str = "R"
    Exit Select
    Case "11000"
    str = "S"
    Exit Select
    Case "11001"
    str = "T"
    Exit Select
    Case "11010"
    str = "U"
    Exit Select
    Case "11011"
    str = "V"
    Exit Select
    Case "11100"
    str = "W"
    Exit Select
    Case "11101"
    str = "X"
    Exit Select
    Case "11110"
    str = "Y"
    Exit Select
    Case "11"
    str = "Z"
    Exit Select
    End Select
    Return str
    Catch exception As Exception
    log.store("default", "Errorinnconvert4.cs", exception.Message)
    Return ""
    End Try
  End Function

  Private Shared Function tobinary(ByVal cd As UInt64) As String
    Try 
    Dim str As String = ""
    Do While (cd <> 0)
    str = ((cd Mod CULng(2)).ToString & str)
    cd = (cd / CULng(2))
    Loop
    Return str
    Catch exception As Exception
    log.store("default", "Errorinnconvert2.cs", exception.Message)
    Return ""
    End Try
  End Function

  Private Shared Function tohexa(ByVal bin As String) As String
    Try 
    Dim str As String = ""
    Dim length As Integer = bin.Length
    If ((length Mod 5) <> 0) Then
    Dim num2 As Integer = (length / 5)
    Dim num3 As Integer = (length - (num2 * 5))
    num3 = (5 - num3)
    Dim i As Integer = 1
    Do While (i <= num3)
    bin = ("0" & bin)
    i += 1
    Loop
    End If
    Do While (bin.Length <> 0)
    Dim st As String = bin.Substring(0, 5)
    bin = bin.Substring(5)
    str = (str & nconvert.gethex(st))
    Loop
    Return str
    Catch exception As Exception
    log.store("default", "Errorinnconvert3.cs", exception.Message)
    Return ""
    End Try
  End Function

  Private Shared Function toobinary(ByVal st As String) As String
    Try 
    Dim str As String = ""
    Do While (st.Length <> 0)
    Dim str2 As String = st.Chars(0).ToString
    str = (str & nconvert.bincode(str2))
    st = st.Substring(1)
    Loop
    Return str
    Catch exception As Exception
    log.store("default", "Errorinnconvert6.cs", exception.Message)
    Return ""
    End Try
  End Function

  Public Shared Function toodec(ByVal st As String) As UInt64
    Try 
    Dim str As String = nconvert.toobinary(st)
    Dim num As UInt64 = 0
    Dim i As Integer = 0
    Do While (str.Length <> 0)
    Dim num3 As UInt64 = (Convert.ToUInt64(str.Chars((str.Length - 1))) - CULng(&H30))
    num = (num + (num3 * CULng(Math.Pow(2, CDbl(i))
    str = str.Substring(0, (str.Length - 1))
    i += 1
    Loop
    Return num
    Catch exception As Exception
    log.store("default", "Errorinnconvert5.cs", exception.Message)
    Return 0
    End Try
  End Function

    End Class
End Namespace


Here i Try ::
Private Function bincode(ByVal st As String) As String
        Dim result As String
        Try
            Dim str As String = ""
            Select Case st
                Case "2"
                    str = "00000"
                Case "3"
                    str = "00001"
                Case "4"
                    str = "00010"
                Case "5"
                    str = "00011"
                Case "6"
                    str = "00100"
                Case "7"
                    str = "00101"
                Case "8"
                    str = "00110"
                Case "9"
                    str = "00111"
                Case "A"
                    str = "01000"
                Case "B"
                    str = "01001"
                Case "C"
                    str = "01010"
                Case "D"
                    str = "01011"
                Case "E"
                    str = "01100"
                Case "F"
                    str = "01101"
                Case "G"
                    str = "01110"
                Case "H"
                    str = "01111"
                Case "J"
                    str = "10000"
                Case "K"
                    str = "10001"
                Case "L"
                    str = "10010"
                Case "M"
                    str = "10011"
                Case "N"
                    str = "10100"
                Case "P"
                    str = "10101"
                Case "Q"
                    str = "10110"
                Case "R"
                    str = "10111"
                Case "S"
                    str = "11000"
                Case "T"
                    str = "11001"
                Case "U"
                    str = "11010"
                Case "V"
                    str = "11011"
                Case "W"
                    str = "11100"
                Case "X"
                    str = "11101"
                Case "Y"
                    str = "11110"
                Case "Z"
                    str = "11111"
            End Select
            result = str
        Catch exception As Exception
            result = ""
        End Try
        Return result
    End Function

    Private Function toobinary(ByVal st As String) As String
        Dim result As String
        Try
            Dim str As String = ""
            While st.Length <> 0
                Dim str2 As String = st(0).ToString()
                str += bincode(str2)
                st = st.Substring(1)
            End While
            result = str
        Catch exception As Exception
            result = ""
        End Try
        Return result
    End Function

    Public Function DecryptString(ByVal [me] As ULong) As ULong
        Dim result As ULong
        Try
            Dim num As ULong = [me] Mod 10UL
            [me] /= 10UL
            Dim num2 As ULong = 0UL
            While [me] <> 0UL
                Dim num3 As ULong = [me] Mod 10UL
                If num3 < num Then
                    num3 += 10UL
                End If
                Dim num4 As ULong = num3 - num
                num2 = num2 * 10UL + num4
                [me] /= 10UL
            End While
            result = num2
        Catch exception As Exception
            result = 0UL
        End Try
        Return result
    End Function

    Public Function toodec(ByVal st As String) As ULong
        Dim result As ULong
        Try
            Dim str As String = toobinary(st)
            Dim num As ULong = 0UL
            Dim i As Integer = 0
            While str.Length <> 0
                Dim num2 As ULong = Convert.ToUInt64(str(str.Length - 1)) - 48UL
                num += num2 * CULng(Math.Pow(2.0, CDec(i)))
                str = str.Substring(0, str.Length - 1)
                i += 1
            End While
            result = num
        Catch exception As Exception
            result = 0UL
        End Try
        Return result
    End Function

    Public Function [date](ByVal st As String) As Integer
        Dim result
        Try
            Dim num As ULong = toodec(st)
            num = DecryptString(num)
            Dim hashCode As Integer = "RGZCCW3P2EJBC3G352ZB".GetHashCode
            If hashCode < 0 Then
                hashCode *= -1
            End If

            Dim i2 As Int64 = 103287435787683895

            Dim l As Long = CLng(hashCode)
            l = l * 100000000L
            Dim ul As ULong = CULng(l)
            ul = ul - num
            Dim I As Integer = CInt(ul)
            result = I
            'result = CInt((num - CULng((CLng(hashCode) * 100000000L))))
        Catch exception As Exception
            result = 0
        End Try
        Return result
    End Function


this project generate machine id from usb, and machine id depends product key
here is my machine id RGZCCW3P2EJBC3G352ZB
if any seniour coder solve this kindly sent it to me, or give me suggestion, how i get this key,
thanks in advance
↧
Search
Viewing all articles
Browse latest Browse all 51036

Trending Articles

RAMAYAMPET Mandal Sarpanch | Upa-Sarpanch | Ward member Mobile Numbers Medak...

May 24, 2017, 2:00 am

लड़कियां सेक्स के दौरान क्यों करती है उह! आह!लड़कियां सेक्स के दौरान क्यों करती...

May 19, 2016, 1:54 am

Neem Baba Extra Questions Answer Class 6 English Poorvi

February 1, 2025, 5:19 am

Throw Back: 4×4 — Sikilitele (Ft Castro) Prod by JQ

March 5, 2015, 8:24 am

Rajasthan Board 10th Result 2016 Roll No wise & Name Wise

August 20, 2016, 5:13 pm

Lowe faces four theft charges

November 14, 2017, 6:52 pm

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Mafia, Murder & Mayhem In The Motor City: Detroit Mob Hit Timeline (1937-2007)

December 7, 2016, 3:57 pm

The 10 Tennessee Cities With The Largest Black Population For 2021

December 21, 2020, 10:12 am

Materials Around Us Class 6 Worksheet Science Chapter 6

October 3, 2024, 5:20 am

デスクトップ ヒープの枯渇

January 18, 2018, 8:31 pm

Best Suvichar in Hindi |बेस्ट सुविचार |शुभ विचार हिंदी में

March 7, 2020, 11:19 pm

Kanulanu Thaake Lyrics and translation | Manam (2014)

May 9, 2014, 5:45 am

Korean Sex Porn Videos: XXX Videos & Free Porn Movies

May 30, 2025, 9:29 pm

Teen Shot In Miami Drive-By Dies From Injuries

August 8, 2011, 1:16 pm

Download: IQ Muzatasha feat Shy D & Pmj – Ulesi NiFertilizer Yamavuto

March 22, 2018, 7:23 pm

Mahakal Attitude Status

February 29, 2020, 9:52 am

Property developer set up cannabis factory to help pay off debts...

August 3, 2015, 2:29 am

♡

July 11, 2015, 6:15 am

KB: How to troubleshoot issues when adding a Hyper-V host in System Center...

August 14, 2012, 10:05 am
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>