SolarStrike Software

Code: Select all

 Begin
     // Set this to the IP of the client where the bot is running
     Variable.Set("BotIP1", "10.0.0.7")
     Variable.Set("BotIP2", "10.0.0.8")
     Function.Execute("loop")
 end

function("loop")
     begin loop("")
          Keyboard.Wait for one of the following keys to be pressed("{<F9>}{<F10>}", "Command")
          Function.Execute("{Command}")
     end
function

function("{<f9>}")
     begin
          Variable.Evaluate (Text)("DNGEnter","Command")
          Network.Send message (TCP)("{BotIP1}", "{Command}")
          Network.Send message (TCP)("{BotIP2}", "{Command}")
     end
function

function("{<f10>}")
     begin
          Variable.Evaluate (Text)("DNGExit","Command")
          Network.Send message (TCP)("{BotIP1}", "{Command}")
          Network.Send message (TCP)("{BotIP2}", "{Command}")
     end
function

Code: Select all

addHPPoke = 0x0070BE0F;
dataHPPoke = {0xE9, 0xFB, 0x3F, 0x6, 0x00, 0x90};

addHP = 0x00DEFE0F;
dataHP = {0x8B, 0x58, 0x04, 0x89, 0x1D, 0x10, 0xEF, 0xDD, 0x00, 0x8B, 0x58, 0x4C, 0x89, 0x1D, 0x14, 0xEF, 0xDD, 0x00, 0x8B, 0x58, 0x08, 0x89, 0x1D, 0x18, 0xEF, 0xDD, 0x00, 0x8B, 0x58, 0x50, 0x89, 0x1D, 0x1C, 0xEF, 0xDD, 0x00, 0xEB, 0xDA, 0xE9, 0xDA, 0xBF, 0x91, 0xFF};

function memoryWriteCC(proc, address, msg)
local l_msg_len = table.getn(msg);
local l_char = nil;
for i=1, (l_msg_len) do
-- l_char = msg:byte(i)
printf("address: %x; value: %s\n", address + i - 1, msg[i]);
memoryWriteByte(proc, address + i - 1, msg[i])
end
-- memoryWriteByte(proc, address + l_msg_len, 0)
end

Code: Select all

memoryWriteCC(processName, addHPPoke, dataHPPoke);
memoryWriteCC(processName, addHP, dataHP);

Code: Select all

CNetworkServer = class(
	function (self)
		netPushKey("encryptionKey", "12345");
	end
);

function CNetworkServer:start()
	listen = netOpenCon("0.0.0.0", "default");
	
	if( netListen(listen) ~= 0 ) then
	  printf("Error making connection.\n");
	end	
	
	print("Waiting for a client...");
	 
	-- Lets wait until a client joins our server.
	netcon = netPollListen(listen);
	while(netcon == nil) do
	print("Waiting for a client...");
	  netcon = netPollListen(listen);
	  rest(100);
	end
	
	while(netPollMessages(netcon)) do
		-- remember, in our example, we sent: 12, "Hello my name is John Doe."
		local message = netGetMessage(netcon);
		local messId = message[1];

		printf("Received message: %s\n", messId);

		if (messId == 1) then
			--enterDNG();
		elseif (messId == 2) then
			--exitDNG();
		end	
	end
end

function netStart()
	netServer = CNetworkServer();
	if (netServer) then
		netServer:start();
	end
end

startMacro(netStart);

Code: Select all

CNetworkClient = class(
	function (self)
		netPushKey("encryptionKey", "12345");
	end
);
	
function CNetworkClient:connect(ip)

	netcon = netOpenCon("encryptionKey");
	if( netConnect(netcon, ip) == 0 ) then
		print("Attempting connection...");

		-- We wait until our connection status is either an error, or a successful connection
		status = netConnectStatus(netcon);
		while( status == 0 ) do
			status = netConnectStatus(netcon);
		end
		if( status > 0 )then
			print("Connection success!");
			return true;
		else
			print("Connection failed!");
			return false;
		end
	else
		print("Error initializing connection.");
		return false;
	end

end

function CNetworkClient:sendNetMessage(messId)
    if (netcon ~= nil) then
      printf("Message (%i) sent to %s: %b\n", messID, ip, (netSendMessage(netcon, messId) == 0));
    end
end


function EnterDNG()
  sendNetMessage(1);
end

function ExitDNG()
  sendNetMessage(2);
end

function main()
	client = CNetworkClient();
	client:connect("128.0.0.1:62751");
	EnterDNG();
end

startMacro(main);

Code: Select all

listen = netOpenCon("0.0.0.0", "default");

Code: Select all

listen = netOpenCon("0.0.0.0", "encryptionKey");

Code: Select all

CNetworkServer = class(
	function (self)
		netPushKey("encryptionKey", "12345");
	end
);

function CNetworkServer:start()
	listen = netOpenCon("0.0.0.0:62751", "encryptionKey");
	
	if( netListen(listen) ~= 0 ) then
	  printf("Error making connection.\n");
	end	
	while (1) do
		printf("Waiting for a client...");
		 
		-- Lets wait until a client joins our server.
		netcon = netPollListen(listen);
		while(netcon == nil) do
			printf(".");
			netcon = netPollListen(listen);
			rest(100);
		end
		printf("Connection success!\n");
	
		local messId = nil;
		while(netPollMessages(netcon)) do
			-- remember, in our example, we sent: 12, "Hello my name is John Doe."
			local message = netGetMessage(netcon);
			messId = message[1];

			printf("Received message: %s\n", messId);
		end
		
		if (messId == 1) then
			--enterDNG();
		elseif (messId == 2) then
			--exitDNG();
		elseif (messId == 3) then
			return;
		end	
	end
end

function netStart()
	netServer = CNetworkServer();
	if (netServer) then
		netServer:start();
	end
end

startMacro(netStart);

Code: Select all

CNetworkClient = class(
	function (self)
		self.ip = 0;
		self.netcon = 0;
		netPushKey("encryptionKey", "12345");
	end
);
	
function CNetworkClient:connect(ip)

	self.netcon = netOpenCon("encryptionKey");
	if( netConnect(self.netcon, ip) == 0 ) then
		printf("Attempting connection...");

		-- We wait until our connection status is either an error, or a successful connection
		status = netConnectStatus(self.netcon);
		while( status == 0 ) do
			printf(".");
			status = netConnectStatus(self.netcon);
		end
		if( status > 0 )then
			printf("Connection success!\n");
			self.ip = ip;
			return true;
		else
			printf("Connection failed!\n");
			return false;
		end
	else
		printf("Error initializing connection.\n");
		return false;
	end

end

function CNetworkClient:sendNetMessage(messId)
    if (self.netcon ~= nil) then
		printf("Message (%i) sent to %s: %s\n", messId, self.ip, (netSendMessage(self.netcon, messId) == 0));
		-- netSendMessage(self.netcon, messId);
    end
end

function CNetworkClient:close()
	netCloseCon(self.netcon);
end

function EnterDNG()
  client:sendNetMessage(1);
end

function ExitDNG()
  client:sendNetMessage(2);
end

function main()
	client = CNetworkClient();
	client:connect("127.0.0.1:62751");
	EnterDNG();
	client:close();
end

startMacro(main);

Code: Select all

CNetworkServer = class(
   function (self)
      netPushKey("encryptionKey", "12345");
   end
);