Últimos Temas de: sorcerer

Mostrar Temas
Páginas: [1]

1	Programación / PHP / problemas con apache y upload	en: 14 Junio 2007, 20:08 pm
hola gente, ando con un problema que me va a costar plata si no lo soluciono. estoy programando una pagina en ajax con php.. y tengo una parte que hay que subir una foto, el problema es que no puedo subir la foto, no porque la programacion sea mala sino porque el apache de el fedora 7 no me deja.. si alguien puede darme una mano lo agradeceria mucho.

2	Programación / Programación Visual Basic / ayuda con winsock(no tan basico)	en: 19 Febrero 2007, 18:56 pm
bueno gente la cosa es asi, hace mucho habia programado un programin que ejecuta batch files en una pc ajena y era muy lindo pero no andaba ahora que volvi a verlo lo hice mejor y me di cuenta que no anda porque el 99.99% de las conputadoras no tienen winsock. entonces hice un programa que copia el MSWNSCK.OCX al %systemroot%\\system32 y lo copia pero todavia no anda, entonces me dijieron que haga en el cmd \\\"regsvr32 C:\\WINDOWS\\system32\\MSWINSCK.OCX\\\" pero sale un error de que no es un library o no esta en el windows helper... alguien sabe como instalar winsock en una maquina con windows xp?

Programación / Programación Visual Basic / probelma con textbox

en: 17 Noviembre 2006, 14:12 pm

bue estoy haciendo un pequeño trabajo para la escuela en el cual cifro un texto de la formma siguiente:

Código:

For x = 1 To MaxText
   crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(pass.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = crypted

lo que hago es agarrar char por char del texto y sumarle el ascii del char que recivo en el pass, es simple y funciona

el problema es que cuando abro un txt cifrado anterior mente me sale un error en la linea:

Código:

 crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))

aca les paso el codigo de todo el programa:

<<<Form1.frm - principal>>>

Código:

Dim File As Integer, txt As String
Private Sub Form_Resize()
On Error GoTo fin
If Form1.Height < 825 Then
   Form1.Height = 826
End If
If Form1.Width < 120 Then
   Form1.Width = 121
End If
Texto.Height = Form1.Height - 825
Texto.Width = Form1.Width - 120
fin:
End Sub


Private Sub menuDecryptItem_Click()
Load Form3
Form3.Visible = True
End Sub

Private Sub menuEncryptItem_Click()
Load Form2
Form2.Visible = True
End Sub

Private Sub menuExitItem_Click()
End
End Sub

Private Sub menuFontItem_Click()
CD.ShowColor
Texto.ForeColor = CD.Color
End Sub

Private Sub menuNewItem_Click()
Texto.Text = ""
encrypted = 0
End Sub

Private Sub menuOpenItem_Click()
On Error GoTo fin
Dim leng As Long
Dim x As Long
File = FreeFile
CD.Filter = "Text Files (*.txt)|*.txt"
CD.ShowOpen
Open CD.FileName For Binary As #File
txt = Space(LOF(File))
Get #File, , txt
Close File
Texto.Text = txt
fin:
End Sub

Private Sub menuSaveItem_Click()
On Error GoTo fin
File = FreeFile
CD.Filter = "Text Files (*.txt)|*.txt"
CD.ShowSave
Open CD.FileName For Output As #File
Print #File, Texto.Text
Close File
fin:
End Sub

<<<Form2.frm - encriptacion>>>

Código:

Dim x, MaxText, y, MaxPass As Long, crypted As String

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub Form_Load()
Label2.Visible = False
End Sub

Private Sub OKButton_Click()
Label1.Visible = False
Text1.Visible = False
OKButton.Visible = False
CancelButton.Visible = False
Label2.Visible = True
MaxText = Len(Form1.Texto.Text)
MaxPass = Len(Text1.Text)
y = 1
crypted = ""
For x = 1 To MaxText
   crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = crypted
Unload Me
End Sub

<<<Form3.frm Decriptacion>>>

Código:

