MadSc13ntist Posted November 1, 2004 Share Posted November 1, 2004 (edited) Hello, I am attempting to write a script that pulls a formated string and throws it into a txt file.... The objective is to: prompt the user for a url. (one that contains ip's and port numbers, i.e. 192.168.1.34:80) Download the source to a rawsource file (rawsource.txt) search the text file for the format (please excuse wildcards) *.*.*.*:port (i.e. 80) enumerate the results in another txt file (iplist.txt) problems to overcome: search the text file for the string in the format of *.*.*.*:port how to return JUST the string (ex: 69.124.678.123:80) i have considered some array voodoo including arrays seperated by "." and " " to sort through the results... but this seems rediculous... there must be a better way that i have not yet considered... I look forward to any help/education anyone can offer me.... (Thanks in advance) anyone that helps me with this will get some great high-anon proxies to play with Edited November 1, 2004 by MadSc13ntist Link to comment Share on other sites More sharing options...
this-is-me Posted November 1, 2004 Share Posted November 1, 2004 Give us the url you are trying to parse. Who else would I be? Link to comment Share on other sites More sharing options...
MadSc13ntist Posted November 1, 2004 Author Share Posted November 1, 2004 Here is the one i am testing with:http://www.samair.ru/proxybut i would like to figure out how to do this consistantly with any url's source in a .txt file.Thanks for the fast reply... Link to comment Share on other sites More sharing options...
MadSc13ntist Posted November 1, 2004 Author Share Posted November 1, 2004 For Larry The Super-Mod.... i have all the patience in the world... sounds GREAT so far!!! getting pop-corn (it's going to be beautiful) Link to comment Share on other sites More sharing options...
trids Posted November 1, 2004 Share Posted November 1, 2004 .. and very soon you'll have the option of "regular expressions" too:http://www.autoitscript.com/forum/index.php?showtopic=5717 Link to comment Share on other sites More sharing options...
scriptkitty Posted November 1, 2004 Share Posted November 1, 2004 (edited) Well that page is actually quite easy. Due to <pre></pre> grr messed up first trying my advise, so here ya go, learn from examining the code. $file="myfile.htm" URLDownloadToFile ("http://www.samair.ru/proxy/",$file) $filelines=FileRead($file,FileGetSize($file)) $filelines=StringTrimLeft($filelines,StringInstr($filelines,"<pre>")+4) $filelines=Stringleft($filelines,StringInstr($filelines,"</pre>")-2) $fileline=Stringsplit(Stringreplace($filelines,@CR,""),@LF) for $i=1 to $fileline[0] $x=StringSplit($fileline[$i],":") msgbox(0,"",$x[1]) next edit, I meant not to do all your work, but that you can disassemble this to know how to do it in the future. It just sounded wrong when I looked at it. Edited November 1, 2004 by scriptkitty AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
MadSc13ntist Posted November 1, 2004 Author Share Posted November 1, 2004 Thank you all very very very much! I LOVE CODE EXAMPLES!!! Larry: I can't beleive you've already helped me so much this morning, i work in IT and if we get ANY job postings that allow for Tele-commute i will PM it to you before we release it! Your Code Example is the shaz! i will enjoy it with your name in the source... Trids: Very cool to know, i hope to work with it soon.. Hail AutoIt! The Windows-Based Response to Opensource! (screw WSH!) ScriptKitty: Thanks for the code sample.... i can see what you mean. didn't see that before.. props. High Anon Proxies: ---------------------- 193.194.70.123:6588 HTTP elite 203.190.254.9:80 HTTP elite 200.233.67.141:6588 HTTP elite 200.166.204.92:6588 HTTP elite 200.168.131.106:6588 HTTP elite, SSL 200.221.49.159:6588 HTTP elite, SSL 200.206.138.198:6588 HTTP elite 200.171.148.69:6588 HTTP elite 200.206.184.220:6588 HTTP elite, SSL 200.168.64.118:6588 HTTP elite, SSL 200.161.151.122:6588 HTTP elite, SSL 200.207.151.215:6588 HTTP elite, SSL If you are without proxy chaining software i can throw you some info that i'm sure will help you avoid detection..... Again.... You all Rock... Have Fun! Link to comment Share on other sites More sharing options...
scriptkitty Posted November 1, 2004 Share Posted November 1, 2004 Just an example of using a lot of StringLeft, StringTrimleft, and StringInstr to do the job. $file="myfile.htm" URLDownloadToFile ("http://www.samair.ru/proxy/",$file) $filelines=FileRead($file,FileGetSize($file)) $filelines=StringTrimLeft($filelines,StringInstr($filelines,"<pre>")+4) $filelines=Stringleft($filelines,StringInstr($filelines,"</pre>")-2) $fileline=Stringsplit(Stringreplace($filelines,@CR,""),@LF) for $i=1 to $fileline[0] $ip=Stringleft($fileline[$i],StringInstr($fileline[$i],":")-1) $portnum=StringTrimleft(Stringleft($fileline[$i],StringInstr($fileline[$i]," ")-1),StringInstr($fileline[$i],":")) msgbox(0,"IP and port "&$i&" of "&$fileline[0],"port="&$portnum & @CRLF &"IP="& $ip) next AutoIt3, the MACGYVER Pocket Knife for computers. Link to comment Share on other sites More sharing options...
MadSc13ntist Posted November 1, 2004 Author Share Posted November 1, 2004 here is the finished script (MUCH PROPS to Larry and everyone else that helped me!!!!)This creates a proxy database text file that can be imported into "Proxy Checker v7.1" (from hell labs)... it allows one to enter the url of a site with daily proxies to a text-file listing of proxy servers to test.....Import rawproxies.txt (created in the same directory that the program/script is stored/executed from) into Proxy checker v7.1.... and by checking "remove invalid proxies" let this run and it will give you a fresh list of active proxies...You can then use these proxies to connect to the internet anonymously (in that the ip address you display will be that of the proxy server)... one step further now... by "chaining proxies", meaning connect through "proxy 2" by way of "proxy 1"... your level of anonymity grows exponentially with each proxy in the chain (and their level of anonymity)... think about it... if a hacker or the federal government decide they want to trace where you are they need to communicate with the owners of the proxy to figure out what IP is asigned to the one they traced back... (which is the IP the proxy asigned you)... This also means that if the person tracerouting (tracing) you is using VisualRoute then you will appear to be traced just like in the movies.... He's in China sir! No... Russia!... Peru!..... still tracing sir.... we're still trying to contact someone at the server in Brazil sir! uh oh... he disconnected sir...... and most of those proxies don't keep logs or firewalls sir.... The Gift of anonymity.... and now... you can take the table scraps and turn them into the main course by sorting the proxies that have been swatted... and the proxies waiting to serve your personal protection...here's the script:;Proxy Info Stripper v1.0;Created: 11.01.2004;By: Larry (AutoIt Mod), personalized (barely) by MadSc13ntist;Strips Proxy Info from a web page and into a txt file ready to import into Proxy Checker!$url = InputBox("Please enter URL of raw list", "Please indicate the url where the list is posted:", "http://www.samair.ru/proxy")InetGet( $url, "file.txt" )$szBuffer = FileRead( "file.txt",FileGetSize( "file.txt" ) )$aRRAY_of_Addresses = ParseStringForAddresses( $szBuffer )MsgBox( 4096, "", "We have " & $aRRAY_of_Addresses[0]& " addresses." )FileOpen(@ScriptDir & "\rawproxies.txt", 1)For $n = 1 to $aRRAY_of_Addresses[0];ToolTip($aRRAY_of_Addresses[$n])FileWriteLine(@ScriptDir & "\rawproxies.txt", $aRRAY_of_Addresses[$n])Sleep(500)NextFunc ParseStringForAddresses( ByRef $szBuff ) Dim $aRET[1] $aRET[0] = 0 $i = StringInStr($szBuff,".") While $i ;LOOK FOR NUMBER ON BOTH SIDES OF "." and ":" in the next 12 characters If StringIsDigit(StringMid($szBuff,$i-1,1)) And StringIsDigit(StringMid($szBuff,$i+1,1)) And _ StringInStr(StringMid($szBuff,$i,12),":") Then While StringIsDigit(StringMid($szBuff,$i-1,1)) $i = $i - 1 WEnd $szBuff = StringTrimLeft($szBuff,$i-1) $i = StringInStr($szBuff,":") While StringIsDigit(StringMid($szBuff,$i+1,1)) $i = $i + 1 WEnd ReDim $aRET[uBound($aRET)+1] $aRET[0] = UBound($aRET)-1 $aRET[uBound($aRET)-1]=StringLeft($szBuff,$i) $szBuff = StringTrimLeft($szBuff,$i) Else $szBuff = StringTrimLeft($szBuff,$i) EndIf $i = StringInStr($szBuff,".") WEnd Return $aRETEndFuncFileDelete(@ScriptDir & '\file.txt')Props to all.... enjoy clean functional proxies! keep the Internet anonymous! Mad Sc13ntist Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now