Mensajes

Perdonar por la pregunta tan tonta pero hace tanto tiempo que no toco un array que....no me acuerdo practicamente de nada!!jajaja.
Haber, yo tengo una variable dentro de un for llamada "a" de tipo integer, esta en cada pasada va tomando distintos valores. Quiero recoger estos valores en un array.

Código [Seleccionar] Expandir


dim a as integer=1
dim array as integer()
for contador a=0 to len(b)
a=a*90
a=array(contador)
next

PERO NO LO RECOGE!!No era asi?
Si yo en el compilador le doy a paso a paso por instrucciones el array no me muestra dimensiones, ejemplo: 90=array(0), 180=array(1),...
¿Que hago mal?

Hola buenas, tengo un trozo de codigo fuente que se me queda pillado en el visual studio, al parecer el procesador se pone a trabajar a tope y nada.(es un core 2 duo p8600 y 4 gb de memoria)

Código [Seleccionar] Expandir


Private Function encriptararchivo(ByVal archivooriginal As String) As String
       Dim c As String = ""
       Dim z As String = ""
       Dim y As Integer=0
       For b = 1 To Len(archivooriginal)
           c = Mid(archivooriginal, b, 1)
           y = Asc(c)
           z = z & y & "tallin"
       Next
       Return z

me he inclinado por escribir en el subforo de criptografia ya que vosotros entendeis perfectamente algoritmos rc4, xor y estos funcionan a la perfeccion a la hora de ejecutarlos en un ordenador sin necesitad de un gran procesador ni memoria.
He de decir que la variable archivooriginal es un archivo leido en binario y por eso lo paso a ascci, y que el numero de veces que debe de pasar por el bucle es de 697373.
Si yo le pongo 100000 lo realiza pero le cuesta aunque sin duda lo que mas le cuesta es ir concatenando en la variable z ya que si quito esta concatenacion pues hace el bucle y todas las instrucciones muy rapidas.
¿En rc4 no concatena el texto del archivo que le pasa? si es asi como que con rc4 no se queda pillado y con esto que es una tonteria si?
¿como podria hacerlo sin usar concatenacion?
Si creeis que esto pertenece mas a programacion decirmelo y lo muevo.
Gracias.

Los algoritmos son detectadas por los av's, osea me explico.
Rc4, Xor,... al ponerlos en el cliente del crypter ¿son detectadas las funciones de estos algoritmos por los antivirus?

Gracias Elemental Code por echarle una ojeada y darme tu visto bueno.
Probare con un stub ya quemado y si funciona lo estudio

No puedes pretender hacer un crypter uniendo códigos que te dé la gente. Comprende la lógica de un crypter y sabiendo programar podrás hacer tú uno desde cero.

Perdona Karcrack pero yo no estoy copiando codigos, lo unico que he copiado es la funcion del algoritmo, es mas, estoy intentando desde el principio hacer lo que dices, comprender la lógica de un crypter, por eso pido que me echeis un ojo a lo que voy haciendo.
No se en que lugar te ha podido llegar a entender que quiero mirar codigos y copiar ejemplos, pero si es asi perdona y digo que mi intencion es comprenderlo y hacer el maximo codigo posible de mi parte.
Otra cosa es que mire ejemplos y la estructura sea mas o menos igual pero vamos que lo hago porque no soy una maquina, de todas formas lo que veo en los ejemplos lo voy estudiando o intentando comprenderlo.

Bueno como veo que nadie me contesta pues me he puesto a ordenar el codigo y aqui lo suelto para ver si alguien me dice al menos un "si esta bien echo" o un "no esta bien echo"

Código [Seleccionar] Expandir

Public Class Form1   
   
    Dim original As String
    Dim originalencriptado As String
    Dim lecturastub As String
     
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExaminar.Click
        'abrimos el cuadro de dialogo para seleccionar el archivo nuevo
         Dim ventanaabrirarchivo As New OpenFileDialog
         ventanaabrirarchivo.ShowDialog(Me)
         TextBox1.Text = ventanaabrirarchivo.FileName
         original = Leerlosdatosdearchivo(TextBox1.Text) ' LA VARIABLE ORIGINAL  TENDRA EL ARCHIVO BINARIO DEL ARCHIVO ORIGINAL
         originalencriptado = xEncryption(original, "batidora") 'funcion para encryptar el original
    End Sub

' LEEMOS EL ARCHIVO ORIGINAL Y LO DEVOLVEMOS EN LA VARIABLE CADENAENBLANCORESERVA
Public Function Leerlosdatosdearchivo(ByRef rutaarchivooriginal As String) As String
        Dim cadenaarellenar As String
        Dim canallibre As Integer

        canallibre = FreeFile()
        FileOpen(canallibre, rutaarchivooriginal, OpenMode.Binary)
        cadenaarellenar = Space(LOF(canallibre))
        FileGet(canallibre, cadenaarellenar)
        FileClose(canallibre)
        Return cadenaarellenar
End Function[/color]   

