Send any file over TCP

[jvanegmond]

Topic removed: Technology is outdated.

Edited September 16, 2007 by Manadar

[ptrex]

Looks simple and effective !!

Not tested is yet, though.

Good job !!

[YoseMite]

Where does convert.exe for neet?

I've got an error if I will open it:

Line 0 (File "C:\..\..\convert.exe");

$File=$Cmdline[1]
$File=^ERROR 

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Edited May 23, 2006 by YoseMite

[jvanegmond]

Sorry, i forgot to post the script that's in the exe. I will do this later. The exe converts REPNULL back to a Chr(0). You have to run the .exe with a parameter which contains the file to convert. So if you want to a convert a file back to the original (the script does this too once's it's completed.) you have to run:

Convert.exe "C:\File to convert.jpg"

I hope this makes sence to you.

Edited May 23, 2006 by Manadar

[GtaSpider]

i've follow error:

Website gesperrt!

G DATA AntiVirenKit hat den Zugriff auf diese Webseite verweigert.

Die Seite enthält infizierten Code: Trojan.Downloader.Agent.PG.

in English:

Website closed! G DATA anti-virus kits refused the access to this web page. The side contains infected code: Trojan.Downloader.Agent.PG.

*bg* i've written self a FileOverTCP Programm look here:

http://autoit.aufwaerts.de/thread.php?threadid=414

When desired i can post it here, too!

[Pakku]

have you seen the one i made?

you can find it in my signature.

Arjan

[RazerM]

I have taken out the need for convert.exe by using the fantastic coroutine UDF Coroutine.au3Here is the modified share client Share_Client.au3 Note: not tested because it doesnt work on my comp (i think because i am on a LAN)

Edited May 23, 2006 by RazerM

[jvanegmond]

Razer, TCP functionallity in autoit can work over lan because i'm behind a router and i can set up a server etc. just by forwarding the proper port. Anyway, i will look forward into studying this coroutine udf you included.

GtaSpider, unfortunately my knowdledge of german is very limited and i can't really understand the posts you have made in your link. However, if you could explain to me what your script or idea's can help my script. That will be very welcome. However, i'd like to know, you must have had issues sending a 0 Character? How did you resolve this?

arjan staring, in your topic i noticed that someone posted this:

If you sent an exe, wouldn't it hang on any Chr(0)'s?

The answer to this is yes, Most files are actually full of Chr(0) and you can Not TCP Send a 0 character. So that's the reason why i have actually scripted this, now being abled to send 0 characters (in Scite those appear as black blocks [NUL]) you can send ANY file over the inet.

Also, arjan staring, try sending testimage.jpg included in this rar file with your script. You will notice graphical corruption in the image, or you may not be abled to open it.

Edited May 23, 2006 by Manadar

[RazerM]

but does the script i provided work Manadar (Share Client.au3) i have already modified it to use the coroutine UDF

[jvanegmond]

but does the script i provided work Manadar (Share Client.au3) i have already modified it to use the coroutine UDF

I didn't have the script on this PC anymore so i was forced to redownload it. that's the reason why i wanted to wait in the first place.

other then that autoit required me to define $convert it didn't work at all.

First line from the sent testfile.jpg

ÿØÿàREPNULLJFIFREPNULLREPNULLREPNULLdREPNULLdREPNULLREPNULLÿìREPNULLDuckyREPNULL

You can see the REPNULL has not been replaced. This may be due to that you forgot to define $file in the extra file you are writing?

[Edit] The unexpected number of posts and interest in this subject has led me to believe there is no fixed solution. I will now try to build a good FileSend function/script in the next days.

Edited May 23, 2006 by Manadar

[RazerM]

I made a quick test using

#include <coroutine.au3>
$File = "C:\test.txt"
$convert = _CoCreate('Func Convert($File)||$Filehdl = FileOpen($File, 0)||$Data = FileRead($Filehdl)||FileClose($Filehdl)||$Filehdl = FileOpen($File, 2)|FileWrite($Filehdl,StringReplace($Data, "REPNULL", Chr(0), 0, 1 ) )|FileClose($Filehdl)|Return 1|EndFunc')
_CoStart($convert, "$File")

