Mensajes

busca Joiner en el foro o algo similar!¿

Dulces Lunas!¡.

[.bas]

Sien embargo esta bueno aun asi xD,... deberias integrarle un buscador masiva en una ruta dada y que buscara los archivos de "X" lenguaje(s) y si es como Basic un archivo .bas extragiera las funciones por separado o similar o mapear las funciones en X proyecto y asi obtener dependencias de codigo de X funcion, son simples ideas.!¡

P.D.: pon este en Software  no es este el lugar xP.

Dulces Lunas.!¡

[.bas]

importa code
entra en nuevo y veras que importa

Lista de Errores:

Nuevo -> Plantillas Click botón Agregar (Cuando no hay) Produce el Error 53 y cierra la aplicación.
Nuevo -> Buscar y se cierra la ventana "Agregar Funcion o Procedimientos" las ventanillas que surgieron de esta NO CIERRAn con ella.!¡
Nuevo -> Buscar/Reemplazar se da en cancelar tengo entendido que deberia cerrarse dicha ventana

Son todos que encontre

Sien embargo esta bueno aun asi xD,... deberias integrarle un buscador masiva en una ruta dada y que buscara los archivos de "X" lenguaje(s) y si es como Basic un archivo .bas extragiera las funciones por separado o similar o mapear las funciones en X proyecto y asi obtener dependencias de codigo de X funcion, son simples ideas.!¡

Dulces Lunas.!¡

[COPIA DE SEGURIDAD ok!¡]

Si Exporta deberia entonces Importar!¡, OJO no tomo en mension a la opcion de COPIA DE SEGURIDAD ok!¡.

Es similar a una aplicación Tipo Biblioteca que tengo.!¡

Dulces Lunas.

Busco algun lugar donde alla tutorials de Visual Basic 2008,sobre Seguridad Informática 
osea como por ejemplo hacer und crypter, o un Joiner ect.
No debe ser en realidad esactamente un Video tutorial... pero ya que mie es pañol ne es tan bueno me es mas facil ver que leer 

bueno gracias a los que me ayuden

ve a la sección .Net de Programación General!¡.

Dulces Lunas!¡.

un helado tambien?... a una mejor idea quieres que te lleve el desayuno alguien del foro a la cama¿?... digo no tenemos mejor que hacer el trabajo otros.!!

Hola, yo tambien tengo un programita que queria pasar de c a visual c++. espero vuestra ayuda, gracias.

#include <stdio.h>
#include <dos.h>
#define polinomio 0x13
#define PUERTO 0x378


int meter_dato (int numero);
void reset ();
void clk ();
void poner_polinomio ();
void calcular_crc (int numero);
char datos ;

/* *************************************** */

main ()
{
  int numero;
  numero = 0x80  ;
  calcular_crc (numero);
}

/* *************************************** */

void calcular_crc (int numero)
{
int i;
int numero_aux = numero;

poner_polinomio ();

reset();

for (i=0;i<8;i++)
{
  numero_aux = meter_dato (numero_aux);
  clk ();
  }
}

/* **************************************** */

void poner_polinomio ()
{
datos = datos << 4 ;
datos = datos + polinomio;
}

/* ****************************************** */

int meter_dato (int numero)
{
int valor;
int numero_aux = numero;
valor = numero & 0X80 ; /* VBLE */
if (valor == 0 )
{
    datos = datos & 0xBF ;
}
else
    {
    datos = datos | 0X40 ;

}
    numero_aux = numero_aux << 1 ;
    /* numero_aux = numero_aux & 0x0F ; */
    return numero_aux;
}


/* ******************************************* */

void reset ()
{
datos = datos & 0xEF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x10 ;
delay (1000);
outportb (PUERTO,datos);

}

/* ****************************************** */

void clk ()
{

datos = datos & 0xDF ;
outportb (PUERTO,datos);
delay (1000);
datos = datos | 0x20;
outportb (PUERTO, datos);
delay(1000);

}

un helado tambien?... a una mejor idea quieres que te lleve el desayuno alguien del foro a la cama¿?... digo no tenemos mejor que hacer el trabajo otros.!!

mira lo facil que es el solucionar el problema...pone un punto de interrupcion y seguilo y fijate por donde entra el codigo y vas a saber porque esta fallando...

O puede hacer ya un diagrama de flujo ¬¬"... aun que esto ya seria muy.¡!

Dulces lunas.¡!

SITUA PB1.Visible = False AL INICIO

Código (vb) [Seleccionar] Expandir


DIM STRSAVEFILE AS STRING
If Text1.Text = "" Then
       MsgBox "No hay nada que Generar!", vbCritical, "Worm Kreator 1.0 [error]"
   Else
       CD1.FileName = "Worm.vbs"
       CD1.Filter = "Archivos vbs |*.vbs"
       CD1.ShowSave
`-----------
STRSAVEFILE=CD1.FileName
IF STRSAVEFILE<>"" THEN
'------------
       Open STRSAVEFILE For Output As #1
       Print #1, Text1.Text + vbCrLf
       Close #1
       PB1.Visible = True
       For i = PB1.Min To PB1.Max
           PB1.Value = i
       Next i
       MsgBox "Worm Generado con Exito", vbInformation, "Worm Kreator 1.0 [Done]"
'----------
ELSE
        PB1.Visible = False
'SENTENCIAS DE CANCELACIÒN
END IF
'----------
End If

Nos vemos.

Dulces Lunas

LO DEBES HACES DE FORMA SERIAl NO PARALELA.

Código (vb) [Seleccionar] Expandir


       V = Replace(TextBox1.Text, "a", "xD")
       'V = Replace(TextBox1.Text, "b", "xP")
       V = Replace(v, "b", "xP")
       TextBox2.Text = v



ò

Código (vb) [Seleccionar] Expandir


       V = Replace(TextBox1.Text, "a", "xD")
       TextBox1.Text=v
       V = Replace(TextBox1.Text, "b", "xP")
       TextBox2.Text = v



ò

Código (vb) [Seleccionar] Expandir


       V = Replace(Replace(TextBox1.Text, "a", "xD"), "b", "xP")
       TextBox2.Text = v




Dulces Lunas.