Dim x, MaxText, y, MaxPass As Long, decrypted As String
Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub OKButton_Click()
On Error GoTo fin
Label1.Visible = False
Text1.Visible = False
OKButton.Visible = False
CancelButton.Visible = False
Label2.Visible = True
MaxText = Len(Form1.Texto.Text)
MaxPass = Len(Text1.Text)
y = 1
decrypted = ""
For x = 1 To MaxText
      decrypted = decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - Asc(Mid(Text1.Text, y, 1)))
   If (y = MaxPass) Then
      y = 1
   End If
   y = y + 1
Next x
Form1.Texto.Text = decrypted
Unload Me
fin:
Unload Me
End Sub

aver si alguien me puede explicar porque cada ves que abro un archivo no salta el error en esa linea?
osea si abro el txt y le cambio algo tonces anda pero si no toco el texto despues que lo abro no anda...

alguien tiene alguna solucion?

4	Programación / Programación Visual Basic / haciendo un troyano pero medio cagado...	en: 10 Julio 2005, 15:31 pm
bueno estoy planiando un troyano... pero este no va a ser uno mas de la cuenta. mi pregunta es asi para que el troyano no sea un virus, abria que sacarle que? las api? la conexión por un puerto especifico? que??

5	Programación / Programación Visual Basic / un problema con el text	en: 8 Julio 2005, 12:06 pm
bueno estaba aburrido y me puse a hacer un cliente de telnet ya que el telnet de windows no me puedo ekivocar. lo hice y anda joya, el problema es que una ves que en el text box sige pa abajo de lo que se puede ver el textbox no baja osea sigo mirando el principio y es muy inchapelotas andar bajado la barrita... alguien sabe como hacer para que el textbox se kede en la altura de lo ultimo que mande?

6	Programación / Programación Visual Basic / telnet, vb y una comunicacion entre ellos	en: 6 Julio 2005, 16:04 pm
bue la cosa es asi... toy por mejorar el programa que hice para averiguar el ip de otra persona. pero quiero que este sea mejor osea este no va a pasar por ningun ftp va a ser su propio servidor y el ipconfig te va a llegar al programa. pero mi pregunta es la siguiente antes de empezar con el kilombo, teoricamente me puedo conectar desde telnet al prog que cree si escribo en el ms dos: telnet xx.xxx.xx.xxx 1900 se tendria que conectar a mi compu por el 1900 que es el que el prog esta escuchando y despues el prog podria mandar mensajes con un simple winsock1.sendmessege (o algo asi) y asi intercomunicar no?

7	Media / Multimedia / partir un avi en 2	en: 5 Junio 2005, 18:48 pm
bue me baje una peli de 717608 kb osea dividido a 1024 es 700.78 oauch menos de un mega pa que entre en el cd que tengo pero no entra la pregunta es basica quien conoce un programa que lo parta no que baje la calidad porque ya esta sifuciente mente "bajada" y con un disco de 20gb no puedo darme el gusto de guardar pelis el que me pueda pasar el nombre de un prog me aria un favoraso

8	Programación / Scripting / un problema con vb y batch	en: 27 Enero 2005, 02:54 am
bueno esoy haciendo un proyecto que entre otras cosas va a automaticamente crear un batch y ponerle x comandos hice un codigo que dice asi" Dim lnArch As Integer Dim psNomArch As String psNomArch = "C:\ip.bat" lnArch = FreeFile Open psNomArch For Output As #lnArch Write #lnArch, Text1.Text & pause Close lnArch (el text1 tiene una boludes que no viene al caso) lo que pasa es que en el bat me escribe las cosas en comillas ej: "@pause" en ves de @pause si alguien sabe como sacar las comillas que pone el vb automaticamente que postee desde ya gracias por apoyar siempre a todos los que entran a este foro y contestan

9	Programación / Programación Visual Basic / poner un programa en el startup de windows con bv 6	en: 25 Enero 2005, 00:07 am
bueno estoy aprendiendo vb6 e hice un programa con winsock que el cliente le cuelga la compu por 10 segs al server (muy inocente) lo que necesito es un codigo pa poner el server en el startup de win y ya no me importa ni como ni donde aparezca todo lo que encuentro en la red es pura ***** que no anda si alguien puede ayudarme se lo agradeceria.

