duckblaster Posted August 24, 2008 Share Posted August 24, 2008 (edited) . Edited March 28, 2009 by duckblaster Link to comment Share on other sites More sharing options...
JRowe Posted August 24, 2008 Share Posted August 24, 2008 If you have a webserver or an image hosting account, you could upload the image to the web, and then download easily on the other end. [center]However, like ninjas, cyber warriors operate in silence.AutoIt Chat Engine (+Chatbot) , Link Grammar for AutoIt , Simple Speech RecognitionArtificial Neural Networks UDF , Bayesian Networks UDF , Pattern Matching UDFTransparent PNG GUI Elements , Au3Irrlicht 2Advanced Mouse Events MonitorGrammar Database GeneratorTransitions & Tweening UDFPoker Hand Evaluator[/center] Link to comment Share on other sites More sharing options...
cppman Posted August 24, 2008 Share Posted August 24, 2008 First of all, I wouldn't recommend sending/receiving messages in such huge chunks: $recv = TCPRecv($ConnectedSocket, 1073741824) Miva OS Project Link to comment Share on other sites More sharing options...
SoulA Posted August 24, 2008 Share Posted August 24, 2008 (edited) I am working on a similar program. This seems to work pretty good for me when I send my screenshots. One thing is the quick sleep can probably be changed but I had a huge problem not having a sleep and the program sending faster than the client could write to a file and it would miss info. The other note is the sendPacket() is a UDF I made that is a TCPSend() with some error checking and connFail() is just a routine to go through when establishing a reconnect. Func sendFile($file, $delete = 0) $FileOpen = FileOpen($file, 16) ;opens in binary mode... means you should write in binary mode in client $FileSize = FileGetSize($file) $BytesSent = 0 While $BytesSent < $FileSize $ReadFile = FileRead($FileOpen, 4096) TCPSend($socket, $ReadFile) If @error Then FileClose($FileOpen) If $delete = 1 Then FileDelete($file) connFail() EndIf $BytesSent = $BytesSent + 4096 sleep(20) ;allows other computer time to write to file LARGE PROBLEM TIME TO FIX..... 45 MINUTES!!!!!!!!!!!! WEnd sleep(20) sendPacket("Transfer Complete") FileClose($FileOpen) If $delete = 1 Then FileDelete($file) EndFunc Edited August 24, 2008 by SoulA Link to comment Share on other sites More sharing options...
LarryDalooza Posted August 24, 2008 Share Posted August 24, 2008 you could study this thread. I am not a master communicator, but if you can read code, you can use what I have written...http://www.autoitscript.com/forum/index.ph...st&p=567531Lar. AutoIt has helped make me wealthy Link to comment Share on other sites More sharing options...
SoulA Posted August 25, 2008 Share Posted August 25, 2008 can you send me the full program please? i would like to see how you have made yours, mine needs the extra code removedI would rather keep my code for now because I may be using it as a project. I posted this small bit because I gathered a lot of it from programs already posted on the forums. I can try to point you in the right direction if you have any questions/want advice. Link to comment Share on other sites More sharing options...
qazwsx Posted August 25, 2008 Share Posted August 25, 2008 sounds like you are making a RAT search for Radical in the example script forum. Link to comment Share on other sites More sharing options...
SoulA Posted August 25, 2008 Share Posted August 25, 2008 sounds like you are making a RAT search for Radical in the example script forum.wait what? Link to comment Share on other sites More sharing options...
qazwsx Posted August 25, 2008 Share Posted August 25, 2008 a RAT is a remote administration tool. Radical is the name of a RAT created by a member of this forum. His program is great and has a feature to see the users screen. In order to implement this feature he would have to send picture files quickly. Link to comment Share on other sites More sharing options...
duckblaster Posted March 28, 2009 Author Share Posted March 28, 2009 . Link to comment Share on other sites More sharing options...
Recommended Posts