Jump to content
Tuts 4 You
  • 0
AGSKY

[URET]KeyGenMe v.1.0.2[.NET]

Rate this question

Question

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 :

Untitled-1.png

KeyGenME#2 By AGSKY45(URET).zip

Edited by Teddy Rogers (see edit history)
  • Like 1

Share this post


Link to post

5 answers to this question

Recommended Posts

  • 0
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.

Share this post


Link to post
  • 0
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??

Share this post


Link to post
  • 0
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...

image.png.00d23147ddd152c5528809707c34260b.png

Ted.

Share this post


Link to post
  • 0
jameswoods

Keygened.PNG.603e2f98aec5ea651719e21cce1f1e03.PNG

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

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...