|Just another Perl shrine|
Win32::Lanmanby SyN/AcK (Scribe)
|on Jul 16, 2003 at 04:20 UTC||Need Help??|
Item Description: A module that handles all of the Lanman functionallity for Win32
I've been very impressed with this module! It provides all types of functionallity for working with the Windows NetBIOS shares. Its amazing what information you can get with a simple connection to the IPC$ share. I've used this module to create a script that will test the password strength of networks I administer with a brute-force attack method. If a pass can be cracked in under 15 minutes, its changed. It has great functionallity allowing you to pull back user information, share information, password policies, Transport information, etc. etc. Deffinitely recommend taking a look at this!
I would, however, like to see a module that is able to connect to the windows SMB shares and send and receive packets with out using the standard Windows API to do so. The reason being is that there is a hefty timeout delay for an incorrect password.
Per request, here are some source examples of how this can be useful:
What have we done here? We've established a connection to the server's ($server) IPC$ share with null credentials, i.e., ConnectIPC(server, user, pass, domain), with null for user, pass, and domain.2.) Enumerate users
Its important to recoginize that this should be within the if(ConnectIPC(...)) block. I will post the whole code bellow.
I apologize, this code has been made for Visual Perl.NET, hopefully some of you will find that helpful. Here is a link to the actual Perl script I used to help me figure out the module: Null.pl