Swords and Sandals II Hacked by Ognisty321

Swords and Sandals II Hacked by Ognisty321

Wynik VirusTotal: 0/55

Swords And Sandals II Hacked by Ognisty321.rar

I jak to działa?

Pobiorę i zagram, plusik :>

I jak to działa?

Możesz sobie dodać lvl,pieniądze etc

Zrobiłem to w 3 minuty Jak by ktoś chciał to mogę dodać jeszcze HairChanger, ColorChanger

Możesz sobie dodać lvl,pieniądze etc

 

Zrobiłem to w 3 minuty Jak by ktoś chciał to mogę dodać jeszcze HairChanger, ColorChanger

lipa ze nie da sie tego na oficjalnym sword and sandals np na wyspiegier

lap plusa akurat sie nudze a w gierkie swojego czasu sie gralo 

lipa ze nie da sie tego na oficjalnym sword and sandals np na wyspiegier

 Wystarczy Game.Movie ustawić na "http://media.jaludo.com/swords_and_sandals/swords_and_sandals_2_emperors_reign.swf"

--

Bardzo fajny hack panie @@Ognisty321

Tutaj udostępniam wam kod cheata żebyście wiedzieli jak działa i ustawili sobie sami np. na jakim serwisie to ma działać jeja/wyspagier itd.

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Threading
Imports System.Windows.Forms
Imports AxShockwaveFlashObjects
Imports Microsoft.VisualBasic.CompilerServices

