Este es el c\u00f3digo b\u00e1sico del programa que se encuentra en la carpeta Tool. El ejecutable tiene otras opciones como son ajustar el tama\u00f1o del cuadro de texto cuando la ventana se cambia de tama\u00f1o, mostrar una peque\u00f1a y ayuda para saber m\u00e1s sobre su uso y cosas por el estilo, sin embargo, el fragmento que realiza toda el procedimiento real del programa es el que se expone aqu\u00ed.<\/p>\n\n\n\n\n\n\n\n
Escrito por Alien [blackhat4all@gmail.com]<\/p>\n","protected":false},"excerpt":{"rendered":" Este es el c\u00f3digo b\u00e1sico del programa que se encuentra en la carpeta Tool. El ejecutable tiene otras<\/p>\n","protected":false},"author":2,"featured_media":510,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[59,36],"tags":[88,209,38],"class_list":["post-744","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-codigos","category-proyecto-blackhat","tag-codigos","tag-criptografia","tag-proyecto-blackhat"],"_links":{"self":[{"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/posts\/744","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/hackcuba.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=744"}],"version-history":[{"count":1,"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/posts\/744\/revisions"}],"predecessor-version":[{"id":746,"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/posts\/744\/revisions\/746"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/hackcuba.net\/index.php?rest_route=\/wp\/v2\/media\/510"}],"wp:attachment":[{"href":"https:\/\/hackcuba.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=744"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/hackcuba.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=744"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/hackcuba.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=744"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
Importante:<\/strong> La clave para codificar, al igual que la que realiza la operaci\u00f3n inversa debe tener los n\u00fameros del 1-6 sin repetir u omitir ninguno.
Aunque la clave de codificaci\u00f3n sea \u00fatil, no es la que decodifica el mensaje, ya que ser\u00eda muy f\u00e1cil entonces robar la clave y poder ver el mensaje como tal. Para decodificarlo, lo que se tiene que hacer es reordenar la clave. Supongamos que se codifico con 163245, la clave de decodificaci\u00f3n ser\u00eda en tonces: 143562, \u00bfpor qu\u00e9?.
Para saberlo lo que tenemos que decir es:
Clave con que se codific\u00f3: 163245.
\u00bfEn que posici\u00f3n est\u00e1 el 1? –> 1
\u00bfEn que posici\u00f3n est\u00e1 el 2? –> 4
\u00bfEn que posici\u00f3n est\u00e1 el 3? –> 3
\u00bfEn que posici\u00f3n est\u00e1 el 4? –> 5
\u00bfEn que posici\u00f3n est\u00e1 el 5? –> 6
\u00bfEn que posici\u00f3n est\u00e1 el 6? –> 2
Entonces la clave de decodificaci\u00f3n ser\u00eda: 143562. De esa forma se asegura que cualquiera que obtenga la clave no la pueda usar si no tiene este m\u00e9todo.<\/p>\n\n\n\nPrivate Sub codificar_Click()\nDim clave As String\nclave = InputBox("Escriba la clave con al que desea encriptar el mensaje, tenga en cuenta que debe contener los n\u00fameros del 1 al 6 y sin que se repita ninguno de estos", "Clave")\nIf clave = "" Then Exit Sub\nIf Len(clave) <> 6 Then\n MsgBox "La clave no tienes los caracteres requeridos. Verif\u00edquela", vbCritical\n Exit Sub\nEnd If\n\nDim Faltan As Integer\n'Para saber cu\u00e1ntos caracteres faltan hasta que la cantidad sea m\u00faltiplo de 6.\nFaltan = 6 * (Int(Len(Text1.Text) \/ 6) + 1) - Len(Text1.Text)\n\n'Hacer el ciclo para a\u00f1adir los espacios que faltan hasta que el texto sea multiplo de 6\nFor i = 1 To Faltan\n Text1.Text = Text1.Text & " "\nNext\n\n'Limpia las listas en caso de que tengan algo escrito\nList1.Clear\nList2.Clear\n\n'Ciclo que recorre el texto haciendo grupos de 6 y los coloca en la lista1\nDim grupo As String\nFor i = 1 To Len(Text1.Text) Step 6\n grupo = Mid(Text1.Text, i, 6)\n List1.AddItem (grupo)\nNext\n\n'Encriptar\nDim Palabra_Normal As String\nDim Palabra_Encriptada As String\n\nFor i = 0 To List1.ListCount - 1\n Palabra_Normal = List1.List(i)\n 'Se le aplica la codificaci\u00f3n a la palabra segun el m\u00e9todo\n Palabra_Encriptada = Mid(Palabra_Normal, Int(Mid(clave, 1, 1)), 1) & Mid (Palabra_Normal, Int(Mid(clave, 2, 1)), 1) & Mid(Palabra_Normal, Int(Mid(clave, 3, 1)), 1) & Mid(Palabra_Normal, Int(Mid(clave, 4, 1)), 1) & Mid(Palabra_Normal, Int(Mid(clave, 5, 1)), 1) & Mid(Palabra_Normal, Int(Mid(clave, 6, 1)), 1)\n List2.AddItem Palabra_Encriptada\nNext\n\n'Se vac\u00edia el texto donde se va a poner el contenido ya encriptado\nText1.Text = ""\n\nDim inicio As String\nDim fin As String\nFor i = 0 To List2.ListCount - 1\n If Text1.Text = "" Then\n Text1.Text = List2.List(i)\n Else\n inicio = Mid(Text1.Text, 1, Len(Text1.Text) \/ 2)\n fin = Mid(Text1.Text, Len(Text1.Text) \/ 2 + 1, Len(Text1.Text))\n Text1.Text = inicio & List2.List(i) & fin\n End If\nNext\nEnd Sub\n\n\/\/-----------------------------------------------------------------------------------------------\n\nPrivate Sub decodificar_Click()\nDim clave As String\nclave = InputBox("Escriba la clave con la que se encripto este mensaje, tenga en cuenta que debe contener los n\u00fameros del 1 al 6 y sin que se repita ninguno de estos", "Clave")\nIf clave = "" Then Exit Sub\n\n'Limipio la lista\nList1.Clear\nText1.Text = Mid(Text1.Text, 7, Len(Text1.Text))\nFor i = 1 To Len(Text1.Text) \/ 2 Step 3\nList1.AddItem Mid(Text1.Text, i, 3) & Mid(Text1.Text, Len(Text1.Text) - (i + 1), 3)\nNext\n\nText1.Text = ""\nDim Palabra_Encriptada As String\nDim Palabra_Normal As String\nFor i = 0 To List1.ListCount - 1\nPalabra_Encriptada = List1.List(i)\n'Se le aplica la decodificaci\u00f3n a la palabra segun el m\u00e9todo\nPalabra_Normal = Mid(Palabra_Encriptada, Int(Mid(clave, 1, 1)), 1) & Mid(Palabra_Encriptada, Int(Mid(clave, 2, 1)), 1) & Mid(Palabra_Encriptada, Int(Mid(clave, 3, 1)), 1) & Mid(Palabra_Encriptada, Int(Mid(clave, 4, 1)), 1) & Mid(Palabra_Encriptada, Int(Mid(clave, 5, 1)), 1) & Mid(Palabra_Encriptada, Int(Mid(clave, 6, 1)), 1)\n\n'Se va guardando en el texto\nText1.Text = Text1.Text & Palabra_Normal\nNext\n\nEnd Sub\n<\/pre><\/div>\n\n\n