emailing specific individuals or at random

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|113\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> emailing specific individuals or at random
Thu, 01 Mar 2007, 14:50
dna	Hello. In the following code, I am trying to send information to individuals either through their email address or to their servers randomly. My documentation does not cover TCP or UDP at all and so even though the program works, nothing ever gets sent. Any help is appreciated Function advertise();theMsg$ ) ;If themsg$="" ; theMsg$ = Input("Please enter the message: ") ;msg$=Left$(themsg$,Instr(themsg$,"\|")-1):;msg1$=Mid$(themsg$,Instr(themsg$,"\|")+1,Instr(Right$(themsg$,Instr(themsg$,"\|")))+1) While Not KeyHit(1) host$ = Rand(0, 255) + "." + Rand(0, 255) + "." + Rand(0, 255) + "." + Rand(0, 255):the_count=the_count+1 stream% = OpenTCPStream(host$, Rand(0, 255255) percent#):If open=0 Print "Transmitting":open=1 If stream% Print "Success -> " + host$:WriteLine(fh,"Sent to: "+host$) WriteLine stream%,amsg$:WriteLine stream%,amsg1$:WriteLine stream%,amsg2$ CloseTCPStream stream% ElseIf the_count Mod 20000 =0 Print "Still Sending":WriteLine(fh,"Failed: " + host$) Else WriteLine(fh,"Failed: "+host$) EndIf If the_count>1000000 Then the_count=0 Wend ;EndIf CloseTCPStream stream% End End Function --v -=-=- DNA
Thu, 01 Mar 2007, 15:18
Jayenkai	1) I don't like the look of that! and, 2) To be honest, I've never really dealt with anything net based. Maybe I should take some time, and code a nice fun online game. -=-=- ''Load, Next List!''
Thu, 01 Mar 2007, 23:58
shroom_monk	Well, I'm not sure, cos the code is a bit blocky, but I think it has something to do with the fact that I can't find where the 'amsg$', 'amsg1$' and 'amsg2$' variables are set. I might of missed it, though... -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Fri, 02 Mar 2007, 08:08
power mousey	hey, agent smith I hope not either. The only spam I like are Spam sandwiches...and especially with Spam Lite. And 2 spam sandwiches, please. cheers, power mousey
Fri, 02 Mar 2007, 09:13
Jayenkai	I had some nice Spam with Black Pepper the other day. Mmm... Spam.. -=-=- ''Load, Next List!''
Fri, 02 Mar 2007, 14:18
dna	@shroom_monk: Those variables are global and are declared outside of the function. You can substitute a string for them. @Agent Smith: It's not for spam. Someone pointed out the fact that messages could be sent either at random or to specific individuals. I thought to try the random method first, which does not work. @all: Any suggestions? -=-=- DNA
Sun, 04 Mar 2007, 02:17
power mousey	I'm with Jay on these two: I don't like the look of the code and that I like spam. especially spam lite. also, I agree with agent smith too. Besides...my Seventh Sense is kicking in and warning me that it will be used for sending spam and also for mailware-->junk mail and advertising abyssware too. new editey: say what!?? saaaaaay what!!?? new messages can be sent at random or even to specific people. that classifies as spam/mailware/junk mail ..in my book. I even noticed your topic line: 'emailing specific individuals or at random' that can be construed for spam and the like. A high possibility....a warning light. cautious, power mousey
Tue, 06 Mar 2007, 13:19
dna	Yes. well the code was posted elsewhere for all users and I wanted to know how it could be used. The original post did not include any instruction. -=-=- DNA