[URET]KeyGenMe v.1.0.2[.NET]

[AGSKY]

Difficulty : 5
Language : .NET
Platform : x32/x64
OS Version : Windows All
Packer / Protector : Mpresss v2.19

Description :

This project was created in one night. If you can see any bugs just comment and if you want the source code just do same.

Feel free to use comment section.

Screenshot :

KeyGenME#2 By AGSKY45(URET).zip

Edited January 2, 2018 by Teddy Rogers

[Teddy Rogers]

As per my previous reply, you will need to comply using the posting template provided. There is an example at the top of every forum and even an example topic to provide guidance...

Ted.

[AGSKY]

1 hour ago, Teddy Rogers said:

As per my previous reply, you will need to comply using the posting template provided. There is an example at the top of every forum and even an example topic to provide guidance...

Ted.

Sorry but i post this obey your rules!!so why u can not approve??

[Teddy Rogers]

I think it is self-explanatory and I've given you reasons, the format/layout of your keygenme needs to be like this...

Ted.

[BackBox]

keygen11.exe

[jameswoods]

Spoiler

Imports System.Runtime.CompilerServices
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1

    Private Sub genSerial()
        Dim text As String = Me.TextBox1.Text
        Dim obj As Object = 60273
        ' The following expression was wrapped in a checked-statement
        Dim b As Byte = CByte((Strings.Len(text) - 4))
        For b2 As Byte = 1 To b
            Dim text2 As String = Strings.StrReverse(Strings.Mid(text, CInt(b2), 4))
            Dim obj2 As Object = ""
            Dim b3 As Byte = CByte(Strings.Len(text2))
            For b4 As Byte = 1 To b3
                obj2 = RuntimeHelpers.GetObjectValue(Operators.ConcatenateObject(RuntimeHelpers.GetObjectValue(obj2), Conversion.Hex(Strings.Asc(Strings.Mid(text2, CInt(b4), 1)))))
            Next
            obj2 = RuntimeHelpers.GetObjectValue(Operators.ConcatenateObject("&H", RuntimeHelpers.GetObjectValue(obj2)))
            obj = RuntimeHelpers.GetObjectValue(Operators.XorObject(RuntimeHelpers.GetObjectValue(obj), RuntimeHelpers.GetObjectValue(obj2)))
        Next
        Dim flag As Boolean = Operators.CompareString(Me.TextBox2.Text, "", False) = 0

        TextBox2.Text = (RuntimeHelpers.GetObjectValue(Operators.AddObject(RuntimeHelpers.GetObjectValue(obj), 44)))

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Length > 3 Then
            genSerial()

        End If
    End Sub
End Class

 

 

KeyGenME_2 By AGSKY45_Keygen.exe