Jump to content
View in the app

A better way to browse. Learn more.

Tuts 4 You

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Featured Replies

Posted

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

Solved by BackBox

Go to solution

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.

  • 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??

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.

  • Solution

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

Create an account or sign in to comment

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.