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ú

Mensajes - **Aincrad**

#291
Bueno ya te han puesto la respuesta arriba , también podrías buscar algún código fuente y guiarte!

Por ejm:

Código (bash) [Seleccionar]
(
echo @echo off
echo %p% %t%^=%resultado%
echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul
echo if not exist %op%.dll goto aci ^>nul
echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul
echo goto sad
echo :aci
echo title Error en api . . . . . . .
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³       ERROR  :                                                ³
echo echo ³                                                               ³
echo echo ³     Se necesita el Archivo .dll para descifrar                ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE ^(2111996x32^)                      ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause
echo exit
echo :sad
echo MODE con:cols=80 lines=26
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
echo echo ³                                                               ³     Version
echo echo ³                                                               ³          0.3
echo echo ³                                                               ³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³      Creada especialmente para *Foro el Hacker.NET*           ³ BATCH       ³
echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
echo echo ³                                                               ³     SECURITY³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo echo ³    PASOS A SEGUIR:                                            ³ Para:
echo echo ³     1. Escriba el Pass *Contrase¤a*. Todo menos simbolos.     ³    F 
echo echo ³                                                               ³     o
echo echo ³     2. Listo..... :v                                          ³      r
echo echo ³                                                               ³       o
echo echo ³     4. En caso de no entender nada de los pasos a seguir      ³   El   
echo echo ³                     Vayase a la mierrrrr...da                 ³ H
echo echo ³                                                               ³  a
echo echo ³                                                               ³   c
echo echo ³                                                               ³    k
echo echo ³                                                               ³     e
echo echo ³                                                               ³      r
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo set /p c= Escriba la contrase¤a del archivo cifrado :
echo if not defined c  ^exit 
echo If ^%%c%%^=^= %psw% goto d 
echo goto e
echo :e
echo title Error - contrase¤a Incorrecta.
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³       ERROR  :                                                ³
echo echo ³                                                               ³
echo echo ³     Contrase¤a Incorrecta - Porfavor vuelva a intentar        ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE ^(2111996x34^)                      ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause ^& goto sad
echo goto sad
echo :d
echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^"
echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^"
echo exit) > %temp%\bas.bat


Ves al utilización del signo ^ te ayuda en esos casos.

Código Fuente sacado de : [batch] [aporte] batch archive security v0.3

#292
Hola foro , ando perdido  ;D es que andaba de vacaciones :v y ahorita es que Empieza la universidad .

Bueno esto lo hice hace unos dias espero que les guste (Alfin aprendi a subir proyectos a Github wii  :D) :




La aplicación te permite escuchar música de Emisoras en línea, también tiene un sistema que te permite escuchar y mirar videos YOUTUBE.

caracteristicas:

* Poco consumo de RAM

* No causa retraso mientras juegas o trabajas.

* GUI comprensible y moderna

*Totalmente libre








Imagenes:









PD: A los amantes del Rock , Kpop, Pop y mas le gustara la radio! tiene exelente musica

PD: Porfa Comenten : "Duda", "Criticas Constructuvas" (Elektro) XD, lo que quieran!
#293
Cita de: Eleкtro en  6 Septiembre 2018, 16:17 PM

Código (vbnet) [Seleccionar]
Private Sub WebView1_BeforeDownload(ByVal sender As Object, ByVal e As BeforeDownloadEventArgs) _
Handles WebView1.BeforeDownload

   e.ShowDialog = False

   ' Obtener url de descarga.
   Dim uri As New Uri(e.Item.Url)

   ' ...

End Sub




Es perfecto gracias.   :xD  ;-) (No se que me esta pasando solo tenia que colocar el evento.)


Cita de: Eleкtro en  6 Septiembre 2018, 16:17 PM

Odio ese verbo spanglish inventado que se ha extendido por España y Latinoamérica, "customizar"... por Dios, aprendamos a decir: Personalizar.

Saludos!

Umm lo tendré en cuenta. 
Gracias de nuevo Elektro me has salvado  ;D

#294
Hola como dice en el titulo , ando trabajando con la sig. libreria :

https://www.essentialobjects.com/Download.aspx

y quiero costumizar una descarga, osea es un web control y al navegar y descargar algo se abre automáticamente un savefiledialog.

lo que quiero es costumizarlo y yo mismo obtener la informacion de  la descarga etc...





aka esta la documentación para hacerlo pero no entiendo :

https://www.essentialobjects.com/doc/webbrowser/customize/download.aspx

Necesito ayuda con algún código para guiarme . si algún guro de vb.net me puede ayudar! Gracias de antemano.  ;D

#295
Yo estaba pasando cerca del desfile en el carro de mi tío y Escuche la explosión! , De paso eso no pudo considerarse un atentado eso fue mas bien como un Teatro!

Mi tío al escuchar la explosión Grito: "Que se muera Maduro ndj":laugh:
#296
Gracias! lo probare!  :D
#297
Cita de: Eleкtro en  4 Agosto 2018, 14:13 PM
guárdate el aguijón y relájate un poco... deja de tocar los cojones, gracias.

