Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 03/25/2013 in all areas

  1. It's a multi-client TCP chat room with a lot of features. Server IP, Port, Set Pw sets the password for the admin. $Max = Max amount of users that can be connected at a time. Client IP, Port, Username. * A username can only be in use by one person. (Case-insensitive.) Normal commands .pm username,message Allows you to sent a private message to a specific user. .stats Tells you who's online. .clear Clears the history. .save Saves the chat history. .disconnect or .exit Closes the chat window, disconnects you from the server, and re-opens the Connection Settings. Admin commands .admin password, .admin lol123 Logs you in as an admin. (Only one admin can be logged in at a time.) .logout Logs you out of the admin position. .kick username, .kick John Kicks the desired user. .ip username, .ip John Gives you the IP of the desired user. .ban username, .ban John Kicks and IP bans the user. .unban ip address, .unban 127.0.0.1 Removes the IP from the blocked list. .logs Opens the logs from the server. (Tells you who you've banned / un-banned, and their IP.) Red = Command, Blue = Parameter Download Link : http://www.mediafire.com/?a9fegzx2qn0t38c *Includes compiled versions (32 and 64 bit) and the source. Hope this helps some! - John
    1 point
  2. Toady

    PowerPoint Wrapper

    This is a wrapper for PowerPoint. It allows you to have control of MS PowerPoint. At work I have to create presentations that are somewhat tedious. Therefor, since no one has tackled this, I suppose I would. So far I have the following functions. See them below. I'm in the process of adding tons more in my spare time. I have attached the PowerPoint include and an example that uses the include. Please comment on the progress I have made so far. I still haven't documented the include as of now but I will soon. _PPT_PowerPointApp()_PPT_PowerPointQuit()_PPT_CreatePresentation()_PPT_PresentationAdd()_PPT_PresentationOpen()_PPT_PresentationSaved()_PPT_PresentationSaveAs()_PPT_PresentationName()_PPT_PresentationClose()_PPT_SlideCreate()_PPT_SlideTextFrameSetText()_PPT_SlideTextFrameGetText()_PPT_SlideTextFrameSetFont()_PPT_SlideTextFrameSetFontSize()_PPT_SlideCount()_PPT_SlideShapeCount()_PPT_SlideAddPicture()_PPT_SlideAddTable()_PPT_SlideAddTextBox()_PPT_SlideShowStartingSlide()_PPT_SlideShowEndingSlide()_PPT_SlideShowWithAnimation()_PPT_SlideShowWithNarration()_PPT_SlideShowLoopUntilStopped()_PPT_SlideShowAdvanceMode()_PPT_SlideShowShowType()_PPT_SlideShowRangeType()_PPT_SlideShowDisplayScrollbars()_PPT_SlideShowAdvanceOnTime()_PPT_SlideShowAdvanceTime()_PPT_SlideShowRun()_PPT_bAssistant()_PPT_SlideSelect()... more to come.PPT_Example.au3 Powerpoint.au3
    1 point
  3. It is very nice to listen to and 'play around' with. I look forward to more..
    1 point
  4. mLipok

    Hirajoshi Wind Chime

    thanks for the script for me it is awsome relaxing music
    1 point
  5. JohnOne

    Is AutoIT perfect?

    Mechaflash you need to pack your crack pipe away, think you've had enough
    1 point
  6. As my mother says, it's a sad day when you don't learn something new.
    1 point
  7. trancexx

    Please help me! CallDll.

    DllCall() is really meant to be used by advanced users who have some knowldge of at least one lower level language. Problems you experience seem to be related to your lack of knowledge. When that's the case the best thing is to just try, try try... more, then you will either learn or get things to work by accident. Maybe even both. I won't advise you to actually learn, people usually don't like that because it takes time to get them results. Good luck.
    1 point
  8. Hello, In french : TIP_SETTINGS_16 =Surligner
    1 point
  9. Try with this: $sCommand = "echo y | plink -ssh -pw root root@" & $IPaddress & " exit" RunWait(@ComSpec & " /C " & $sCommand) Hi!
    1 point
  10. Mechaflash

    Is AutoIT perfect?

    If I could program my toaster with AutoIt, I'd be a happy camper =D
    1 point
  11. Hi, I have worked on a project for a friend and it needed to retreive some data in UDP packets, it was a challenge because I didn't know anything about that packets, and after few days of work I have managed to do what I wanted. The hardest part was to set a very strict filter for the cpu usage and for the script optimisation, so here is one : ;use filters with _PcapStartCapture ;retreive only tcp packets containing AABBCCDD, at the start of 8 and with a length of 4; like the StringMid func. tcp[8:4] == 0xAABBCCDD ;8th byte from the beginning of the tcp DATA, 4bytes length; always include the 0x to specify you are dealing with hex. And some funcs to split the different data from packets : ;$hCapture is the handle returned by _PcapStartCapture ; #FUNCTION# ==================================================================================================================== ; Name...........: _TCP_Recv ; Description ...: Retreives a TCP Packet and returns its data splitted ; Syntax.........: _TCP_Recv($hCapture, $iInstance = 0, $iTimeOut = 3000) ; Parameters ....: $hCapture - Capture handle ; $iInstance - Instance of the packet to retreive ; $iTimeOut - Timeout ; Return values .: Success - Array containing the packet data ; Failure - -1 (timedout) ; Author ........: FireFox (d3mon) ; Modified.......: ; Remarks .......: ; Related .......: _UDP_Recv ; Link ..........: ; Example .......: No ; =============================================================================================================================== Func _TCP_Recv($hCapture, $iInstance = 0, $iTimeOut = 3000) Local $blPacketCaptured = False, $iTimer_Capture, $aPacket, $iPacket $iTimer_Capture = TimerInit() While (TimerDiff($iTimer_Capture) < $iTimeOut Or $iTimeOut = -1) $aPacket = _PcapGetPacket($hCapture) If IsArray($aPacket) Then If $iPacket = $iInstance Then Local $aTCPPacket[21] $aTCPPacket[0] = StringMid($aPacket[3], 3, 12) ;Destination Mac Address $aTCPPacket[1] = StringMid($aPacket[3], 15, 12) ;Source Mac Address $aTCPPacket[2] = StringMid($aPacket[3], 27, 4) ;Type $aTCPPacket[3] = StringMid($aPacket[3], 31, 2) ;Version & Header length $aTCPPacket[4] = StringMid($aPacket[3], 33, 2) ;Differientiated Services Field $aTCPPacket[5] = StringMid($aPacket[3], 35, 4) ;Total Length $aTCPPacket[6] = StringMid($aPacket[3], 39, 4) ;Identification $aTCPPacket[7] = StringMid($aPacket[3], 43, 4) ;Fragment offset $aTCPPacket[8] = StringMid($aPacket[3], 47, 2) ;Time to live $aTCPPacket[9] = StringMid($aPacket[3], 49, 2) ;Protocol $aTCPPacket[10] = StringMid($aPacket[3], 51, 4) ;Header checksum $aTCPPacket[11] = StringMid($aPacket[3], 55, 8) ;Source IP Address $aTCPPacket[12] = StringMid($aPacket[3], 63, 8) ;Destination IP Address $aTCPPacket[13] = StringMid($aPacket[3], 71, 4) ;Source port $aTCPPacket[14] = StringMid($aPacket[3], 75, 4) ;Destination port $aTCPPacket[15] = StringMid($aPacket[3], 79, 8) ;Sequence number $aTCPPacket[16] = StringMid($aPacket[3], 87, 8) ;Acknowledgment number $aTCPPacket[17] = StringMid($aPacket[3], 95, 4) ;Flags $aTCPPacket[18] = StringMid($aPacket[3], 99, 4) ;Window size value $aTCPPacket[19] = StringMid($aPacket[3], 103, 4) ;Checksum ;107 to 110 = NULL data $aTCPPacket[20] = StringTrimLeft($aPacket[3], 110) ;Data Return $aTCPPacket EndIf $iPacket += 1 EndIf Sleep(50) WEnd Return -1 EndFunc ;==>_TCP_Recv ; #FUNCTION# ==================================================================================================================== ; Name...........: _UDP_Recv ; Description ...: Retreives an UDP Packet and returns its data splitted ; Syntax.........: _UDP_Recv($hCapture, $iInstance = 0, $iTimeOut = 3000) ; Parameters ....: $hCapture - Capture handle ; $iInstance - Instance of the packet to retreive ; $iTimeOut - Timeout ; Return values .: Success - Array containing the packet data ; Failure - -1 (timedout) ; Author ........: FireFox (d3mon) ; Modified.......: ; Remarks .......: ; Related .......: _TCP_Recv ; Link ..........: ; Example .......: No ; =============================================================================================================================== Func _UDP_Recv($hCapture, $iInstance = 0, $iTimeOut = 3000) Local $blPacketCaptured = False, $iTimer_Capture, $aPacket, $iPacket $iTimer_Capture = TimerInit() While (TimerDiff($iTimer_Capture) < $iTimeOut Or $iTimeOut = -1) $aPacket = _PcapGetPacket($hCapture) If IsArray($aPacket) Then If $iPacket = $iInstance Then Local $aUDPPacket[18] $aUDPPacket[0] = StringMid($aPacket[3], 3, 12) ;Source Mac Address $aUDPPacket[1] = StringMid($aPacket[3], 15, 12) ;Destination Mac Address $aUDPPacket[2] = StringMid($aPacket[3], 27, 4) ;Type $aUDPPacket[3] = StringMid($aPacket[3], 31, 2) ;Version & Header length $aUDPPacket[4] = StringMid($aPacket[3], 33, 2) ;Differientiated Services Field $aUDPPacket[5] = StringMid($aPacket[3], 35, 4) ;Total Length $aUDPPacket[6] = StringMid($aPacket[3], 39, 4) ;Identification $aUDPPacket[7] = StringMid($aPacket[3], 43, 4) ;Fragment offset $aUDPPacket[8] = StringMid($aPacket[3], 47, 2) ;Time to live $aUDPPacket[9] = StringMid($aPacket[3], 49, 2) ;Protocol $aUDPPacket[10] = StringMid($aPacket[3], 51, 4) ;Header checksum $aUDPPacket[11] = StringMid($aPacket[3], 55, 8) ;Source IP Address $aUDPPacket[12] = StringMid($aPacket[3], 63, 8) ;Destination IP Address $aUDPPacket[13] = StringMid($aPacket[3], 71, 4) ;Source port $aUDPPacket[14] = StringMid($aPacket[3], 75, 4) ;Destination port $aUDPPacket[15] = StringMid($aPacket[3], 79, 4) ;Length $aUDPPacket[16] = StringMid($aPacket[3], 83, 4) ;Checksum $aUDPPacket[17] = StringTrimLeft($aPacket[3], 86) ;Data Return $aUDPPacket EndIf $iPacket += 1 EndIf Sleep(50) WEnd Return -1 EndFunc ;==>_UDP_Recv ;for example convert the packet's source/dest IP Address to text ; #FUNCTION# ==================================================================================================================== ; Name...........: _HexIPAddressToText ; Description ...: Converts Hex IP Adress to text ; Syntax.........: _HexIPAddressToText($vhexIPAddress) ; Parameters ....: $vIPAddress - IP Address v4 (string, int) ; Return values .: Success - Converted IP Address ; Author ........: FireFox (d3mon) ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: No ; =============================================================================================================================== Func _HexIPAddressToText($vhexIPAddress) Local $sIPAddress For $iOffset = 1 To 8 Step 2 $sIPAddress &= Dec(StringMid($vhexIPAddress, $iOffset, 2)) & "." Next Return StringTrimRight($sIPAddress, 1) EndFunc ;==>_UDP_DecodeIPAddress Ops, almost forgot the Winpcap UDF available here : http://opensource.grisambre.net/pcapau3/ PS : If you find this helpful, please "like"/rate this post. Enjoy
    1 point
×
×
  • Create New...