Namespace WindowsApplication1
	<DesignerGenerated()>
	Public Class Form1
		Inherits Form

		<DebuggerNonUserCode()>
		Public Sub New()
			AddHandler MyBase.Load, AddressOf Me.Form1_Load
			Form1.__ENCAddToList(Me)
			Me.InitializeComponent()
		End Sub

		Private Sub AxShockwaveFlash1_Enter(sender As Object, e As EventArgs)
			AddressOf Me.Game.Movie = "http://pobierak.jeja.pl/games/4/c/8/6074.swf"
		End Sub

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.statpoints", AddressOf Me.TextBox1.Text)
		End Sub

		Private Sub Button2_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.herolevel", AddressOf Me.TextBox2.Text)
		End Sub

		Private Sub Button3_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.strength", AddressOf Me.TextBox3.Text)
		End Sub

		Private Sub Button4_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.attack", AddressOf Me.TextBox4.Text)
		End Sub

		Private Sub Button5_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.defence", AddressOf Me.TextBox5.Text)
		End Sub

		Private Sub Button6_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.goldpieces", AddressOf Me.TextBox6.Text)
		End Sub

		Private Sub Button7_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.speed", AddressOf Me.TextBox7.Text)
		End Sub

		<DebuggerNonUserCode()>
		Protected Overrides Sub Dispose(disposing As Boolean)
			Try
				Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
				If flag Then
					Me.components.Dispose()
				End If
			Finally
				MyBase.Dispose(disposing)
			End Try
		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)
		End Sub

		<DebuggerStepThrough()>
		Private Sub InitializeComponent()
			Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
			AddressOf Me.Game = New AxShockwaveFlash()
			AddressOf Me.Button1 = New Button()
			AddressOf Me.TextBox1 = New TextBox()
			AddressOf Me.Button2 = New Button()
			AddressOf Me.TextBox2 = New TextBox()
			AddressOf Me.Button3 = New Button()
			AddressOf Me.TextBox3 = New TextBox()
			AddressOf Me.Button4 = New Button()
			AddressOf Me.TextBox4 = New TextBox()
			AddressOf Me.Button5 = New Button()
			AddressOf Me.TextBox5 = New TextBox()
			AddressOf Me.Button6 = New Button()
			AddressOf Me.TextBox6 = New TextBox()
			AddressOf Me.Button7 = New Button()
			AddressOf Me.TextBox7 = New TextBox()
			(CType(AddressOf Me.Game, ISupportInitialize)).BeginInit()
			Me.SuspendLayout()
			AddressOf Me.Game.Enabled = True
			Dim arg_F8_0 As Control = AddressOf Me.Game
			Dim location As Point = New Point(12, 12)
			arg_F8_0.Location = location
			AddressOf Me.Game.Name = "Game"
			AddressOf Me.Game.OcxState = CType(componentResourceManager.GetObject("Game.OcxState"), AxHost.State)
			Dim arg_145_0 As Control = AddressOf Me.Game
			Dim size As Size = New Size(562, 359)
			arg_145_0.Size = size
			AddressOf Me.Game.TabIndex = 0
			Dim arg_16E_0 As Control = AddressOf Me.Button1
			location = New Point(12, 377)
			arg_16E_0.Location = location
			AddressOf Me.Button1.Name = "Button1"
			Dim arg_199_0 As Control = AddressOf Me.Button1
			size = New Size(67, 33)
			arg_199_0.Size = size
			AddressOf Me.Button1.TabIndex = 1
			AddressOf Me.Button1.Text = "Statpoints"
			AddressOf Me.Button1.UseVisualStyleBackColor = True
			Dim arg_1E0_0 As Control = AddressOf Me.TextBox1
			location = New Point(13, 413)
			arg_1E0_0.Location = location
			AddressOf Me.TextBox1.Name = "TextBox1"
			Dim arg_20B_0 As Control = AddressOf Me.TextBox1
			size = New Size(66, 20)
			arg_20B_0.Size = size
			AddressOf Me.TextBox1.TabIndex = 2
			Dim arg_234_0 As Control = AddressOf Me.Button2
			location = New Point(85, 377)
			arg_234_0.Location = location
			AddressOf Me.Button2.Name = "Button2"
			Dim arg_25F_0 As Control = AddressOf Me.Button2
			size = New Size(56, 33)
			arg_25F_0.Size = size
			AddressOf Me.Button2.TabIndex = 3
			AddressOf Me.Button2.Text = "Level"
			AddressOf Me.Button2.UseVisualStyleBackColor = True
			Dim arg_2A6_0 As Control = AddressOf Me.TextBox2
			location = New Point(85, 413)
			arg_2A6_0.Location = location
			AddressOf Me.TextBox2.Name = "TextBox2"
			Dim arg_2D1_0 As Control = AddressOf Me.TextBox2
			size = New Size(56, 20)
			arg_2D1_0.Size = size
			AddressOf Me.TextBox2.TabIndex = 4
			Dim arg_2FD_0 As Control = AddressOf Me.Button3
			location = New Point(147, 377)
			arg_2FD_0.Location = location
			AddressOf Me.Button3.Name = "Button3"
			Dim arg_328_0 As Control = AddressOf Me.Button3
			size = New Size(70, 33)
			arg_328_0.Size = size
			AddressOf Me.Button3.TabIndex = 5
			AddressOf Me.Button3.Text = "Strength"
			AddressOf Me.Button3.UseVisualStyleBackColor = True
			Dim arg_372_0 As Control = AddressOf Me.TextBox3
			location = New Point(148, 413)
			arg_372_0.Location = location
			AddressOf Me.TextBox3.Name = "TextBox3"
			Dim arg_39D_0 As Control = AddressOf Me.TextBox3
			size = New Size(69, 20)
			arg_39D_0.Size = size
			AddressOf Me.TextBox3.TabIndex = 6
			Dim arg_3C9_0 As Control = AddressOf Me.Button4
			location = New Point(223, 378)
			arg_3C9_0.Location = location
			AddressOf Me.Button4.Name = "Button4"
			Dim arg_3F4_0 As Control = AddressOf Me.Button4
			size = New Size(65, 32)
			arg_3F4_0.Size = size
			AddressOf Me.Button4.TabIndex = 7
			AddressOf Me.Button4.Text = "Attack"
			AddressOf Me.Button4.UseVisualStyleBackColor = True
			Dim arg_43E_0 As Control = AddressOf Me.TextBox4
			location = New Point(224, 413)
			arg_43E_0.Location = location
			AddressOf Me.TextBox4.Name = "TextBox4"
			Dim arg_469_0 As Control = AddressOf Me.TextBox4
			size = New Size(64, 20)
			arg_469_0.Size = size
			AddressOf Me.TextBox4.TabIndex = 8
			Dim arg_495_0 As Control = AddressOf Me.Button5
			location = New Point(294, 378)
			arg_495_0.Location = location
			AddressOf Me.Button5.Name = "Button5"
			Dim arg_4C0_0 As Control = AddressOf Me.Button5
			size = New Size(68, 33)
			arg_4C0_0.Size = size
			AddressOf Me.Button5.TabIndex = 9
			AddressOf Me.Button5.Text = "Defence"
			AddressOf Me.Button5.UseVisualStyleBackColor = True
			Dim arg_50B_0 As Control = AddressOf Me.TextBox5
			location = New Point(295, 413)
			arg_50B_0.Location = location
			AddressOf Me.TextBox5.Name = "TextBox5"
			Dim arg_536_0 As Control = AddressOf Me.TextBox5
			size = New Size(67, 20)
			arg_536_0.Size = size
			AddressOf Me.TextBox5.TabIndex = 10
			Dim arg_563_0 As Control = AddressOf Me.Button6
			location = New Point(449, 380)
			arg_563_0.Location = location
			AddressOf Me.Button6.Name = "Button6"
			Dim arg_58E_0 As Control = AddressOf Me.Button6
			size = New Size(67, 31)
			arg_58E_0.Size = size
			AddressOf Me.Button6.TabIndex = 11
			AddressOf Me.Button6.Text = "Money"
			AddressOf Me.Button6.UseVisualStyleBackColor = True
			Dim arg_5D9_0 As Control = AddressOf Me.TextBox6
			location = New Point(450, 413)
			arg_5D9_0.Location = location
			AddressOf Me.TextBox6.Name = "TextBox6"
			Dim arg_604_0 As Control = AddressOf Me.TextBox6
			size = New Size(66, 20)
			arg_604_0.Size = size
			AddressOf Me.TextBox6.TabIndex = 12
			Dim arg_631_0 As Control = AddressOf Me.Button7
			location = New Point(369, 379)
			arg_631_0.Location = location
			AddressOf Me.Button7.Name = "Button7"
			Dim arg_65C_0 As Control = AddressOf Me.Button7
			size = New Size(75, 32)
			arg_65C_0.Size = size
			AddressOf Me.Button7.TabIndex = 13
			AddressOf Me.Button7.Text = "Speed"
			AddressOf Me.Button7.UseVisualStyleBackColor = True
			Dim arg_6A7_0 As Control = AddressOf Me.TextBox7
			location = New Point(369, 412)
			arg_6A7_0.Location = location
			AddressOf Me.TextBox7.Name = "TextBox7"
			Dim arg_6D2_0 As Control = AddressOf Me.TextBox7
			size = New Size(74, 20)
			arg_6D2_0.Size = size
			AddressOf Me.TextBox7.TabIndex = 14
			Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
			Me.AutoScaleDimensions = autoScaleDimensions
			Me.AutoScaleMode = AutoScaleMode.Font
			size = New Size(586, 445)
			Me.ClientSize = size
			Me.Controls.Add(AddressOf Me.TextBox7)
			Me.Controls.Add(AddressOf Me.Button7)
			Me.Controls.Add(AddressOf Me.TextBox6)
			Me.Controls.Add(AddressOf Me.Button6)
			Me.Controls.Add(AddressOf Me.TextBox5)
			Me.Controls.Add(AddressOf Me.Button5)
			Me.Controls.Add(AddressOf Me.TextBox4)
			Me.Controls.Add(AddressOf Me.Button4)
			Me.Controls.Add(AddressOf Me.TextBox3)
			Me.Controls.Add(AddressOf Me.Button3)
			Me.Controls.Add(AddressOf Me.TextBox2)
			Me.Controls.Add(AddressOf Me.Button2)
			Me.Controls.Add(AddressOf Me.TextBox1)
			Me.Controls.Add(AddressOf Me.Button1)
			Me.Controls.Add(AddressOf Me.Game)
			Me.Name = "Form1"
			Me.Text = "Swords and Sandals II Hacked by Ognisty321"
			(CType(AddressOf Me.Game, ISupportInitialize)).EndInit()
			Me.ResumeLayout(False)
			Me.PerformLayout()
		End Sub

		<DebuggerNonUserCode()>
		Private Shared Sub __ENCAddToList(value As Object)
			Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
			Dim flag As Boolean = False
			' The following expression was wrapped in a checked-statement
			Try
				Monitor.Enter(_ENCList, flag)
				Dim flag2 As Boolean = Form1.__ENCList.Count = Form1.__ENCList.Capacity
				If flag2 Then
					Dim num As Integer = 0
					Dim arg_44_0 As Integer = 0
					Dim num2 As Integer = Form1.__ENCList.Count - 1
					Dim num3 As Integer = arg_44_0
					While True
						Dim arg_95_0 As Integer = num3
						Dim num4 As Integer = num2
						If arg_95_0 > num4 Then
							Exit While
						End If
						Dim weakReference As WeakReference = Form1.__ENCList(num3)
						flag2 = weakReference.IsAlive
						If flag2 Then
							Dim flag3 As Boolean = num3 <> num
							If flag3 Then
								Form1.__ENCList(num) = Form1.__ENCList(num3)
							End If
							num += 1
						End If
						num3 += 1
					End While
					Form1.__ENCList.RemoveRange(num, Form1.__ENCList.Count - num)
					Form1.__ENCList.Capacity = Form1.__ENCList.Count
				End If
				Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
			Finally
				Dim flag3 As Boolean = flag
				If flag3 Then
					Monitor.[Exit](_ENCList)
				End If
			End Try
		End Sub

		Friend Overridable Property Button1() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button1_Click
				Dim flag As Boolean = Me._Button1 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button1.Click, value2
				End If
				Me._Button1 = value
				flag = (Me._Button1 IsNot Nothing)
				If flag Then
					AddHandler Me._Button1.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button2() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button2_Click
				Dim flag As Boolean = Me._Button2 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button2.Click, value2
				End If
				Me._Button2 = value
				flag = (Me._Button2 IsNot Nothing)
				If flag Then
					AddHandler Me._Button2.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button3() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button3_Click
				Dim flag As Boolean = Me._Button3 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button3.Click, value2
				End If
				Me._Button3 = value
				flag = (Me._Button3 IsNot Nothing)
				If flag Then
					AddHandler Me._Button3.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button4() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button4_Click
				Dim flag As Boolean = Me._Button4 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button4.Click, value2
				End If
				Me._Button4 = value
				flag = (Me._Button4 IsNot Nothing)
				If flag Then
					AddHandler Me._Button4.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button5() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button5_Click
				Dim flag As Boolean = Me._Button5 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button5.Click, value2
				End If
				Me._Button5 = value
				flag = (Me._Button5 IsNot Nothing)
				If flag Then
					AddHandler Me._Button5.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button6() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button6_Click
				Dim flag As Boolean = Me._Button6 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button6.Click, value2
				End If
				Me._Button6 = value
				flag = (Me._Button6 IsNot Nothing)
				If flag Then
					AddHandler Me._Button6.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button7() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button7_Click
				Dim flag As Boolean = Me._Button7 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button7.Click, value2
				End If
				Me._Button7 = value
				flag = (Me._Button7 IsNot Nothing)
				If flag Then
					AddHandler Me._Button7.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Game() As AxShockwaveFlash
			<DebuggerNonUserCode()>
			Get
				Return Me._Game
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As AxShockwaveFlash)
				Dim value2 As EventHandler = AddressOf Me.AxShockwaveFlash1_Enter
				Dim flag As Boolean = Me._Game IsNot Nothing
				If flag Then
					RemoveHandler Me._Game.Enter, value2
				End If
				Me._Game = value
				flag = (Me._Game IsNot Nothing)
				If flag Then
					AddHandler Me._Game.Enter, value2
				End If
			End Set
		End Property

		Friend Overridable Property TextBox1() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox1 = value
			End Set
		End Property

		Friend Overridable Property TextBox2() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox2 = value
			End Set
		End Property

		Friend Overridable Property TextBox3() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox3 = value
			End Set
		End Property

		Friend Overridable Property TextBox4() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox4 = value
			End Set
		End Property

		Friend Overridable Property TextBox5() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox5 = value
			End Set
		End Property

		Friend Overridable Property TextBox6() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox6 = value
			End Set
		End Property

		Friend Overridable Property TextBox7() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox7 = value
			End Set
		End Property

		Private components As IContainer

		<AccessedThroughProperty("Button1")>
		Private _Button1 As Button

		<AccessedThroughProperty("Button2")>
		Private _Button2 As Button

		<AccessedThroughProperty("Button3")>
		Private _Button3 As Button

		<AccessedThroughProperty("Button4")>
		Private _Button4 As Button

		<AccessedThroughProperty("Button5")>
		Private _Button5 As Button

		<AccessedThroughProperty("Button6")>
		Private _Button6 As Button

		<AccessedThroughProperty("Button7")>
		Private _Button7 As Button

		<AccessedThroughProperty("Game")>
		Private _Game As AxShockwaveFlash

		<AccessedThroughProperty("TextBox1")>
		Private _TextBox1 As TextBox

		<AccessedThroughProperty("TextBox2")>
		Private _TextBox2 As TextBox

		<AccessedThroughProperty("TextBox3")>
		Private _TextBox3 As TextBox

		<AccessedThroughProperty("TextBox4")>
		Private _TextBox4 As TextBox

		<AccessedThroughProperty("TextBox5")>
		Private _TextBox5 As TextBox

		<AccessedThroughProperty("TextBox6")>
		Private _TextBox6 As TextBox

		<AccessedThroughProperty("TextBox7")>
		Private _TextBox7 As TextBox

		Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
	End Class