with the code you posted above (when REPNULL wans't replaced) and it worked

Edited May 23, 2006 by RazerM

[evilertoaster]

So wait a sec...Is filesending a problem over TCP? I have written a script that does this fine i think...i don't remember having an issue with this Chr(0) thing...I'll check it later as I don't have the source on me ATM...but would it be anything special? I thought i've already seen other scripts so this also...

[evilertoaster]

OK so here's the excerpt from a script I wrote--

Senders code-

expandcollapse popup

$filetosend=FileOpenDialog ("Select the file to send",@DesktopDir, "All Files (*.*)")
if $filetosend="" then Return
TrayTip("Connection to " & $fileipto & " established","Asking to send file... ",5)
$fsize= FileGetSize($filetosend)
TCPSend($fileconsock, $filelocalhost & "?" & $filetosend & "?" & $fsize)
While 1
    $YesNo = TCPRecv($fileconsock,10)
    If $YesNo = "Yes" Then ExitLoop
    If $YesNo = "No" Then 
        MsgBox(0,"Request Denied",$fileipto & " has denied your file send request")
        Return
    EndIf
WEnd
TrayTip("Loading file to TCP Buffer","",15)
If $fsize>1000000000 Then
    MsgBox(0,"Error: Internal","File sizes greater than 100 MB are currently not suported")
    Return
EndIf
$tosend=FileRead($filetosend,$fsize)
$check=TCPSend($fileconsock,$tosend)
If $check <> $fsize Then MsgBox(0,"Error: " & @error,"Error Sending File") 
TrayTip("Done","Host can download file...",15)
oÝ÷ ٩ݶ«yȽêìjëh×6
While 1
    $cleintIp = TCPRecv($fileosocket, 512)
    If $cleintIp <> "" Then 
        $cleintIp = StringSplit ($cleintIP, "?")
        $a = MsgBox(4,"File Request",$cleintIp[1] & " wants to send you " & $cleintIp[2] & ". Accept file?")
        If $a = 7 Then 
            TCPSend ($fileosocket,"No")
            ExitLoop
        EndIf
        If $a = 6 Then
            dim $incomming
            ProgressOn("Recieving File: " & $cleintIP[2] ,"time:","Received - ","","",18)
            $filetype=StringRight($fcleintIp[2],5)
            if stringleft($filetype,1)<>"." Then $filetype=stringright($filetype,3)
            $save=FileSaveDialog ("Save file to where",@DesktopDir,$filetype & " (*." & $filetype & ")")
            $fpath = $save & "." & $filetype    
            $save = FileOpen($fpath,1)
            $total=0
            Do 
                $flush=TCPRecv($fileosocket,$filepacketsize)
                $total = $total +1
            Until $total=3
            TCPSend($fileosocket,"Yes")
            $timmer=TimerInit()
            $updater=25
            While 1
                $incomming = TCPRecv ($fileosocket,$filepacketsize)
                $hex=string($incomming)
                if $hex<>"" then
                    FileWrite($save,$incomming)
                    $total= $total + StringLen($hex)/2
                    $updater=$updater-1
                    if $updater=0 then
                        ProgressSet($total/$cleintIP[3]*100,Round (($total/1024)/(TimerDiff($timmer)/1000),1) & "KBs/Sec",Round($total/1024,1)  & "KB of " & Round($cleintIP[3]/1024,1))
                        $updater=25
                    EndIf
                EndIf
                if $total >= $cleintIP[3] then exitloop
            Wend 
            FileClose($save)
            ProgressOff()
            MsgBox(0,"File's Done", "Recived File: " & $fpath)
            ExitLoop
        EndIf
    EndIf
WEnd

Of course the 100MB limit is just becuase the TCP buffer is 128MB (I think?) but it can be worked around by splitting the file into smaller peices first.

And of course this code wont compile becuase it's just a snippet... but anyways I don't think i ever had any problems with it...that chr(0) thing doesnt' make sense to me...

Edit: Hey BTW how do you make your code color-highlighted after you post it?

Edit2: OOO pretty..Thanks Razer

Edited May 24, 2006 by evilertoaster

[RazerM]

use [ autoit] code here [ /autoit] tags without the spaces

[BillLuvsU]

Ok, tell me if I have this right.

The function won't work because the null charectar (Asc( 0 ) ) wont be accepted through the TCPSend function.

If that is right wouldn't it be a simple matter of Using a func like:

Func _StringReplaceAllNullsAndSend( $string )
   $string = StringBreak( $string )
   For $i = 0 To StringLen( $string[0] )
      If $string[$i] = Asc( 0 ) Then $string[$i] = "NULL CHARECTER"
   Next
   _SendStringOverTCP( $string )
EndFunc
oÝ÷ Ùh­§îËh­ç"z÷­ë-®)àjwcºË]¢Ø^¢h²+^jëh×6
Func _StringReturnAllNullsAndSend( $string )
   $string = StringBreak( $string )
   For $i = 0 To StringLen( $string[0] )
      If $string[$i] = "NULL CHARECTER" Then $string[$i] = Asc( 0 ) 
   Next
   Return _ArrayCombine( $string )
EndFunc

Now could someone please explain to me why these wouldn't work?

P.S. The funcs _StringBreak( ) and _ArrayCombine( ) are funcs I have on my comp. _stringBreak( ) Turns a string into into an array with array dimension 0 saying how many letters there are and the others having one letter in each so _StringBreak( "Hello" ) Would turn out like

$array[0] = 5

1 = H

2 = e

3 = l

4 = l

5 = o

and _ArrayCombine just does the exact opposite.

[jvanegmond]

Ok, tell me if I have this right.

The function won't work because the null charectar (Asc( 0 ) ) wont be accepted through the TCPSend function.

If that is right wouldn't it be a simple matter of Using a func like:

Func _StringReplaceAllNullsAndSend( $string )
   $string = StringBreak( $string )
   For $i = 0 To StringLen( $string[0] )
      If $string[$i] = Asc( 0 ) Then $string[$i] = "NULL CHARECTER"
   Next
   _SendStringOverTCP( $string )
EndFunc
oÝ÷ Ùh­§îËh­ç"z÷­ë-®)àjwcºË]¢Ø^¢h²+^jëh×6
Func _StringReturnAllNullsAndSend( $string )
   $string = StringBreak( $string )
   For $i = 0 To StringLen( $string[0] )
      If $string[$i] = "NULL CHARECTER" Then $string[$i] = Asc( 0 ) 
   Next
   Return _ArrayCombine( $string )
EndFunc

Now could someone please explain to me why these wouldn't work?

P.S. The funcs _StringBreak( ) and _ArrayCombine( ) are funcs I have on my comp. _stringBreak( ) Turns a string into into an array with array dimension 0 saying how many letters there are and the others having one letter in each so _StringBreak( "Hello" ) Would turn out like

$array[0] = 5

1 = H

2 = e

3 = l

4 = l

5 = o

and _ArrayCombine just does the exact opposite.

What's wrong with StringReplace?

StringReplace($string,Chr(0),"NULL CHARACTER")

Done! The extra .exe is in there because if the sender starts immediately to another file, the whatsitcalled.exe then does the reverse stringreplace.