[ HELP ] Cracking, Patching Applications

NullData · 03-05-2019, 06:13 AM

(03-05-2019, 05:55 AM)reGEN Wrote: Try trashing the entire try/catch block, then at then add the following code:

Code:
Security.Licensed = True Security.InitializeComponents("50DDC... <the rest of the string here>... DE8", MySettingsProperty.Settings.Email, MySettingsProperty.Settings.LicenseCode) Me.Text = "IMVUKSA Product Extractor (Registered Version) v" + MyProject.Application.Info.Version.ToString() Me.RegisterToolStripMenuItem.Enabled = False

Thank some what worked now its saying not registered when i try to save the files
If you like you can add me on discord @ NullData#7552 if that will be easy for you and i can share my screen ?

[Image: fe515bf01315d1676cb8d86f3445eeac.jpg]

[Image: fe515bf01315d1676cb8d86f3445eeac.jpg]

Code:
Private Sub Button3_Click(sender As Object, e As EventArgs)
	Dim licensed As Boolean = Security.Licensed
	If licensed Then
		Dim flag As Boolean = Me.myfiles.Count > 0
		If flag Then
			Dim flag2 As Boolean = Me.FBD.ShowDialog() = DialogResult.OK
			If flag2 Then
				Dim selectedPath As String = Me.FBD.SelectedPath
				Dim fileName As String = selectedPath + "\" + Me.MyActiveProductid + ".chkn"
				Dim zipFile As ZipFile = New ZipFile(fileName)
				Try
					For Each fileClass As FileClass In Me.myfiles
						Try
							zipFile.AddEntry(fileClass.filename, fileClass.filedata)
						Catch ex As Exception
						End Try
					Next
				Finally
					Dim enumerator As List(Of FileClass).Enumerator
					CType(enumerator, IDisposable).Dispose()
				End Try
				zipFile.Save()
				Try
					For Each fileClass2 As FileClass In Me.myfiles
						Try
							File.WriteAllBytes(selectedPath + "\" + fileClass2.filename, fileClass2.filedata)
						Catch ex2 As Exception
							Interaction.MsgBox("Error:" + ex2.Message, MsgBoxStyle.OkOnly, Nothing)
						End Try
					Next
				Finally
					Dim enumerator2 As List(Of FileClass).Enumerator
					CType(enumerator2, IDisposable).Dispose()
				End Try
				Process.Start("explorer.exe", selectedPath)
			End If
		Else
			Interaction.MsgBox("Nothing to save", MsgBoxStyle.OkOnly, Nothing)
		End If
	Else
		Interaction.MsgBox("This Feature Exists Only in Registered Version", MsgBoxStyle.OkOnly, Nothing)
	End If
End Sub

NullData · 03-05-2019, 06:58 AM

UPDATE
Found out how to save it
Topic Closed