Quería decirle lo mismo pero no hallaba las palabras correctas! .
#298
Cita de: Avispon99 en  3 Agosto 2018, 02:44 AM
Uno esperaria que en un foro serio este tipo de temas inutiles e imbeciles que no aportan nada ni son fuente de sustento para ningun tipo de debate fueran cerrados de inmediato. Pero luego veo que el moderador fue quien abrio el tema y es ahí cuando me doy cuenta que tal vez el problema sea mio por malgastar mi tiempo en un sitio como este...  !Daajjj!!.

Cita de: El_Andaluz en  3 Agosto 2018, 13:38 PM
De todas manera da igual lo que compartamos, cuando compartimos cosas relacionadas con la informática en cualquier parte de los subforos o los paséis por el forro de los huevos, esta visto y comprobado que aquí en foro libre interesa mas temas como este o temas extraterrestre o cosas parecidas cuando se os pone un tema de noticia relacionado con la informática ni comentáis ni tenéis interés debatirlo y apenas visitas por parte de los visitantes.

Y ahora venir algunos a criticar pues coges pon tu algún tema interesante que podamos debatirlo aquí pero como bien dice Elektro esto es foro libre, si no te gusta con no comentar tienes bastante mira como no he entrado a debatir esto porque ya lo hemos debatido muchas veces en foro libre y ya me aburría el tema.

Ahora solo he entrado para aclarar estas cosas. ;)




Estoy de acuerdo con @El_Andaluz y ademas esto es Foro libre como dice @Eleкtro temática libre! (@Avispon99 este foro es serio! el tema puede que no sea de tu interes, si ese caso puedes irte por donde viniste  y dejar de criticar . has un post tu y debatimos, pero no criticaremos cosas innecesarias ;("este temas es inutil e inbecil")).

Acerca del tema : "Pienso que la "teoria terraplanista" en pleno siglo 21 es una completa estupidez , pensar que hay gente que se lo cree. si estuviéramos en la antigüedad no fuera tan loca la idea!.
la Tierra es esférica . esa es mi creencia y esta demostrada por muchos medios (Satélites etc..) y ciencias (Fisica, Mecanica. etc..) " .
#299
Bueno como dice el titulo. necesito ayuda con un escaner hex. Bueno pondré el code y de ultimo mis preguntas!

Bueno tengo un Listbox con el sig directorio de archivos:

C:\Users\S4LXenox\Desktop\Ransomware Wannacry - copia.exe
C:\Users\S4LXenox\Desktop\eicartest.exe
C:\Users\S4LXenox\Desktop\parite.exe


y con un boton escaneo cada archivo  del listbox :

code del boton:

Código (vbnet) [Seleccionar]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        listv.Items.Clear()
        For abc = 0 To ListBox1.Items.Count - 1

             Scan(ListBox1.Items(a).ToString)

        Next abc
    End Sub



Y aquí la Función de scaneo hex:

Código (vbnet) [Seleccionar]


Dim xml = <?xml version="1.0"?>
              <signatures>
                  <signature>
                      <name>Eicar-Test-Signature</name>
                      <hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
                  </signature>
                  <signature>
                      <name>Hybris.Gen</name>
                      <hex>f649e7cc1e00d37e7f3bc85fff3486ac6de91433aa3a39ef1b114d37b534b8323f6ff67132638a3fe2f2afb4aaf9b7e3b4669bb3cab028298aab533c5d73546cdd396fd58c2c7734c50bca68eb709b889a086fb3db5f8ae533a4d5816e8c5f560983695efa14e291c204b1316e657773</hex>
                  </signature>
</signatures>

Private Sub Scan(ByVal dir As String)


        Dim myStreamReader As StreamReader = Nothing
        myStreamReader = File.OpenText(dir)
        InputString = myStreamReader.ReadToEnd()
        ArrayHold = Encoding.Default.GetBytes(InputString)

        Do
            IndexEnd = Index + 9

            For x As Integer = Index To IndexEnd

                If x > UBound(ArrayHold) Then
                    tempStr = tempStr
                Else
                    tStr = UCase(Convert.ToString(ArrayHold(x), 16))

                    If tStr.Length < 2 Then tStr = "0" & tStr

                    Str.Append(tStr)
                    tempStr = tempStr & Chr(ArrayHold(x))

                End If
            Next

            Index = Index + 10
        Loop While IndexEnd < UBound(ArrayHold)
        For Each signature As XElement In xml.Root.Elements
            If InStr(1, Str.ToString, signature.<hex>.Value, vbTextCompare) Then
                listv.Items.Add(signature.<name>.Value)
                If listv.Items.Count > 0 Then
                    Label1.Text = "Virus"
                Else
                    Label1.Text = "No Virus"
                End If
            End If
        Next

    End Sub





Bueno ahora mis dudas:

1) Cuando Utilizo el OPENFILEDIALOG En el botón y selecciono un virus el sacanner funciona y lo detecta! , Pero cuando coloco el directorio del virus en el listbox asi como puse arriba , el scanner no detecta nada! como corrigo eso?


2) Cuando intento escanear un archivo de mas de 10 mb tarda muchísimo! aunque eso se puede arreglar con un BackgrounWorker y asi no se pegue la app, pero no hay manera de hacer el escaneo hex mas rapido?

Bueno eso es todo, Gracias de antemano!
#300
Casualmente yo acabo de activar mi windows 7 ayer!

Windows Loader by Daz

XD con eso lo activas!