User Control Panel
Advertisements
HELP US, HELP YOU!
Author
Message
MikeFairbrother Senior MemberPosts: 179
Posted: Thu Mar 04, 2004 5:24 pm Post subject:
Hi, does anyone know a command for transfering files, like you choose !desktop1 and it will send you the wallpaper....
Back to top
zander God LikePosts: 540
Posted: Mon Mar 08, 2004 2:20 pm Post subject:
erm *lazy* gonna need msnftp which i dont think anyone in this forum has and for the chatroom *lazy* need to know how to do fake file transfers i been wantingit for ages
Back to top
BraveHeart Senior MemberPosts: 285
Posted: Mon Mar 08, 2004 2:45 pm Post subject:
I know how to use fake files without msnftp, but *lazy* cant get ips or a anything
Back to top
zander God LikePosts: 540
Posted: Mon Mar 08, 2004 10:51 pm Post subject:
*lazy* have fake file transfer dont *lazy* braveheart hows about *lazy* share it with us all
Back to top
jonphamta Senior MemberPosts: 247
Posted: Tue Mar 09, 2004 1:35 am Post subject:
Heres the MSNFTP module (I DIDN'T make it, i never said i did Code: package MSNFTP;<br /><br />use strict;<br />use IO::Socket;<br /><br />my ( $totalSize, $doneSize, $allDone, $isbinary );<br /><br /><br />my (<br /> $rHost, $rPort, $rUsername, $meUsername, $meID, $filename, $remote, $bBuffer, $bSize, $gid, $uid, $inp, $mode, $dev, $atime, $mtime, $blksize, $filepath, $bufferSize, @lines, $maxKB, $totalKB, $nread, $nwritten, $ltosend, $stuff, $stuff_len, $appGUID, $ino, $rdev, $ctime, $blocks, $line, $bStatus, $bitem, $nlink<br />);<br /><br /><br />sub connect {<br /> shift;<br /> $rHost = shift;<br /> $rPort = shift;<br /> $rUsername = shift;<br /> $meUsername = shift;<br /> $meID = shift;<br /> $filename = shift;<br /> unless ( $rHost<br /> && $rPort<br /> && $rUsername<br /> && $meUsername<br /> && $meID<br /> && $filename )<br /> {<br /> die "Usage:<br />MSNFTP->connect(remoteHost, remotePort, remoteUsername, myUsername, AuthCookie, FileName)\n";<br /> }<br /><br /> $filepath = "C:/Documents and Settings/Nicholas/Desktop/$rUsername-$filename";<br /><br /> $remote = IO::Socket::INET->new(<br /> Proto => "tcp",<br /> PeerAddr => $rHost,<br /> PeerPort => $rPort,<br /> Reuse => 1<br /> )<br /> or die "Can't connect to $rHost:$rPort: $!\n";<br /> print<br />"Connecting to MSNFTP Server:\n$rUsername ($rHost:$rPort) is sending $filename\n";<br /><br /> $remote->blocking(0);<br /> $remote->autoflush(1);<br /> my $isbinary = "no";<br /> my $allDone = "no";<br /><br /> SendData( $remote, "VER MSNFTP" );<br /><br /> do {<br /> $nread = sysread( $remote, $inp, 1024 );<br /> if ( $isbinary eq "yes" ) {<br /> my (@binary) = split ( //, $inp );<br /> $bStatus = ord( $binary[0] );<br /> $bSize = ord( $binary[1] ) + ( ord( $binary[2] ) * 256 );<br /> if ( $bStatus eq 0 && $bSize < 2046 && $bSize > 0 ) {<br /><br /> #print "status=$bStatus size=$bSize\n";<br /> splice( @binary, 0, 3 );<br /> }<br /><br /> $bBuffer = "";<br /> foreach $bitem (@binary) {<br /> $bBuffer = $bBuffer . $bitem;<br /> }<br /><br /> open( FILE, ">>$filepath" )<br /> or die "Error opening $filepath: $!";<br /> binmode FILE<br /> or die "Error switching to binary mode for $filepath: $!";<br /> print FILE $bBuffer or die "Error printing to $filepath: $!";<br /> close FILE or die "Error closing $filepath: $!";<br /> $bBuffer = "";<br /> (<br /> $dev, $ino, $mode, $nlink, $uid,<br /> $gid, $rdev, $bufferSize, $atime, $mtime,<br /> $ctime, $blksize, $blocks<br /> )<br /> = stat($filepath);<br /> $doneSize = $bufferSize;<br /><br /> #print "done=$doneSize total=$totalSize\n\n";<br /> if ( $doneSize == $totalSize ) { $allDone = "yes"; }<br /> if ( $allDone eq "yes" ) {<br /> $isbinary = "no";<br /><br /> #SendData( $remote, "BYE 2164261682");<br /> SendData( $remote, "BYE 16777989" );<br /> close $remote;<br /> }<br /> }<br /> elsif ( $isbinary eq "no" && $allDone eq "no" ) {<br /> @lines = split ( /\*lazy*\n/, $inp );<br /> foreach $line (@lines) {<br /> print "MSNFTP->RX: " . $line . "\n";<br /> my ( $cmd, @data ) = split ( / /, $line );<br /> if ( $cmd eq 'VER' ) {<br /> if ( $line =~ /MSNFTP/ ) {<br /> SendData( $remote, "USR $meUsername $meID" );<br /> }<br /> else {<br /> die "Unsupported version: \"", join ( " ", @data ),<br /> "\"\n";<br /> }<br /> }<br /> elsif ( $cmd eq 'FIL' ) {<br /> chomp $data[0];<br /> chomp $data[0];<br /> $totalSize = $data[0];<br /> $totalKB = $totalSize / 1024;<br /> $maxKB = 512;<br /> $doneSize = 0;<br /><br /> if ( $totalKB < $maxKB ) {<br /> unlink $filename;<br /> SendData( $remote, "TFR" );<br /> $isbinary = "yes";<br /> print<br />"Entering binary mode to receive file of $totalKB KB.\n";<br /> }<br /> else {<br /> SendData( $remote, "BYE 2147942405" );<br /> close $remote;<br /> print<br />"Refused to receive file of $totalKB KB. Maximum acceptable size is $maxKB KB.\n";<br /> }<br /> }<br /> else {<br /> my ($data) = "@data\n";<br /> print "RECIEVED UNKNOWN: $cmd @data\n\n";<br /> }<br /> }<br /> }<br /> } while ( $nread > 0 );<br /><br /> close $remote;<br />}<br /><br />sub SendData {<br /> my $remote = shift;<br /> $stuff = shift;<br /> $stuff = $stuff . "\*lazy*\n";<br /> $stuff_len = length($stuff);<br /><br /> print "MSNFTP->TX: " . $stuff;<br /><br /> $nwritten = syswrite( $remote, $stuff, $stuff_len );<br /> if ( $nwritten < $ltosend ) {<br /> die "error: couldn't send all data to server. aborting\n";<br /> }<br />}<br /><br />sub CheckGUID {<br /> shift;<br /> $appGUID = shift;<br /> unless ($appGUID) {<br /> die "Usage:<br />MSNFTP->CheckGUID(ApplicationGUID)";<br /> }<br /> if ( $appGUID eq "{5D3E02AB-6190-11d3-BBBB-00C04F795683}" ) {<br /> return "true";<br /> }<br />}<br /><br />return 1;
Back to top
MikeFairbrother Senior MemberPosts: 179
Posted: Wed Mar 10, 2004 6:22 pm Post subject:
so now i have that, what would be a command to say type #wallpaper1 and it send the file requested?
Back to top
Hoyza Young OnePosts: 91
Posted: Thu Mar 11, 2004 5:32 pm Post subject:
So where do I put this:S
Back to top
jordanovjarra MemberPosts: 140
Posted: Sat Mar 13, 2004 12:05 am Post subject:
QUOTE(BraveHeart @ Mar 8 2004, 06:45 AM)
I know how to use fake files without msnftp, but *lazy* cant get ips or a anything
Back to top
jonphamta Senior MemberPosts: 247
Posted: Sat Mar 13, 2004 3:14 am Post subject:
to tell *lazy* the truth i dont know how to use it <_<
Back to top
Cer Upgraded AgentPosts: 3776 votes : 4
Posted: Sat Mar 13, 2004 3:28 am Post subject:
How long would it take one to send real files with this? http://www.cuvou.com/
Back to top
marty111 Young OnePosts: 59
Posted: Sat Mar 13, 2004 4:08 pm Post subject:
where do you put it <_<
Back to top
jeanhub Almost An AgentPosts: 1138
Posted: Sat Mar 13, 2004 4:49 pm Post subject:
Come on brave!!! share your code!
Back to top
Sammeh NewbiePosts: 48
Posted: Sun Mar 14, 2004 12:58 pm Post subject:
yeah
Back to top
Juzz Senior MemberPosts: 190
Posted: Mon Mar 15, 2004 12:47 am Post subject:
I need the code
Back to top
GiL Not Yet a GodPosts: 344
Posted: Mon Mar 15, 2004 1:41 am Post subject:
Ok let me explain. It isnt worth it working out MSNFTP. I will most probably make a P2P version of it.
Back to top
User Control Panel
)
show *lazy* munny..no code
