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

Crea tu propio Generador de Contraseñas Seguras con VBNet en solo 3 Pasos

  • 0 Respuestas
  • 127 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado 79137913

« en: Octubre 15, 2019, 10:50:38 am »
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!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!



Simple Generador Deface - Djtrueno

Iniciado por djtrueno

Respuestas: 9
Vistas: 4634
Último mensaje Febrero 03, 2014, 05:52:51 pm
por Cyb3r2876
API VBNET Source OrwayScanner para tus proyectos.

Iniciado por Slore

Respuestas: 0
Vistas: 2277
Último mensaje Febrero 03, 2015, 03:19:16 pm
por Slore
Crea tu propio AdminFinder con VB.NET en solo 3 pasos!

Iniciado por 79137913

Respuestas: 4
Vistas: 4805
Último mensaje Junio 02, 2017, 08:28:09 am
por 79137913
Crea tu propio Creador de Diccionarios por Fuerza Bruta en VBNet en solo 3 Pasos

Iniciado por 79137913

Respuestas: 2
Vistas: 4541
Último mensaje Septiembre 03, 2019, 10:57:38 am
por 79137913
Crea tu propio HashCracker en VBNet en solo 3 Pasos

Iniciado por 79137913

Respuestas: 0
Vistas: 214
Último mensaje Septiembre 09, 2019, 10:07:09 am
por 79137913