Miesco

I have not tried it with windows. I have not even used perll with windows but it probably will since perll is portable. You can try it and post any errors here. (s/perll/perl/ if I use the proper name in a message I get an error when I try to post)

Shawnbot, singled threaded subspace bot in perl, made on linux: http://shawnbot.sscentral.com/

For some reason now my bot is all of a sudden not receive kill packets... when someone dies it does not get the kill packet, is there any reason for this that you know of?

Never mind

I have heard that ALL packets are encrypted after the 00 02 response. I am connecting to a normal server without encryption here: enc request sent: 0 1 26 -39 34 -17 1 0 Received: 00 05 58 98 84 0e Got core packet type: 05 server sync request: 0 5 88 152 132 14 sync response sent: 00 06 58 98 84 0e c8 44 40 00 Received: 00 02 e6 26 dd 10 00 17 cb 4f 1c 50 82 48 96 66 67 12 bd d4 c4 53 0c 4a 4f f4 9c 1f b4 da 23 17 41 8f d0 cd 10 59 6f cd 6a a5 3c f2 72 e5 d7 f3 bc 82 b0 c6 bd c7 5f c5 8c 0a 7f 6f a2 e0 5e ef cb fa 40 8e 0f 9a 11 67 48 ee 75 dd 8d fd c2 c0 68 f7 3c d5 a0 dc 07 4a d7 8c 5a 3d 48 d9 38 1f 37 f5 7f 67 f9 5f 7f 3e 21 b6 28 56 01 db b9 81 6b 3d 75 e6 10 53 06 89 32 76 55 ee 82 1f 5a a7 4f 0d 04 7d 47 dc 45 28 41 Got core packet type: 02 server enc response: 0 2 230 38 221 16 0 23 203 79 28 130 72 150 102 103 18 189 212 196 83 12 74 79 244 156 31 180 218 35 23 65 143 208 205 16 89 111 205 106 165 60 242 114 229 215 243 188 130 176 198 189 199 95 197 140 10 128 127 111 162 224 94 239 203 250 64 142 15 154 17 103 72 238 117 221 141 253 194 128 192 104 247 60 213 160 220 7 74 215 140 90 61 72 217 56 31 55 245 127 103 249 95 127 62 33 182 40 86 1 219 185 129 107 61 117 230 16 83 6 137 50 118 85 238 130 31 90 167 79 13 4 125 71 220 69 40 65 server key: 282928870 password sent: 09 00 73 68 61 77 6e 62 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 70 70 70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 4c 00 00 00 f0 00 9d 6f 86 00 bc 01 00 00 2b 02 00 00 03 09 54 00 00 00 00 00 00 00 00 00 00 00 00 00 sync request sent: 00 05 e3 44 40 00 03 00 00 00 02 00 00 00 Received: 00 06 e3 44 40 00 9c 0f 10 33 Got core packet type: 06 server sync response: 0 6 227 68 64 0 156 15 16 51 Received: 00 07 Got core packet type: 07 disconnected As you can see from the 00 06 response, and the 00 07, the packets are not encrypted. I tried encrypting them after the 00 02, and I am decrypting NON-decrypted packets. Am I missing something packets being encrypted?