End Namespace
 

Kod nie jest do copypastowania bo to tylko reverse codu.

Da się xDD

 Wystarczy Game.Movie ustawić na "http://media.jaludo.com/swords_and_sandals/swords_and_sandals_2_emperors_reign.swf"

--

Bardzo fajny hack panie @@Ognisty321

 

Tutaj udostępniam wam kod cheata żebyście wiedzieli jak działa i ustawili sobie sami np. na jakim serwisie to ma działać jeja/wyspagier itd.

 

 

 

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Threading
Imports System.Windows.Forms
Imports AxShockwaveFlashObjects
Imports Microsoft.VisualBasic.CompilerServices

Namespace WindowsApplication1
	<DesignerGenerated()>
	Public Class Form1
		Inherits Form

		<DebuggerNonUserCode()>
		Public Sub New()
			AddHandler MyBase.Load, AddressOf Me.Form1_Load
			Form1.__ENCAddToList(Me)
			Me.InitializeComponent()
		End Sub

		Private Sub AxShockwaveFlash1_Enter(sender As Object, e As EventArgs)
			AddressOf Me.Game.Movie = "http://pobierak.jeja.pl/games/4/c/8/6074.swf"
		End Sub

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.statpoints", AddressOf Me.TextBox1.Text)
		End Sub

		Private Sub Button2_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.herolevel", AddressOf Me.TextBox2.Text)
		End Sub

		Private Sub Button3_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.strength", AddressOf Me.TextBox3.Text)
		End Sub

		Private Sub Button4_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.attack", AddressOf Me.TextBox4.Text)
		End Sub

		Private Sub Button5_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.defence", AddressOf Me.TextBox5.Text)
		End Sub

		Private Sub Button6_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.goldpieces", AddressOf Me.TextBox6.Text)
		End Sub

		Private Sub Button7_Click(sender As Object, e As EventArgs)
			AddressOf Me.Game.SetVariable("_root.game.hero.speed", AddressOf Me.TextBox7.Text)
		End Sub

		<DebuggerNonUserCode()>
		Protected Overrides Sub Dispose(disposing As Boolean)
			Try
				Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
				If flag Then
					Me.components.Dispose()
				End If
			Finally
				MyBase.Dispose(disposing)
			End Try
		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)
		End Sub

		<DebuggerStepThrough()>
		Private Sub InitializeComponent()
			Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))
			AddressOf Me.Game = New AxShockwaveFlash()
			AddressOf Me.Button1 = New Button()
			AddressOf Me.TextBox1 = New TextBox()
			AddressOf Me.Button2 = New Button()
			AddressOf Me.TextBox2 = New TextBox()
			AddressOf Me.Button3 = New Button()
			AddressOf Me.TextBox3 = New TextBox()
			AddressOf Me.Button4 = New Button()
			AddressOf Me.TextBox4 = New TextBox()
			AddressOf Me.Button5 = New Button()
			AddressOf Me.TextBox5 = New TextBox()
			AddressOf Me.Button6 = New Button()
			AddressOf Me.TextBox6 = New TextBox()
			AddressOf Me.Button7 = New Button()
			AddressOf Me.TextBox7 = New TextBox()
			(CType(AddressOf Me.Game, ISupportInitialize)).BeginInit()
			Me.SuspendLayout()
			AddressOf Me.Game.Enabled = True
			Dim arg_F8_0 As Control = AddressOf Me.Game
			Dim location As Point = New Point(12, 12)
			arg_F8_0.Location = location
			AddressOf Me.Game.Name = "Game"
			AddressOf Me.Game.OcxState = CType(componentResourceManager.GetObject("Game.OcxState"), AxHost.State)
			Dim arg_145_0 As Control = AddressOf Me.Game
			Dim size As Size = New Size(562, 359)
			arg_145_0.Size = size
			AddressOf Me.Game.TabIndex = 0
			Dim arg_16E_0 As Control = AddressOf Me.Button1
			location = New Point(12, 377)
			arg_16E_0.Location = location
			AddressOf Me.Button1.Name = "Button1"
			Dim arg_199_0 As Control = AddressOf Me.Button1
			size = New Size(67, 33)
			arg_199_0.Size = size
			AddressOf Me.Button1.TabIndex = 1
			AddressOf Me.Button1.Text = "Statpoints"
			AddressOf Me.Button1.UseVisualStyleBackColor = True
			Dim arg_1E0_0 As Control = AddressOf Me.TextBox1
			location = New Point(13, 413)
			arg_1E0_0.Location = location
			AddressOf Me.TextBox1.Name = "TextBox1"
			Dim arg_20B_0 As Control = AddressOf Me.TextBox1
			size = New Size(66, 20)
			arg_20B_0.Size = size
			AddressOf Me.TextBox1.TabIndex = 2
			Dim arg_234_0 As Control = AddressOf Me.Button2
			location = New Point(85, 377)
			arg_234_0.Location = location
			AddressOf Me.Button2.Name = "Button2"
			Dim arg_25F_0 As Control = AddressOf Me.Button2
			size = New Size(56, 33)
			arg_25F_0.Size = size
			AddressOf Me.Button2.TabIndex = 3
			AddressOf Me.Button2.Text = "Level"
			AddressOf Me.Button2.UseVisualStyleBackColor = True
			Dim arg_2A6_0 As Control = AddressOf Me.TextBox2
			location = New Point(85, 413)
			arg_2A6_0.Location = location
			AddressOf Me.TextBox2.Name = "TextBox2"
			Dim arg_2D1_0 As Control = AddressOf Me.TextBox2
			size = New Size(56, 20)
			arg_2D1_0.Size = size
			AddressOf Me.TextBox2.TabIndex = 4
			Dim arg_2FD_0 As Control = AddressOf Me.Button3
			location = New Point(147, 377)
			arg_2FD_0.Location = location
			AddressOf Me.Button3.Name = "Button3"
			Dim arg_328_0 As Control = AddressOf Me.Button3
			size = New Size(70, 33)
			arg_328_0.Size = size
			AddressOf Me.Button3.TabIndex = 5
			AddressOf Me.Button3.Text = "Strength"
			AddressOf Me.Button3.UseVisualStyleBackColor = True
			Dim arg_372_0 As Control = AddressOf Me.TextBox3
			location = New Point(148, 413)
			arg_372_0.Location = location
			AddressOf Me.TextBox3.Name = "TextBox3"
			Dim arg_39D_0 As Control = AddressOf Me.TextBox3
			size = New Size(69, 20)
			arg_39D_0.Size = size
			AddressOf Me.TextBox3.TabIndex = 6
			Dim arg_3C9_0 As Control = AddressOf Me.Button4
			location = New Point(223, 378)
			arg_3C9_0.Location = location
			AddressOf Me.Button4.Name = "Button4"
			Dim arg_3F4_0 As Control = AddressOf Me.Button4
			size = New Size(65, 32)
			arg_3F4_0.Size = size
			AddressOf Me.Button4.TabIndex = 7
			AddressOf Me.Button4.Text = "Attack"
			AddressOf Me.Button4.UseVisualStyleBackColor = True
			Dim arg_43E_0 As Control = AddressOf Me.TextBox4
			location = New Point(224, 413)
			arg_43E_0.Location = location
			AddressOf Me.TextBox4.Name = "TextBox4"
			Dim arg_469_0 As Control = AddressOf Me.TextBox4
			size = New Size(64, 20)
			arg_469_0.Size = size
			AddressOf Me.TextBox4.TabIndex = 8
			Dim arg_495_0 As Control = AddressOf Me.Button5
			location = New Point(294, 378)
			arg_495_0.Location = location
			AddressOf Me.Button5.Name = "Button5"
			Dim arg_4C0_0 As Control = AddressOf Me.Button5
			size = New Size(68, 33)
			arg_4C0_0.Size = size
			AddressOf Me.Button5.TabIndex = 9
			AddressOf Me.Button5.Text = "Defence"
			AddressOf Me.Button5.UseVisualStyleBackColor = True
			Dim arg_50B_0 As Control = AddressOf Me.TextBox5
			location = New Point(295, 413)
			arg_50B_0.Location = location
			AddressOf Me.TextBox5.Name = "TextBox5"
			Dim arg_536_0 As Control = AddressOf Me.TextBox5
			size = New Size(67, 20)
			arg_536_0.Size = size
			AddressOf Me.TextBox5.TabIndex = 10
			Dim arg_563_0 As Control = AddressOf Me.Button6
			location = New Point(449, 380)
			arg_563_0.Location = location
			AddressOf Me.Button6.Name = "Button6"
			Dim arg_58E_0 As Control = AddressOf Me.Button6
			size = New Size(67, 31)
			arg_58E_0.Size = size
			AddressOf Me.Button6.TabIndex = 11
			AddressOf Me.Button6.Text = "Money"
			AddressOf Me.Button6.UseVisualStyleBackColor = True
			Dim arg_5D9_0 As Control = AddressOf Me.TextBox6
			location = New Point(450, 413)
			arg_5D9_0.Location = location
			AddressOf Me.TextBox6.Name = "TextBox6"
			Dim arg_604_0 As Control = AddressOf Me.TextBox6
			size = New Size(66, 20)
			arg_604_0.Size = size
			AddressOf Me.TextBox6.TabIndex = 12
			Dim arg_631_0 As Control = AddressOf Me.Button7
			location = New Point(369, 379)
			arg_631_0.Location = location
			AddressOf Me.Button7.Name = "Button7"
			Dim arg_65C_0 As Control = AddressOf Me.Button7
			size = New Size(75, 32)
			arg_65C_0.Size = size
			AddressOf Me.Button7.TabIndex = 13
			AddressOf Me.Button7.Text = "Speed"
			AddressOf Me.Button7.UseVisualStyleBackColor = True
			Dim arg_6A7_0 As Control = AddressOf Me.TextBox7
			location = New Point(369, 412)
			arg_6A7_0.Location = location
			AddressOf Me.TextBox7.Name = "TextBox7"
			Dim arg_6D2_0 As Control = AddressOf Me.TextBox7
			size = New Size(74, 20)
			arg_6D2_0.Size = size
			AddressOf Me.TextBox7.TabIndex = 14
			Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
			Me.AutoScaleDimensions = autoScaleDimensions
			Me.AutoScaleMode = AutoScaleMode.Font
			size = New Size(586, 445)
			Me.ClientSize = size
			Me.Controls.Add(AddressOf Me.TextBox7)
			Me.Controls.Add(AddressOf Me.Button7)
			Me.Controls.Add(AddressOf Me.TextBox6)
			Me.Controls.Add(AddressOf Me.Button6)
			Me.Controls.Add(AddressOf Me.TextBox5)
			Me.Controls.Add(AddressOf Me.Button5)
			Me.Controls.Add(AddressOf Me.TextBox4)
			Me.Controls.Add(AddressOf Me.Button4)
			Me.Controls.Add(AddressOf Me.TextBox3)
			Me.Controls.Add(AddressOf Me.Button3)
			Me.Controls.Add(AddressOf Me.TextBox2)
			Me.Controls.Add(AddressOf Me.Button2)
			Me.Controls.Add(AddressOf Me.TextBox1)
			Me.Controls.Add(AddressOf Me.Button1)
			Me.Controls.Add(AddressOf Me.Game)
			Me.Name = "Form1"
			Me.Text = "Swords and Sandals II Hacked by Ognisty321"
			(CType(AddressOf Me.Game, ISupportInitialize)).EndInit()
			Me.ResumeLayout(False)
			Me.PerformLayout()
		End Sub

		<DebuggerNonUserCode()>
		Private Shared Sub __ENCAddToList(value As Object)
			Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
			Dim flag As Boolean = False
			' The following expression was wrapped in a checked-statement
			Try
				Monitor.Enter(_ENCList, flag)
				Dim flag2 As Boolean = Form1.__ENCList.Count = Form1.__ENCList.Capacity
				If flag2 Then
					Dim num As Integer = 0
					Dim arg_44_0 As Integer = 0
					Dim num2 As Integer = Form1.__ENCList.Count - 1
					Dim num3 As Integer = arg_44_0
					While True
						Dim arg_95_0 As Integer = num3
						Dim num4 As Integer = num2
						If arg_95_0 > num4 Then
							Exit While
						End If
						Dim weakReference As WeakReference = Form1.__ENCList(num3)
						flag2 = weakReference.IsAlive
						If flag2 Then
							Dim flag3 As Boolean = num3 <> num
							If flag3 Then
								Form1.__ENCList(num) = Form1.__ENCList(num3)
							End If
							num += 1
						End If
						num3 += 1
					End While
					Form1.__ENCList.RemoveRange(num, Form1.__ENCList.Count - num)
					Form1.__ENCList.Capacity = Form1.__ENCList.Count
				End If
				Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
			Finally
				Dim flag3 As Boolean = flag
				If flag3 Then
					Monitor.[Exit](_ENCList)
				End If
			End Try
		End Sub

		Friend Overridable Property Button1() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button1_Click
				Dim flag As Boolean = Me._Button1 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button1.Click, value2
				End If
				Me._Button1 = value
				flag = (Me._Button1 IsNot Nothing)
				If flag Then
					AddHandler Me._Button1.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button2() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button2_Click
				Dim flag As Boolean = Me._Button2 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button2.Click, value2
				End If
				Me._Button2 = value
				flag = (Me._Button2 IsNot Nothing)
				If flag Then
					AddHandler Me._Button2.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button3() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button3_Click
				Dim flag As Boolean = Me._Button3 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button3.Click, value2
				End If
				Me._Button3 = value
				flag = (Me._Button3 IsNot Nothing)
				If flag Then
					AddHandler Me._Button3.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button4() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button4_Click
				Dim flag As Boolean = Me._Button4 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button4.Click, value2
				End If
				Me._Button4 = value
				flag = (Me._Button4 IsNot Nothing)
				If flag Then
					AddHandler Me._Button4.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button5() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button5_Click
				Dim flag As Boolean = Me._Button5 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button5.Click, value2
				End If
				Me._Button5 = value
				flag = (Me._Button5 IsNot Nothing)
				If flag Then
					AddHandler Me._Button5.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button6() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button6_Click
				Dim flag As Boolean = Me._Button6 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button6.Click, value2
				End If
				Me._Button6 = value
				flag = (Me._Button6 IsNot Nothing)
				If flag Then
					AddHandler Me._Button6.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Button7() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = AddressOf Me.Button7_Click
				Dim flag As Boolean = Me._Button7 IsNot Nothing
				If flag Then
					RemoveHandler Me._Button7.Click, value2
				End If
				Me._Button7 = value
				flag = (Me._Button7 IsNot Nothing)
				If flag Then
					AddHandler Me._Button7.Click, value2
				End If
			End Set
		End Property

		Friend Overridable Property Game() As AxShockwaveFlash
			<DebuggerNonUserCode()>
			Get
				Return Me._Game
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As AxShockwaveFlash)
				Dim value2 As EventHandler = AddressOf Me.AxShockwaveFlash1_Enter
				Dim flag As Boolean = Me._Game IsNot Nothing
				If flag Then
					RemoveHandler Me._Game.Enter, value2
				End If
				Me._Game = value
				flag = (Me._Game IsNot Nothing)
				If flag Then
					AddHandler Me._Game.Enter, value2
				End If
			End Set
		End Property

		Friend Overridable Property TextBox1() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox1 = value
			End Set
		End Property

		Friend Overridable Property TextBox2() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox2 = value
			End Set
		End Property

		Friend Overridable Property TextBox3() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox3 = value
			End Set
		End Property

		Friend Overridable Property TextBox4() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox4 = value
			End Set
		End Property

		Friend Overridable Property TextBox5() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox5 = value
			End Set
		End Property

		Friend Overridable Property TextBox6() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox6 = value
			End Set
		End Property

		Friend Overridable Property TextBox7() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox7 = value
			End Set
		End Property

		Private components As IContainer

		<AccessedThroughProperty("Button1")>
		Private _Button1 As Button

		<AccessedThroughProperty("Button2")>
		Private _Button2 As Button

		<AccessedThroughProperty("Button3")>
		Private _Button3 As Button

		<AccessedThroughProperty("Button4")>
		Private _Button4 As Button

		<AccessedThroughProperty("Button5")>
		Private _Button5 As Button

		<AccessedThroughProperty("Button6")>
		Private _Button6 As Button

		<AccessedThroughProperty("Button7")>
		Private _Button7 As Button

		<AccessedThroughProperty("Game")>
		Private _Game As AxShockwaveFlash

		<AccessedThroughProperty("TextBox1")>
		Private _TextBox1 As TextBox

		<AccessedThroughProperty("TextBox2")>
		Private _TextBox2 As TextBox

		<AccessedThroughProperty("TextBox3")>
		Private _TextBox3 As TextBox

		<AccessedThroughProperty("TextBox4")>
		Private _TextBox4 As TextBox

		<AccessedThroughProperty("TextBox5")>
		Private _TextBox5 As TextBox

		<AccessedThroughProperty("TextBox6")>
		Private _TextBox6 As TextBox

		<AccessedThroughProperty("TextBox7")>
		Private _TextBox7 As TextBox

		Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()
	End Class
