Posted December 30, 20177 yr Difficulty : 5Language : .NETPlatform : x32/x64OS Version : Windows AllPacker / 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, 20187 yr by Teddy Rogers
December 30, 20177 yr 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.
December 30, 20177 yr Author 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??
December 31, 20177 yr I think it is self-explanatory and I've given you reasons, the format/layout of your keygenme needs to be like this... Ted.
January 7, 20187 yr 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
Create an account or sign in to comment