if drive_bitmask & 1:

#############################################
# Author: k0ws                              #
# Usage: cUnidades()                        #
# Webs: Indetectables ~ UdTools ~ Underc0de #
#############################################

import win32file as file
import win32api as api
def cUnidades():
 listdrives = api.GetLogicalDriveStrings().split("\x00")
 i = 0
 print "Lista de FlashDrives o HDD: "
 for drive in listdrives:
  if len(listdrives) == (i + 1):
   break
  if (file.GetDriveType(listdrives[i])) == 2:
   try:
    api.GetDiskFreeSpace(listdrives[i].replace('\\',''))
    print listdrives[i] + " - Conectado"
   except:
    print listdrives[i] + " - Desconectado"
  if (file.GetDriveType(listdrives[i])) == 3:
   try:
    api.GetDiskFreeSpace(listdrives[i].replace('\\',''))
    print listdrives[i] + " - Conectado"
   except:
    print listdrives[i] + " - Desconectado"
  i = i + 1

cUnidades()

Public Function Len_Alter(Palabra As String)
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
Len_Alter = UBound(b()) + 1
End Function

'##############################
'## Len Alternativo          ##
'## Author: k0ws             ##
'##############################
Public Function Len_Alter(Palabra As String)
Dim a As Long
Dim b() As Byte
Dim c As Integer
b = StrConv(Palabra, vbFromUnicode)
For a = 0 To UBound(b())
c = c + 1
Next a
Len_Alter = c
End Function

Public Function Len_Alter(Palabra As String)
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
Len_Alter = UBound(b()) + 1
End Function

Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function