'CIFRAR CON ALGORITMO EL BINARIO ORIGINAL
  Public Function xEncryption(ByVal archivooriginal As String, ByVal batidora As String) As String
        Dim lonDataPtr As Long
        Dim strDataOut As String
        Dim temp As Integer
        Dim tempstring As String
        Dim intXOrValue1 As Integer
        Dim intXOrValue2 As Integer
        For lonDataPtr = 1 To Len(batidora)
            intXOrValue1 = Asc(Mid$(batidora, lonDataPtr, 1))
            intXOrValue2 = Asc(Mid$(archivooriginal, ((lonDataPtr Mod Len(archivooriginal)) + 1), 1))
            temp = (intXOrValue1 Xor intXOrValue2)
            tempstring = Hex(temp)
            If Len(tempstring) = 1 Then tempstring = "0" & tempstring
            strDataOut = strDataOut + tempstring
        Next lonDataPtr
        xEncryption = strDataOut
    End Function

    'LEEMOS LOS DATOS DEL STUB Y LOS GUARDAMOS EN LA VARIABLE LECTURASTUB
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "C:\Users\Administrador\Desktop\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        lecturastub = Space(LOF(1))
        FileGet(1, lecturastub)
        FileClose(1)
    End Sub   

' CREA UN NUEVO ARCHIVO CON LOS DATOS DEL STUB + SEPARADOR + ORIGINAL CIFRADO
Private Sub BtnEncriptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEncriptar.Click

        'funcion para abrir cuadro de texto para guardar archivo
        Dim rutadelarchivonuevo As String = guardararchivo(rutadelarchivonuevo)
        ' ahora el pastel
        FileOpen(1, rutadelarchivonuevo, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, lecturastub & "atomarvientos" & originalencriptado)
        FileClose(1)
        MsgBox("Realizado")
  End Sub

    'FUNCION PARA GUARDAR UN ARCHIVO NUEVO QUE DEVUELVE LA RUTA DEL ARCHIVO NUEVO
Private Function guardararchivo(ByVal rutadelarchivonuevo As String) As String
        Dim x As New SaveFileDialog
        If x.ShowDialog = Windows.Forms.DialogResult.OK Then
            rutadelarchivonuevo = x.FileName
        End If
        Return rutadelarchivonuevo
   End Function

End Class
Si hicierais el favor de darme el visto bueno para poder meterme con el stub o corregir....

[1º abre el binario a cifrar.]

1º abre el binario a cifrar.

Código [Seleccionar] Expandir


Dim original As String
TextBox1.Text = ventanaabrirarchivo.FileName
original = Leerlosdatosdearchivo(TextBox1.Text) 'funcion mas abajo
End Sub

    Public Function Leerlosdatosdearchivo(ByRef rutaarchivooriginal As String) As String
        Dim cadenaenblancoreserva As String
        Dim canallibre
        canallibre = FreeFile()
        FileOpen(canallibre, rutaarchivooriginal, OpenMode.Binary)
        cadenaenblancoreserva = Space(LOF(canallibre))
        FileGet(canallibre, cadenaenblancoreserva)
        FileClose(canallibre)
        Return cadenaenblancoreserva
    End Function

2º Abre el "stub" (ver mas adelante)

Código [Seleccionar] Expandir


FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default) 'ABRE EL EJECUTABLE LLAMADO STUB.EXE EN LA MISMA RUTA QUE EL EJECUTABLE ABIERTO ANTERIORMENTE
        stub = Space(LOF(1))
        FileGet(1, stub)
        FileClose(1)
        Return stub

3º Cifra con algun algoritmo el binario original

Código [Seleccionar] Expandir


FileOpen(1,rutaarchivooriginal,OpenMode.Binary,OpenAccess.ReadWrite,OpenShare.Default)
FilePut(1, rc4(original))
FileClose(1)
'AHORA EL ALGORITMO
Public Function rc4(ByVal binarioarchivoriginal As String) As String 'algoritmo a cifrar el original
        Dim password As String = "yo"
        Dim i As Integer = 0
        Dim j As Integer = 0
        .....
     
4ºPega en un nuevo archivo el Stub + separador + binario cifrado original.

Código [Seleccionar] Expandir

Dim rutadelarchivonuevo As String = botonencryptar() 'DENTRO DEL EVENTO CLICK AL BOTON cifrar
Private Function botonencryptar()
        Dim x As New SaveFileDialog
        Dim rutadelarchivonuevo As String = ""
        If x.ShowDialog = Windows.Forms.DialogResult.OK Then
            rutadelarchivonuevo = x.FileName
        End If
        Return rutadelarchivonuevo
