O3 Hack Aeria [US,DE,RU...]

		Public Sub Protect()
			Dim processesByName As Process() = Process.GetProcessesByName("Fiddler")
			Dim processesByName2 As Process() = Process.GetProcessesByName("SimpleAssemblyExplorer")
			Dim processesByName3 As Process() = Process.GetProcessesByName("Reflector")
			Dim processesByName4 As Process() = Process.GetProcessesByName("HxD")
			Dim processesByName5 As Process() = Process.GetProcessesByName("Ollydb")
			Dim flag As Boolean = processesByName.Length <> 0
			If flag Then
				processesByName(0).Kill()
				Interaction.MsgBox("Fiddler Detected!", MsgBoxStyle.Critical, "WTF?!")
				Me.Close()
			End If
			flag = (processesByName2.Length <> 0)
			If flag Then
				processesByName2(0).Kill()
				Interaction.MsgBox("SimpleAssemblyExplorer Detected!", MsgBoxStyle.Critical, "WTF?!")
				Me.Close()
			End If
			flag = (processesByName3.Length <> 0)
			If flag Then
				processesByName3(0).Kill()
				Interaction.MsgBox("Reflector Detected!", MsgBoxStyle.Critical, "WTF?!")
				Me.Close()
			End If
			flag = (processesByName4.Length <> 0)
			If flag Then
				processesByName4(0).Kill()
				Interaction.MsgBox("HxD Detected!", MsgBoxStyle.Critical, "WTF?!")
				Me.Close()
			End If
			flag = (processesByName5.Length <> 0)
			If flag Then
				processesByName5(0).Kill()
				Interaction.MsgBox("Ollydb Detected!", MsgBoxStyle.Critical, "WTF?!")
				Me.Close()
			End If
		End Sub