El problema no se me solventa, desde entonces en todos los ordenadores se me esta viendo de esa forma. Por lo menos puedo leer las noticias 
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
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.
#11
Sugerencias y dudas sobre el Foro / Re: Portada el elhacker.net no se visualiza correctamente
4 Junio 2018, 16:33 PM #12
Sugerencias y dudas sobre el Foro / Portada el elhacker.net no se visualiza correctamente
11 Mayo 2018, 12:55 PM
Desde ayer en varios ordenadores usando Firefox o Edge me esta saliendo de la siguiente manera la portada de la web. En el internet explorer y en el telefono con firefox en cambio se ve bien. A alguien mas le esta pasando?
#13
Hardware / Re: piratebox
15 Abril 2018, 17:46 PM
Buenas, gracias por descubrirme el proyecto, ayer me alegraste la tarde, tengo lista mi Raspberry Pi(rate)Box para dejarla mañana, seguramente cerca de la universidad de mi ciudad a ver si le dan uso, de momento esta sin ningún tipo de carcasa. Si veo que lo emplean ya me pasare a dejar los resultados, también decir que en el foro de piratebox hay una persona que explica como se ha añadido un admin para el chat, solo resalta el texto, yo he añadido un comando para limpiar el chat, si te interesa te lo pongo.
#14
Scripting / Re: Se pueden poner imagenes en archivos .VBS, o cambiar la ventana de error?
10 Abril 2018, 16:58 PM
En serio creo que quieres esto:
Fuente: https://analysistabs.com/vba/msgbox/
En VBS necesitaras el valor de las variables vbInformation, los dejo aquí:
vbCritical 16 Muestra el icono Mensaje crítico.
vbQuestion 32 Muestra el icono Consulta de advertencia.
vbExclamation 48 Muestra el icono Mensaje de advertencia.
vbInformation 64 Muestra el icono Mensaje de información.
CitarVBA MsgBox: vbCritical
Please find the following code and output. When we click Ok button, It will return value 1 as a output. And, It will display critical Message Icon.
Code:Código (vb) [Seleccionar]Sub MessageBox_vbCritical()
'Variable Declaration
Dim OutPut As Integer
'Example of vbCritical
OutPut = MsgBox("Please enter valid Number!", vbCritical, "Example of vbCritical")
End Sub
Output:VBA MsgBox in Excel VBA
Top
VBA MsgBox: vbQuestion
Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Warning Query icon.
Code:Código (vb) [Seleccionar]Sub MessageBox_vbQuestion()
'Variable Declaration
Dim OutPut As Integer
'Example of vbQuestion
OutPut = MsgBox("Are you fresher?", vbQuestion, "Example of vbQuestion")
End Sub
Output:VBA MsgBox in Excel VBA
Top
VBA MsgBox: vbExclamation
Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Warning Message icon.
Code:Código (vb) [Seleccionar]Sub MessageBox_vbExclamation()
'Variable Declaration
Dim OutPut As Integer
'Example of vbExclamation
OutPut = MsgBox("Input Data is not valid!", vbExclamation, "Example of vbExclamation")
End Sub
Output:VBA MsgBox in Excel VBA
Top
VBA MsgBox: vbInformation
Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Information Message icon.
Code:Código (vb) [Seleccionar]Sub MessageBox_vbInformation()
'Variable Declaration
Dim OutPut As Integer
'Example of vbInformation
OutPut = MsgBox("Succesessfully Completed the Task.", vbInformation, "Example of vbInformation")
End Sub
Output:VBA MsgBox in Excel VBA
Fuente: https://analysistabs.com/vba/msgbox/
En VBS necesitaras el valor de las variables vbInformation, los dejo aquí:
vbCritical 16 Muestra el icono Mensaje crítico.
vbQuestion 32 Muestra el icono Consulta de advertencia.
vbExclamation 48 Muestra el icono Mensaje de advertencia.
vbInformation 64 Muestra el icono Mensaje de información.
#15
Scripting / Re: Modificar información del procesador
10 Abril 2018, 16:51 PM
Buenas Dino-Rhino, para pasar a exe yo empleo esta herramienta:
#16
Scripting / Re: Se pueden poner imagenes en archivos .VBS, o cambiar la ventana de error?
10 Abril 2018, 16:22 PM
Asi?
Código (vb) [Seleccionar]
Option Explicit
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objSHL : Set objSHL = CreateObject("Wscript.Shell")
Dim tempFolder : Set tempFolder = objFSO.GetSpecialFolder(2)
Dim tempFile : tempFile = objFSO.GetTempName() & ".hta"
With tempFolder.CreateTextFile(tempFile)
.WriteLine "<html><HTA:APPLICATION SysMenu=""no"" Scroll=""no"" Border=""dialog"">" & _
"<head> <title>Hola</title>" & _
"<script type=""text/javascript""> window.resizeTo(350,260); window.moveTo((screen.width - 350) / 2, (screen.height - 260) / 2);</script>" & _
"</head><body style=""background-color:ededed;""> " & _
"<p align=""center"">" & _
"<img src=""data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxISEhMSEhIVFRUXFRUVFRUVFRUVFRUVFRUWFhUXFRUYHSggGBolGxUVITEhJSktLi4uFx8zODMtNygtLisBCgoKDg0OGBAQGi0lHyUtLS0tLS0tLS0rLS0tLS0tLS0rKy0tLS0rLS0tLS0tLS0tLS8tLS0tLS0tLS0tLSsrK//AABEIAKgBKwMBIgACEQEDEQH/xAAcAAABBQEBAQAAAAAAAAAAAAADAgQFBgcAAQj/xAA/EAABAwIDBQQIAwcDBQAAAAABAAIDBBEFITESQVFhcQYigZEHEzKhscHR8CNC4RQVUmKCkvEkcqIzU2OD0v/EABkBAAMBAQEAAAAAAAAAAAAAAAADBAIBBf/EACgRAAICAgICAgEDBQAAAAAAAAABAhEDIRIxBDJBUSIjYXETM1Kx8P/aAAwDAQACEQMRAD8A3AKLxw9wqUCisdPd8VqPZmXRAzeysp7cO/EK1ip9lZF2zdeV3VGT1DH7FOmTN6ezpk9JRQw1Mn9PJskFMaYJ2AsS7PT8RfiW/DK3JSwfdUqgqdnJWjD57haiyXysXGVjmXRRdbFdS0oyTSVi3RInRTsTpk3w12y5WDEoLqBkj2TdKkejgfJUXfCprgKSIVXwWq0VywmmMrmNAvc566b9PFMhsizx4yGjWoGIQ3ar/PgsII2rtbl3QDwA1+96UxtCcgxptvcLnqbrbiIjIwDGqQ7R2QT0F0xbRSNsSwjO1t99dNdF9FTPYz2I2gcWgblHvrRtXdCx2+5aLg8b2Nkr8fsrjnkl0ZLgsitlPorY+ippru9Uwkm7gWtab/7mpcOCUz8gHxn+U3HkR8Cu6+xc5ct0Vcqv45HkVotb2RkAvE8PHA90/RUnHqGRtw5hBF8jrYam3BBiL2ZxUts5SGHhNK9tnJ7hwS2VZeicgGSchBgGSOFwlZ4QvAEqy4IA4L2y9AXEIOgyElwRCkOCDgIhDIRihuQAF4QiivQkAfUqiMc0HVS6h8a1b1VcexEuiGrPZWOdrD+I7qVslfk0rFu1DvxHdSjJ0dxexWZ0zencyaOSUPZLYbRFzbpxV0+xZT2A0oMTTyTftFDa3JIc7lR6HiZPgrjn2N1P4RV6Kuzo1BPslbTofnhyRoDH3CHK1MsMqb2UnIMk9HjzXF0RVVHdQdfArdQ0olk9Wb3c12zYXO0BcfC3irNhXZCnhAlqmiWTdF7bGf7gPaNuOQWf6bkMx51j7KP6POy8ta9zrlkDDZ8ltT/Azi74LZqOlipmBkTbAC19XHmXaqJnxuJgDWghoHdAAYwf0iyYvxsk5f5RcYKrMZZyzSutE7WPFuPioKtpfzNvz33Xv7XfMnI+SVT124pM52ajGgMT3Ny1ad3BG2GuO8O62BTqwIuPvwXerBGnkM/esGwTKOxuMipNsQcASMwNQc/1CbUlxlrn95fZUhskDabmN4votRMs9pq9twx9wdztxRaqjhmGy9odbMXGYPI7lHSOBzAHMfP/AAjQOvbd8k/GxU0Zr239HjWuMtPm0k3ZfNrrXsDwvbXjqqa6hMTrWNssjqNfO9jnyPBfQ0kIkbYi/H4fNUPt9grY4HSgavbu3uc0k+OZ/q6rcsSptHFmekyjwaIwCFCMkcKY2zwhcAvbL0IOHWXEJVl1kADKQQiEJBQAJwQ3IxQnIAA9CKM9CKAPqNQuLnvN8VNFQeJnvhVxESIjFXWYeixPtEbyHqtpxs2jd0KxHHXfiO6rmTo7h7IOdNd6czJsNR1Sh7NE7OnuAckjHYrptgFR7Kk8TbcXXnt1MpwumUGcWJCQ1OsQZZxTayps9OO9k3g9VoFaoZLhUGik2XK20FTcBOhLR53lY6dotfZJjfXXv3tlwHLLM/fFOO0uL7HdEbyBltkkA8dkZF3XfzTLstEXT5EizScuGhFxmMjqFGdqqxxk87dNm2/PRPusdnnVeQjjUPJuHl3mLfonceIm9j01UeG5N4kXNvFPKaAOy4/f081EytE1RVWYzKkgd41UHSM2bclN09YLWBsd4J+G4rNm6JCmn45cxr5KQjcd3e5XCiInm+YHWwB8wn0JtoSDxGvv+i6caHLyL3OfEEEHzGqKytA/MepzHgQkxlxGlzw3H9UwroRa9tk8tR15LqM0PJqqL9W8eNv8LmVjb22h45KIiOyc8wd6l4aBjv0VGOLYmbSJCOpTHtXSmemdGLX2ctBvtcE5ZXTqmowLj78Qm+NVAEbhvAy6XtpfdfXcqUvsmZkQjLcj4c0QJ5i1MGPDgBsvG03MkWPA/e9M1E1TooTs5eheL0Lh0UF4V6FxC4AgpDkQpBQANyE9FchPQAB6EUV6GgD6iKgq099Tj9FAVHtlVxJ5EN2hdaJ3QrDsXdd7uq2rtW+0TuixHET3j1WcvwMw9si5k2KcTJslocWTAJ9FapO8xUXBZbOV3pH3aoPIjUrG42VjE4MyoohWvEoFXauKxWscrR6mCWqGZNipvC6nRQb04w6TvAKiLMZ4po1fsZe00oBsGBmQJzectOiq+NXc7azAJIAGW/l9fkrngEfqcNc4+1K4b/aaNoixG+11TawAlzntyGQBPd6WGvCwsPgqpL8KPDT/AFGN23NrX8uF77vuydwFzSDuNj42+qBTEkHhv+9w5JyG5WINtRb3qVoriiU9YTyPTgee79EWN1+XI6HzUTHORpnby8k5jnI3+BzS2NSZKirI1++qeQ153X65KF2nE3GfmlgvGvxddZs3wstVLiTt7bjxR6rEGEd63nmOHMdFURWOH6lBfVgnZaCQAbAE58SbDP8ARbTMSxFhjnaTkRY656Hdop+ik5KiUdUNoaC+dhfMXsRmVeMLe0AbZsHGzSfdc7lZh2iLNHiyRiYSc/L5+9VXthUujG0TaziNMyMzlx0zHVXSlb8c1TPSWz8IC2rmkcjm3y2cvAJ0nSYhdlMrKjaBbrsWAOQ/MdwyFhcdbpmEqTl+azj1Iz99/JJCik7Y9KjlwXq4Lh0UFy9C4rgAykORCkOQANyC9GcgvQAB6GURyGugfT8pyUDMe8VNT6KDfqVWiaRWO2UlonLF6513Hqtf7dvtEVjlScyl5BuH5GMybJxMU3Cwhw8pHWIKuWG1FwFS4VP4VNuSM0OSNRdMsFQ3aCgsRp1YaGF8mTGl3Gwv58EjEsGlAzYQpIQmnpMrhlUX2UKVtinnZ+APqYmnS99bXtmB52S8QoXg+ymVPtse1zQbggjd71bDtWU5JKUdM2qqG1h8fdvcuc1oNsjZzRe2Xdtu35WVEqtpwO1ssaMzvO8AW+W/NXvtliDHUkXq2nYdGx7CDbZBYMsh9+CzY7bvzEi987FU5Xs8XHG9j3D3C1hv8Mgn5dfLgo+nbsjiSVI07bDNTSZZBHMjzTkU5Qnck5pzcXc63ilDk0gDpnM1H31SosSBGYt5or6yNuReSNNxPvshVeIwWuBfmcj1tYo4gsiG1XW93LebcB0zQKeZ20HE2IsRvzB+iHUSi+Wmvuy+KYVVUW2J35D78lpR2dclRb4q+mbbaFrm+QvckWPh9VP4b2gY+xacm5dRz5fRZZFPtE6mwucichrlwVm7NU7KmDbiL7mZke3ZuyAS0EEAXBO0LE5H4VYmyHKl8s2SneBnxHgqJ6SqkOYGg5tN+ovs/EhXSsIjj2joAsjx2pLnvPMtA1GztXvzByKdkdRZJFWyLHst5XHzHxKUEgdEsKMoPV6F4lBACgvCvQvCuAJKG5EchuQANyBIjuQJF0ADkhLckIOH05OMioI6lTlUe6VBE6qtE8uyjekCTuWWRTnMrU/SHJ3bLK5jql5ex2HoZzILUWZDasDR1CFauyGCuqp2xtyGr3cG/UqrQrU/RlOyGNzzq468hkPmtY4cpUYyy4xs0WCjgpIgBssa0anLxJ3lUjtB2ppySGuB6Kr+kDtc6plMUbiImG2X5jvKqbCnyyKOkKhjctssVTXRvKZuawphGU4aUhzKEmvkthmEtI5rNoOhHdsfyON8vG6hHmzQ5xPG3yTvsvVhkwY72JAWHgL6H74oeI0xzaNGutlwvr5LOR3TG4K3EXT2PeG9PAUOmDdju/lvkkvcQbpMh8ewshTWqqJHXDI9o8SbNHjxT6nIIz15/qvHhw9k+GiymkzrRXasVVsg0HhutxuDdNG08ujng34X+f6Kx1LZDub7kGOksQ53mt80Y4M8wimyAdrZP+0OChzGkAEtPxH6JUIu4WGSuOEUzZGyMe294nEcbtIdlzyWY/lI1P8AGJl1JCBdpIHEHXnvV67BVcce1AxrbPIvYaluYJPwVeq6djjctB4FOsAqPVytIFgOATsc6kkJyQ5RZpPbaotTvF7X2LeN9/gstqbka9FdfSNXn9kic0+1LYcxsP2gfNvkswNQ9MzPdEuOOrJEM5oogKiRUuRhXOG5IpjeKJH1BXCEqO/ebuC4YoeBXNnOKJMRFeGI8FH/AL2PAr0YseBRsOKHhjPBDcw8ED96civf3lyKNhxOeCm70uSvTKarXUcaCOSE7oqN0o7mZTeaJzXFrgQRkQtOEkrowmuj6Vrj3SoOQ5KZxA90qEnOSqQiRmvpAfn4LNJStD7eP7x6LOZUnJ2Oxeo3lQ2pUiQ1YGj2BWOCuMcVgdyrcG5P6iTureN07MzVjQG5ujsKcYXg085/DjJH8RyaPEqxw9moIRtVU9z/ANuLXptLUcM59IzLLGPyVyEEmwBJ4DMqQNKIxeZ2z/KM3nw3I9bjjGgspY2xN0LtZD1cVWazEQL3JJTVhjHvZh5ZPrRZIMUijzI2Ba4De9I7x0bfn1T/AAnEBO0veA17Tmwbmu9jPfkLeHNZzJWudoESmqZmEuDyCdc9evFE2pR4hjbhLkaYCA4uAtfI8OS9bZROBTunh9Ztd5ry1zQMsmgg+9PmOyIUM4uOmenCSltAnSlpRhUXCA9JaLJQwetNs7ptiNZZv3qvS6wTARGV54D4rqR2yewGF4G1Idd29WbCa/1c8Z2gAHC9+BycDytdZ7NVTtcDlYbuP0RqWte9wOYzFhvPjdaUXaZiTVNMkMWon0c8lK8hwadqNw/NG4nZPuIPNpRsDiLnE7vqorGPWOk9c9xc8mzidb3+CsXZgXjc4a7Q+/1T8aTmIyNrHsfdsoi+OlAIyEp2b5n/AKYuBvVQNOvfShixbUU8bTbYh2jbcZHn5MHmg4N2gjlsyoyOgkGv9Q3qmWJT6eyGOVx76DCmXGmUxPhr2jbbZ7Do5ufuTNTSg4umhykpbQwNKuFKE9JSXOCyaGwpAvf2UIpkQ3TIOCPUBeFoCQ+dNJp0AHkc1MKpwQpZkzllXQLj6Nq0ftTYn6O06rWKrs/A9xcWC55cl8+YHWGOpieNzx8Vugx29jfcFfhuUNEOalIt2JHuqEqjkpfEjkoWuPdKUjTMm7cy98qiyFW/ttJeR3VVamo5JnbETC48Bu6nckSty0UY9RI95RqKjkldsxsLjwaL+fBWiLszDANqrk2naiJhy/qdr5JNRjRDdiBrYmcGC3mdSnx8Z9zdf7Fyz/47PKbs+yKzqqUNOvq4+8/xOgTn96U8eUVO0n+KQ7TuqgnPcTmV5shNXGPqhb5S9mS1R2jmfltWHAZD3KLmmLs3FIcQE3lkRKbfZ1RSE1M2VgmkMDdXZohdmltfZKNCXkDRNZHI8pzTZy4BdewcJ9RNJu9YG/8ABOJJSCVIejWl9ZQzt3ukdbqGtt71HTx5kHjmp8q2W+NLVHMluj3yTQMIKctOSnZXZ5O/KyPSNAsB4lNZ7WTGtrpGM2mN2je2eg5lCVnHKiZrS3l158gomSujisS62eR0zUDLDVSnaLSee00ADlmm8+EvaQH2BO4G+Q4lOWOuyd5rdJGpdoauGopIqhthIdqOSwttOZslrnD+KxGe+6cdjG/gu5n3qiRbTGMYXE2zIOgJtu6ALQuyk7YaZ8jsmxtdK6/Brdr5JuPcxeX8YV+5lPbyp28QqiDcNk2B/wCtoZbzaUxo5SECS73Oe495xLndXG595S4bp17JC34D2ikg0ddu9p0VqbjFNNm5gB4jIrNInJ1FOQqI5FVSVoW4btaNDkwUPG1DIHfyuyPmoesgkjNntLeunmoWixmSM5OKt2F9p2SDYlsd1iuPx8WT0dM6s04e20V90iC+VWuswOGUXiOwfNvluVYxPDZYfbbl/EM2+akyePPH2h8M0J9DOSRNZJF69ybvKQNEyPTd5S3lBeuge0p/Eb1HxWlMqDYdAs0oT+K3qFoAmXoeLqDIvIVyRtWJO0UJiLu6VM4gcwoDGpQ2NznZAAk+CUkDMwxyjY5znyk2vk0ZE9TuTGbHWRM9XTsDRvI+Z1KjMdxEyPcL5Z5c1GNdkE9tY9RW/s4k5LY4lnc43cbkpAKHdcXJTdjKC7SQ6RDLkNz1yztCpHpvI9c96CSstgKBRYkFOGNs3mgALym5RyglcA1D0Rzf6eVu8SX8wE47WYcY3+taO4/Xk/ffr9VXfRXV7MsjNzgD4hahUQNkY5jhcEWP3xS5xsbjnxdmaheOunuJ4e+B+y7Nv5XbiPryTUqZo9BSTVoby3IsvGyWFiO7oQjNcNCvJKe+ix0aRHy0Tr/huOyeelzc/BIZhp2gXu6m98tUWSleD7RHRLgprm5JPMlMs5r6DyMdUSktHtEADgBYAeAAUl2nxQRUEzWm3r5PVRj/AMbD3j0Iaf7l1K8RRSvBDXZMbfdtg3d4AE+ComO4n697Q3/pxt2Ixy3u6k5+SoxfZFnfwMb5IkDkJqVCmEw/iKMCmzCigrSAKClNfbRBuvbroUS9DjcsRuHZcFccL7QslYdoC9rlpzBA1WbhyUJyBYHyVGPO17bQqeJPouMmDx1FNJUQtLHNJdsXu1zdbDgbKoucr96P5dqmlYTq+3S4VDrojG97D+VxHkUjy8aSjNLsb48224t9AHFCeUpxQnlRlAbDW3lb1Vwe7NVXAReUKx1D+8Vdh1jv9yXJ7m9V7s1nXpPxX1ULYxrI7/izM+/ZC0GuOaxf0vVH+pibwhJ/ucf/AJXIOnZhqyiGS7kpjrBNAbFGJF1hvY1B9teF6GHLy6LAWXIbnLiUhxXAEvKQF4V60LgBoRmiyOyTV5tmiRTBwz1QAklCciEobkAWDsDLs1Q5j5raIysN7IvtVR87j5rdIB3R0WWaQDEKRsrS14uPhzB3FUXGsKfAb+0w77Zjk5aG8WFys+7VdrmuDoaaztQ6Qi45hg39fcVnhyNwyOBEOkBSP2khQJxB4GdnfH3JdJiQ2x60WYciWk3HPmFh4JFK8iJKvrv8IE+JNaLuNh8eQ4q1UmCQ2D7BwtcEnaBHHgqB2orxNO7Z9hncYBplr70LF9mZeT9AsSxZ8vdHdZnYcb8fcmASQlhOSokbbdsWUpgQ7k9EcDJdOBWFGBTdiKF0Bd110kleXQB6Skh2Y80lxQ3PXANA7APtDJnq4+5VjG3XmkPP5BSnZmpEcRbfM6dSoGtm2nudxcf0VnmawwX/AHQrx1+pJgHFCeUtyC5eWWMlOzg/FCnKp3fKgOz7rSXUvPJ3iquVYl/Ihq5s+gKw5lYn6YGf6qN3GG39r3fULly6Lj2Z6XJZNx0Xq5YGHrSiheLkAcShOK9XIAGltC5cgBb4b65BebDRoPHeuXIAHdJcV4uQA+wB+zUwn+ce/Jb3HUsZEHvcALfdhvXLll9nUVXHcYkm7rQWx+93+76KoYthwDDKNd9tDnwXLluOmD6K9MN/3958yjUWEvlG1oN19T+i5ctT7OInRiL6WkkiccwLRctrIjw1VIXLks6z1LjXLkHAmyit0XLl06ehFC5cgDrpDiuXIOAZHpLcy1q5ctQVyRx9Fgog5zJXtHdjYc+Zy+aiSVy5M82Tbj/AeP8AP8iHOQnFcuURQx9gh76l5DmVy5Myf20KXsz/2Q=="">" & _
"!<BR><button type=""button"" onclick=""window.open('', '_self', ''); window.close();"">Aceptar</button>" & _
"</p>" & _
"</body></html>"
.Close
End With
objSHL.Run tempFolder & "\" & tempFile, 1, True
objFSO.DeleteFile tempFolder & "\" & tempFile
#17
Scripting / [VBS] Ver fuente pagina .onion
3 Noviembre 2017, 16:45 PM
Hace unos días me motive con esto del VBS. Tiene mucho que mejorar, lo se, agradecería solo criticas constructivas, tampoco le voy a dedicar mas tiempo. Dejo parte de las URL porque no se como esta la normativa. El wget lo descarga porque tenia intención de hacer mas cosas pero aquí quedo la cosa.
Código (vb) [Seleccionar]
Dim wDir
Dim url7z
Dim urlTor
Dim urlWget
Dim urlPolipo
wDir = pGetEnv("%USERPROFILE%") & "\YoYo\"
url7z = "http://www.7-zip.org/*/7z1604.exe"
urlTor = "https://www.torpro*/*/tor-win32-0.3.1.7.zip"
urlWget = "https://eternally*/*/wget.exe"
urlPolipo = "https://www.ir*/*/polipo-20140107-win32.zip"
pMkDir wDir
If Not pFileExist(wDir & "7z\7z.exe") Then
If pDownload(url7z, wDir) then
pMkDir wDir & "7z"
pExecute wDir & "7z1604.exe /S /D=" & wDir & "7z\", True
pDeleteFile wDir & "7z1604.exe"
End if
End If
If Not pFileExist(wDir & "tor\tor.exe") Then
If pDownload(urlTor, wDir) then
pUnZip wDir & "tor-win32-0.3.1.7.zip", wDir & "tor"
pDeleteFile wDir & "tor-win32-0.3.1.7.zip"
End if
End If
If Not pFileExist(wDir & "wget\wget.exe") Then
pMkDir wDir & "wget"
pDownload urlWget, wDir & "wget\"
End If
pExecute wDir & "tor\tor.exe", False
If Not pFileExist(wDir & "polipo\polipo.exe") Then
If pDownload(urlPolipo, wDir) then
pUnZip wDir & "polipo-20140107-win32.zip", wDir & "polipo"
pDeleteFile wDir & "polipo-20140107-win32.zip"
End if
End If
pExecute wDir & "polipo\polipo.exe socksParentProxy=localhost:9050 socksProxyType=socks5", False
WScript.Sleep 2000
MsgBox pTorGetPage("http://uj3wazyk5u4hnvtk.onion/")
pExecute "TSKILL POLIPO", False
pExecute "TSKILL TOR", False
Function pFileExist(pathFile)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
pFileExist = objFSO.FileExists(pathFile)
End Function
Function pDownload(strLink, pStrSaveTo)
strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink))
strSaveTo = pStrSaveTo + strSaveName
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", strLink, False
' objHTTP.SetCredentials "User", "Password", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
objHTTP.Send
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strSaveTo) Then
objFSO.DeleteFile(strSaveTo)
End If
If objHTTP.Status = 200 Then
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1 'adTypeBinary
.Open
.Write objHTTP.ResponseBody
.SaveToFile strSaveTo
.Close
End With
Set objStream = Nothing
End If
Set objHTTP = Nothing
pDownload = False
If objFSO.FileExists(strSaveTo) Then
pDownload = True
End If
Set objFSO = Nothing
End Function
Sub pMkDir(pDirectory)
Dim oFSO
Dim directory
Dim sDirectory
directory = pDirectory
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Mid(directory, Len(directory), 1) = "\" Then
directory = Left(directory, Len(directory)-1)
End If
If Mid(directory, Len(directory), 1) <> ":" And Mid(directory, Len(directory), 1) <> "%" Then
sDirectory = Left(directory, InStrRev(directory, "\") - 1)
If Not oFSO.FolderExists(sDirectory) Then
pMkDir sDirectory
End If
If Not oFSO.FolderExists(directory) Then
oFSO.CreateFolder directory
End If
End If
Set oFSO = Nothing
End Sub
Sub pExecute(pathExe, wait)
Dim objShell
Dim objFSO
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "cmd.exe /c " & Chr(34) & pathExe & Chr(34), 0, wait
Set objShell = Nothing
End Sub
Sub pDeleteFile(pahtFile)
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(pahtFile) Then
oFSO.DeleteFile pahtFile
End If
Set oFSO = Nothing
End Sub
Sub pUnZip(pathZip, dest)
Dim unZip
unZip = wDir + "7z\7z.exe"
If pFileExist(pathZip) And pFileExist(unZip) Then
pExecute unZip & " e " & pathZip & " -o" & dest, True
End If
End Sub
Function pTorGetPage(strUrl)
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
WinHttpReq.SetProxy 2, "127.0.0.1:8123"
WinHttpReq.Open "GET", strUrl, False
WinHttpReq.Send
pTorGetPage = WinHttpReq.ResponseText
End Function
Function pGetEnv(strEnv)
Dim oShell
Set oShell = CreateObject("WScript.Shell")
pGetEnv = oShell.ExpandEnvironmentStrings(strEnv)
End Function
#18
Ejercicios / Programming Challenges
29 Junio 2017, 11:01 AM
Estaba en un conocido foro de sobre cultura japonesa y encontré lo siguiente:
Como veo que tiene fecha de 08/03/2016 me gustaría saber si alguien tiene versiones posteriores o listas alternativas a estas.
Como veo que tiene fecha de 08/03/2016 me gustaría saber si alguien tiene versiones posteriores o listas alternativas a estas.
#19
Scripting / Re: Modificar .vbs
31 Mayo 2017, 22:58 PM
Que es lo que has intentado? Pon lo que has modificado aunque contenga errores.
#20
Programación C/C++ / Re: Buenas tardes amigos, necesito una ayuda urgente
9 Agosto 2016, 17:33 PM
La definición es correcta. Es un array de agenda.
Fuente:Tutorialspoint
Defining a Structure
To define a structure, you must use the struct statement. The struct statement defines a new data type, with more than one member. The format of the struct statement is as follows −
The structure tag is optional and each member definition is a normal variable definition, such as int i; or float f; or any other valid variable definition. At the end of the structure's definition, before the final semicolon, you can specify one or more structure variables but it is optional. Here is the way you would declare the Book structure −
Fuente:Tutorialspoint
Defining a Structure
To define a structure, you must use the struct statement. The struct statement defines a new data type, with more than one member. The format of the struct statement is as follows −
Código (c) [Seleccionar]
struct [structure tag] {
member definition;
member definition;
...
member definition;
} [one or more structure variables]; The structure tag is optional and each member definition is a normal variable definition, such as int i; or float f; or any other valid variable definition. At the end of the structure's definition, before the final semicolon, you can specify one or more structure variables but it is optional. Here is the way you would declare the Book structure −
Código (c) [Seleccionar]
struct Books {
char title[50];
char author[50];
char subject[100];
int book_id;
} book;