End Function
Private Sub creararchivonuevo(ByVal rutadelarchivonuevo As String)
        FileOpen(1, rutadelarchivonuevo, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
                FilePut(1, stub & "atomarvientos" & original)
        FileClose(1)
End Sub
De momento a ver si he echo bien el Builder. Si esta bien echo pues entonces lo escribo bien con sus llamadas a sus procedimientos y bien ordenado.
Yo estoy dispuesto a intentar hacerlo, pero siempre me falla que copio codigo de otros y me lio o que me pongo a leer documentos que acabo por perderme, asi que creo que esta es la mejor opcion, el ir poco a poco y por eso pido ayuda, para que me corrigais si me equivoco en los pasos a seguir. Graciassss

Gracias $Edu$ por responder tan rapido.
Ya se que no es tan facil y lo que no quiero es intentar copiar de un codigo ya echo, esto ya lo he intentado pero al final me quedo pillado.
Lo que desearia es que me dijierais, "el siguiente paso es pasar el string a una direccion de memoria" o lo que sea y yo intentar hacerlo

Hola buenas, antes de empezar os pido por favor algo de paciencia.
Estoy acostumbrado a escribir en vb.net y me gustaria aprender a hacer un crypter lo mas sencillo posible en vb.net
He realizado el diseño grafico con dos botones (examinar, cifrar) y un textbox. Os pongo el codigo:

Código [Seleccionar] Expandir


Public Class Form1
Dim ventanaabrirarchivo As New OpenFileDialog
Dim original As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Sytem.EventArgs) Handles BtnExaminar.Click
        ventanaabrirarchivo.ShowDialog(Me)
        TextBox1.Text = ventanaabrirarchivo.FileName
        original = Leerlosdatosdearchivo(TextBox1.Text) 'funcion mas abajo
    End Sub

    Public Function Leerlosdatosdearchivo(ByRef rutaarchivooriginal As String) As String
        Dim cadenaenblancoreserva As String
        Dim canallibre
        canallibre = FreeFile()
        FileOpen(canallibre, rutaarchivooriginal, OpenMode.Binary)
        cadenaenblancoreserva = Space(LOF(canallibre))
        FileGet(canallibre, cadenaenblancoreserva)
        FileClose(canallibre)
        Return cadenaenblancoreserva
    End Function
End Class

Ahora tengo en la variable "original" el ejecutable leido de forma binaria.
1º Deberia de leer solo un elemento del ejecutable o todo el ejecutable como lo esta haciendo?
2º Despues de esto deberia de dar la vuelta al string "original" o meterle cada 3 letras un espacio o algo para que el codigo no sea detectado?
3º Que es lo siguiente que deberia de hacer ?
Por favor ayudarme poco a poco para lograr hacer uno en vb.net muy sencillo aunque sea detectado por los antivirus.

[WPS transaction failed (code: 0x03), re-trying last pin]

Hola buenas, yo lanzo el siguiente comando en bt5 r1, reaver 1.4 y BCM4312:

Código [Seleccionar] Expandir

reaver -i mon0 -b A0:21:B7:XX:XX:XX -c 3 -vv -d 15 --fail-wait=360
El Caso es que reaver se asocia y hace su trabajo pero me pone WPS transaction failed (code: 0x03), re-trying last pin
Como es logico cuando me aparece el porcentaje esta en 0% y siempre probando el mismo pin y mismo error o el mismo error con el code: 0x02
1º¿Esto es que esta bloqueado el router?
Si fuera bloqueo del router
2º¿no deberia de aparecer con wps off cuando le paso el Walsh?, porque si le paso el walsh me aparece el ap con wps on.
Haber si alguien me responde a estas dos preguntitas por favor.

Muchas gracias adastra se ve que controlas el tema.
Burp Suite, OWASP ZAP (ZAP Proxy) o Paros Proxy----> Al principio le eche un ojo a burn suite y zap proxy y pense "No me esta entendiendo y me a dicho el nombre de unos programas para buscar vulneridades en un servidor", pero viendo paros proxy veo que el que se equivocaba soy yo.
Si voy a tener problemas con los certificados entonces me olvido del web spoofing ya que no puedo coger el certificado de su pc.
Lo de buscar vulneridades en la server web prefiero dejarlo para lo ultimo ya que a simple vista es muy seguro el server web, antes tiraria de metasploit para conseguir sesion en el pc de la persona e instalarle un keylogger.
Tu comentas en el post de arriba "Has intentado con dsniff para envenenar la red? (aunque posiblemente lo pille el firewall, vale la pena intentarlo)"
Yo te contesto a eso que esos programas que envenenan la red lo que en realidad hacen es arp spoofing, y una vez mas tienes razon de que el antivirus previene la ejecucion de codigo y no el ataque de envenenamiento porque hay me rectifico y es el firewall del propio eset el que lo detecta como ataque y lo bloquea.

¿Si un puerto esta ya siendo utilizado por un proceso como es el iexplorer con su puerto 80, el puerto 80 puede ser utilizado al mismo tiempo por otro proceso? Yo pensaba que al mismo tiempo es imposible utilizar el mismo puerto porque el puerto ya esta en uso.

Y mi mayor duda, ¿si yo configuro el mozilla o explorer para que utilice un proxy ssl (olvidandome de los demas pc) e intento entrar con mi mozilla o explorer a https://es-es.facebook.com/ tambien voy a tener problemas con el aviso del certificado?