End Namespace
 

 

Kod nie jest do copypastowania bo to tylko reverse codu.

Emm.. Nie rozumiem po co wrzuciłes kod skoro nikomu się nie przyda.

Mi by się przydał jakbym nie wiedział jak robić takie rzeczy.

Mi by się przydał jakbym nie wiedział jak robić takie rzeczy.

Od tego są poradniki.

Jakby ktoś nie umiał sobie edytować pod inny serwer to tutaj macie pod wyspę gier :SwordAndSandalsHackByOgnistyForWyspaGier.rar

Skan : https://www.virustotal.com/pl/file/e8e8a5be502c1e1fa7e6287ead4c933ef2abc70ef8f2602c8284b7bfd906cbee/analysis/

Od tego są poradniki.

Jakby Cię to denerwowało to mogę skasować post.

Jakby ktoś nie umiał sobie edytować pod inny serwer to tutaj macie pod wyspę gier :SwordAndSandalsHackByOgnistyForWyspaGier.rar

Skan : https://www.virustotal.com/pl/file/e8e8a5be502c1e1fa7e6287ead4c933ef2abc70ef8f2602c8284b7bfd906cbee/analysis/

 

Jakby Cię to denerwowało to mogę skasować post.

Nie działa mi to  pisze że przestało działać 

Nie działa mi to  pisze że przestało działać 

Spróbuj pobrać to:

Update 2

+ Dodano NameChanger

Swords and Sandals II.rar Skan

Działa