I think I already got the encryption this is what I got (in perl): sub initialize { my $seed = $_[0]; my ($tempSeed, $oldSeed); $tempSeed = $seed; for ($i = 0; $i < (520 / 2); $i++) { $oldSeed = $tempSeed; $tempSeed = (($oldSeed * 0x834E0B5F) >> 48) & 0xffffffff; $tempSeed = (($tempSeed + ($tempSeed >> 31)) & 0xffffffff); $tempSeed = (((($oldSeed % 0x1F31D) * 16807) - ($tempSeed * 2836) + 123) & 0xffffffff); if ($tempSeed > 0x7fffffff ) { $tempSeed = (($tempSeed + 0x7fffffff) & 0xffffffff); } $table[$i .. ($i+1)] = ence_short(short(tempSeed & 0xffff)); } } sub ssencrypt { my @packet = @_; my ($tempKey, $count, @output); $tempKey = $serverKey; #$count = scalar(@packet) + (4 - scalar(@packet) % 4); $count = scalar(@packet); @output = @packet; for ($i = 0; $i < $count; $i += 4) { $tempInt = dece_int(@output[$i .. ($i+3)]) ^ dece_int($table[$i]) ^ $tempKey; $tempKey = $tempInt; @output[$i .. ($i+3)] = ence_int(int($tempInt & 0xffffffff)); } return @output; } sub ssdecrypt { my @packet = @_; my ($tempKey, $count, @output); $tempKey = $serverKey; #$count = scalar(@packet) + (4 - scalar(@packet) % 4); $count = scalar(@packet); @output = @packet; for ($i = 0; $i < $count; $i += 4) { $tempInt = dece_int($table[$i]) ^ $tempKey ^ dece_int(@output[$i .. ($i+3)]); $tempKey = dece_int($i .. ($i+3)); @output[$i .. ($i+3)] = ence_int(int($tempInt & 0xffffffff)); } return @output; }

Yea I know for sure that it won't go open source, Mr. Ekted strongly believes in closed source, he won't do nothing

I think its a good idea to make the client modular so you can add modules, and then make it open source

Well I did know what the xor operator does, but I didn't know you can swap numbers like that. Anyways, im looking to see an explaination of the subspace encryption.

Could someone please explain the encryption, I know it uses the XOR operator but what does it do to each byte?

Are you sending in little-endian byte order? to check you could send the last short packet seperatly, as 01 00 so it would be like: packet.type=0x00; packet.subtype=0x01; packet.key=-(rand() % 0x7FFFFFFF); packet.version1=0x01; packet.version2=0x00;

Well I sent a sync response 00 06 (server timestamp integer) (my timestamp integer) I do not get a 00 02, or anything after I send that packet. I am sending the packet like I sent the 00 01 packet, no reliable/encrypted packets or anything. Could you tell me what I might be doing wrong? Here is a sync response packet I have sent: sync responst sent: 0 6 6 33 0 21 114 42 186 0, size: 10

ts: 262217, size: 6 ts: 235077706, size: 6 ts: 640876619, size: 6 ts: 76, size: 6 This is the timestamp I got in the 00 05 packet after sending the 00 01, ts is the timestamp, I ran the program 4 times in a row, now is the timestamp suppost to be random like this?

Are you looking for the encyrption to and from 4 byte/2 byte little-endian integers/shorts?

Here take mine: sub encrypt { @data = @_; $encrypted = pack("C*", @data); return $encrypted; } sub decrypt { $data = $_[0]; $i = 0; foreach (unpack("C*", $data)) { $decrypted[$i] = sprintf("%x", $_); $i++; } return @decrypted; }

Ok I know how to make the packets and send them, so I only need to ask protocol questions, which do not regard perl. When I send a client key packet (00 01), I receive a sync request (00 05) packet, that is all I receive. Is this suppost to happen?

Nevermind I got it, finally. You just have to make the packets into characters, then send it. I just used an already made bot and made a server to get the first packet, and saw that the bot was sending characters. Also on the core packet type 05, this is what I got: @syncR = (0x00, 0x05, 0x6D, 0xE1, 0x1E, 0x00, 0x06, 0x00, 0x00, 0x00, 0x04, 0x 00, 0x00, 0x00); (I got that from twcore) One place in http://catid.ssihosting.com/files/addendum.txt it says: 00 05 SS SS RR RR 'SS = Number of connections since last recycle 'RR = Random number And in another place it says: 00 05 - Sync. request 00 05 [ ] NOTE: As you notice, the packet counts are optional. Could someone tell me what one I should be using please?

This is what im doing: $keyp=pack("s*", 0x00, 0x01, -72, -54, -23, -68, 0x01, 0x00); print "$keyp\n"; defined(send(SOCKET, $keyp, 0, $portaddr)) || die "send $server: $!"; print "Key sent\n"; $maxlen=128; $portaddr = recv(SOCKET, $keyr, $maxlen, 0) or die "recv: $!"; ($port, $ipaddr) = sockaddr_in($portaddr); $host = gethostbyaddr($ipaddr, AF_INET); print "$host($portno) said ".$keyr."\n"; output is: ¸ÿÊÿéÿ¼ÿ Key sent I don't get any reply I also tried using an array: @key=(0x00, 0x01, -72, -54, -23, -68, 0x01, 0x00); print "@key\n"; defined(send(SOCKET, "@key", 0, $portaddr)) || die "send $server: $!"; print "Key sent\n"; $maxlen=128; $portaddr = recv(SOCKET, $keyr, $maxlen, 0) or die "recv: $!"; ($port, $ipaddr) = sockaddr_in($portaddr); $host = gethostbyaddr($ipaddr, AF_INET); print "$host($portno) said ".$keyr."\n"; output: 0 1 -72 -54 -23 -68 1 0 Key sent I still did not get any reply Am I sending these packets wrong?

Could you tell me how the integer would look like in C

Could you tell me what it looks like in C, a packet holding 00 01 DE AD BE EF 00 01

Ok, then could the packet look like this: 0x0001DEADBEEF0001

Yea I saw something like that in the twcore bot. Could I just send it like: key = 0x0001DEADBEEF0001 or could I send each individually like: key = 0x00 send key = 0x01 send key = 0xDEADBEEF send key = 0x0001 send

Ok that is wrong, I know its not a string you send. Do I send it like 0x00 0x01 0xDEADBEEF 0x01 0x00? What do these packets look like when they are sent?

Ok THANKS, so this is what it would look like in code: $key="00 01 EF BE AD DE 01 00"; $remote->send($key); Does the server exepts the packets send like this? Where $key is the data being sent. Also is there a fast way to get a response from the server, to make sure im connecting right, if not what do I have to do to get a resonse from the server.

Yea, while your at it, add an if statement for macros, it would be like //%if %red != "" (Checking for red... Success: %red)