JRSmile Posted February 2, 2009 Share Posted February 2, 2009 (edited) i got the idea while watching hak5.org expandcollapse popup#include "_XMLDomWrapper.au3" #include <array.au3> Dim $users[3] $users[0] = 2 $users[1] = "JRSmile" $users[2] = "Hak5Darren" $cmd = get_command_for("LP-DE00-1046", "secret", $users) ConsoleWrite($cmd & @CRLF) $cmd = get_command_for("LP-DE00-1046", "secret", "JRSmile") ConsoleWrite($cmd & @CRLF) ;ShellExecute($cmd) Func get_command_for($name, $password, $username = "") _XMLFileOpen("http://search.twitter.com/search.atom?q=" & $name, 'xmlns:def="http://www.w3.org/2005/Atom"') $res = _XMLGetValue("/def:feed/def:entry/def:title/text()") For $i = 1 To $res[0] If $username <> "" Then $aName = _XMLGetValue("/def:feed/def:entry[" & $i & "]/def:author/def:name/text()") $aName = StringSplit($aName[1], " ", 1) If IsArray($username) Then For $a = 1 To $username[0] If $username[$a] = $aName[1] Then If StringInStr($res[$i], $password) Then Return StringReplace(StringReplace($res[$i], $password & " ", ""), $name & " ", "") EndIf EndIf Next Else If $username <> $aName[1] Then ContinueLoop EndIf EndIf If StringInStr($res[$i], $password) Then Return StringReplace(StringReplace($res[$i], $password & " ", ""), $name & " ", "") EndIf Next Return False EndFunc ;==>get_command_for Edited February 2, 2009 by JRSmile $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-) 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