10	Informática / Tutoriales - Documentación / guia html desde 0	en: 28 Octubre 2004, 01:02 am
se las mostre a varios amigos y me dijieron que estaba buena aca se las dejo presten atencion a lo k es un comentario y lo k es un codigo. Giua html By Sorcerer Indice 0 - Que Es Html 1 - Un poco de esta guia \|_ 1.2 Cosas vasicas que hay que tener para leer esta guia 3 - Lo + basico 4 - Como empiezo un documento(doc) html \|_ 4.1 Configurar el <body> 5 - Crear tablas \|_ 5.1 Configurar el <table> \|_ 5.2 configurar el <td> 6 - otras etiquetas 0 Que es html? el html es el lenguaje mas simple y mas usado para hacer paginas web. 1 Un poco sobre esta guia esta guia la hice porque no me banco ninguna guia que encontre en internet empiesan a dar vueltas sobre boludeses cuando lo unico que queres hacer es poder usar html en 20 mins bue yo te digo esta guia dura 20 mins pero que te entre en la cabeza eso no es mi problema esta guia no te viene a explicar el porque de cada cosa sino el como para hacer una page notable con todo pero no te vas a hacer un profesional. bue no me gusta el bla bla asi que a empezar. 1.2 Cosas basicas que hay que tener para leer esta guia -un rato tranki sin que te jodan -ganas de aprender -CABEZA no ser un robot y pensar las cosas no hacerlas y listo -ENTENDER lo k estas haciendo sino vas a vivir mirando esta guia para fijarse como se hace una tabla 3 Lo + basico html esta hecho con etiquetas que le dicen al explorador lo que queres. esas etiquetas van adentro de estos signos <>, por ejemplo si le queremos decir al explorador que empezamos el doc html escribimos <html> entonces el explorador sabe que tiene que empezar el doc html. las palabras adentro de estos signos no se muestran en el explorador ya que son las etiquitas. la mayoria de las etiquetas tienen un comienzo y un final por ejemplo si le queremos decir al explorador que terminamos el doc html le escribimos </html> ese / es el signo que terminamos de usar la etiqueta. los documentos html se pueden hacer en el notepad de windows o en algun editor de html como el dreamwaver, frontpage, namo, ... tambien la primer pagina de tu page a donde entran los visitantes primero se tiene que llamar index.htm o index.html como kieras nota: ahora no lo vas a entender pero mas adelante te va a servir: digamos que tenes la pagina un una carpeta llamada: "page" y queres poner una foto o audio que se llama pepe.jpg que esta en una carpeta llamada "fotos" que esta adentro de la carpeta "page" entonces la direccion es "fotos/pepe.jpg" 4 como empiezo un doc html eso es facil solamente le tenemos que decir al explorador lo que queremos claro que todo tiene un horden y aca se los voy a mostrar mas claro abramos el notepad el windows. y escriban esto (lo que esta en rojo son explicasiones) <html>(empesamos el doc html) <head>(empesamos el encabesado del doc) <title>(empesamos el titulo que va en la barra asul de arriva)el titulo</title>(terminamos el titulo) </head>(terminamos el encabesado) <body>(empesamos el cuerpo del doc) algun texto(entre el <body> y el </body> va el cuerpo o contenido del documento html) </body>(terminamos el cuerpo del doc) </html>( terminamos el doc) *nota: si escribis algo adentro de los <> no va a salir y site equivocas en alguna etiqueta tampoco guarda el doc en donde quieras con el nombre prueba.htm no te olvides el htm 4.1 Configurar el <body> como ya abran visto si hicieron bien todo asta ahora les y si abren el doc prueba.html les va a salir una pantalla blanca que dice "algun texto" (salvo que lo allan cambiado). pero... no todas las paginas son iguales con fondo blanco y letras negras y links asules. entonces para cambiar esas cosas tenemos que escribir esto: <body el atributo='el tipo'> Atibutos: bground: fondo text: color del texto link: color del link y hay mas pero esto es lo basico. colores: se imaginaran que no pones text='rojo' y tenes el texto #000000 negro #ffffff blanco #ff0000 rojo #00ff00 verde #0000ff azul osea si ponemos <body text='#0000ff'> tendriamos un doc con letras azules. 5 Crear Tablas para que hacer una tabla? bueno porque todos los sitios casi estan echos con tablas simple. la etiqueta para hacer una tabla es <table></table> las etiquetas para hacer lineas "rows" son <tr></tr> y para hacer columnas son <td></td> y van en ese orden parece complicado pero miremos el ejemplo: Habramos el notepad y hagamos una tabla <table> <tr> <td>1</td> </tr> </table> les salio el 1 solo sin nada y logico porque hay que con figurar la etiqueta de <table> para que tenga borde entonces adentro de <table> escriban border='1' ej:<table border='1'> (tambien se puede 2,3 depende del borde que quieras) les salio un uno adentro de un cuadrado blanco no? si no les salio vuelvan a fijarse en que se equivocaron. bueno ahora que ya tenemos un cuadrado vamos a hacer 2 uno abajo del otro <table border='1'>(empesamos la tabla con el borde) <tr>(empesamos una linea nueva) <td>(empesamos una nueva columna)1</td>(terminamos la columna) <tr/>(terminamos la linea) <tr>(empesamos otra linea) <td>(empesamos otra columna)2</td>(terminamos la columna) </tr>(terminamos la linea) </table>(terminamos la tabla) ahora aganlo en el notepad y guardenlo como tabla.htm si no les salio haganlo de nuevo asta que se den cuenta que estaba mal ahora una tabla con un numero alado del otro: <table border='1'> <tr> <td>1</td> <td>2</td> </tr> </table> bueno espero que lo hayan captado porque me pudri. 5.1 Configurar el <table> atributos: border: el ancho del borde (1,2,3) bgcolor: el color de fondo de la tabla( arriva estan escritos los colores) bordercolor: el color del borde (los colores estan escritos arriva) Ejemplo: <table border='2' bgcolor='00ff00'> te va a salir una tabla de fodo verde con un borde bastante ancho. Estos son los basicos 5.2 Configurar el <td> si, a cada linea le podes poner su color de fondo y el color de su borde bgcolor: el color de fondo de la tabla( arriva estan escritos los colores) bordercolor: el color del borde (los colores estan escritos arriva) Ejemplo: <td bgcolor='000000'> el fondo de esa linea te va a salir negro. 6 otras etiqutas estas etuquetas que les voy a dar ahora sirven para adentro del body y adentro de tablas. <font>(esta etiketa sirve para cambiar el tipo/color/tamaño de la fuente)</font> atributos del font: color: cambia el color de la fuente adentro de las etiquetas size: " el tamaño de la fuente " de las " style: " el tipo de la " " de las " Ej: <font color='00ff00'>hola</font> como estas va a salir algo asi: hola como estas. <embed src="aca va la direccion del archivo de internet o de tu compu" quality="aca va a que calidad lo kerer ve low o high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>(esta etiquita es para pones animaciones/botones/cosas hechas en flash que terminen con .swf <img src='la direccion de la imagen'>para poner imagenes que terminen en: .gif .jpg .jpeg .png <OBJECT CLASSID="CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95" CODEBASE="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" standby="Loading Microsoft Windows Media Player components..." type="application/x-oleobject"> <PARAM NAME="FileName" VALUE="aca pones la direccion del video/audio"> <PARAM NAME="AutoStart" VALUE="True"> <PARAM NAME="ShowStatusBar" VALUE="True"> <PARAM NAME="ShowGotoBar" VALUE="False"> <PARAM NAME="TransparentAtStart" VALUE="True"> <PARAM NAME="AutoSize" VALUE="True"> <EMBED type="application/x-mplayer2" pluginspage = "http://www.microsoft.com/windows/windowsmedia/en/Download/default.asp?tcode=9#location2" src="la direccion del video audio" AutoStart=True ShowStatusBar=True ShowGotoBar=False TransparentAtStart=true> </EMBED> </OBJECT> no te asustes esto es para poner un video wmv o sonido wma tambien para reproducir radios y canales de tele que esten on line lo que no te digo no lo tokes!! bueno espero que les sirva esto es todo el que copie esta guia deje mi nick y mi page si no sos un lammer hijo de tu reputa madre y te juro por mi vieja que si veo esta guia en tu pagina sin mi nick te hago pelota la pagina! y no es una amenasa y no me gusta hablar de mas.

Páginas: [1]