Buenas, espero que alguien pueda ayudarme, estoy intentando crear un programa sobre VB6.0 que encripte y desencripte textos, e estado buscando por google pero lo que encontre no me ayudo mucho...
e creado 4 textbox las dos primeras para introducir el texto normal y k por la otra salga cifrado y viceversa para las siguientes dos, tengo los botones cifrar y descifrar creados,
pero no se como asociar que una letra sea otra... alguien podria aclararmelo? Gracias ;)
hola atry
supongo que ya la viste
esta clase que busque en google
es para cifrar aqui (http://www.taringa.net/posts/downloads/1022843/Clase-cifrar-descifrar-para-VBasic.html)
salu2
Weno muchas gracias por la respuesta, probare lo que dice esta pagina, ;)
Nada no me sirve esta es la 3 que viene con link de muestra que estan rotos :-(
hay 3 millones de paginas con modulos y algoritmos para cifrar cadenas ¿y decis que no encontraste? :xD
PD:y ayuda va con "y"
dios mio...
usa la "cabesa" inventa un algorritmo para cifrar el texto
yo ya hice barios
si no se te ocurre nada para cifrar te doy una ayudita...
.... (http://es.wikipedia.org/wiki/Enigma_%28m%C3%A1quina%29)
es un algorritmo solido
Calculo que el primer "ejemplo" que vi de cifrado, fue en la película: 2001, Odisea del Espacio.
La famosa computadora "HAL". Que, por supuesto, hacia referencia a "IBM".
cifrado por sustitución (en este caso, se basa en "correr" las letras del código ASCII 1 a la derecha).
H = I
A = B
L = M
Es la técnica más sencilla de programar. Por suspuesto, puedes crear todo tipo de variantes con este método. El tema es que no es muy "seguro" que digamos... ;D
Es cuestión de decidir cuál es la que mejor se aplica a tu caso... :)
Saludos!
Cita de: MCKSys Argentina en 4 Septiembre 2009, 05:16 AM
La famosa computadora "HAL". Que, por supuesto, hacia referencia a "IBM".
eso se dice, pero el mismo autor de la pelicula lo niega rotundamente y dice que es una simple coincidencia y no tiene nada que ver IBM, aparte IBM nunca se iba a dejar que lleve su nombre una computadora que al fin y al cabo termino funcionando mal, le hiba a traer mala imagen.
slaudos.
Si???
Je,je,je, no sabía eso... ;D
(Lo del autor, digo...)
Claaaro... si esk es tan sencillo! se me olvidaba k estas cosas salen con el 2 programa que haces... k cabeza lam ia eh? y weno como se tanto de esto necesito postearlo para k me echen una mano...
dejenlo no vovlere a postear una duda en esta sección, solo me sirve para perder el tiempo mientras se "burlan" de mi ignorancia cuando intento aprender cosas que no se...
P.D: Alludita con ¿y? No me Jo**s!! fijate k no lo sabia... y claro tambien tendria k llevar la "¿" al principio kizas?... dios!! te habra costado muchisimo averiguar lo que decia esa frase verdad? madre mia...
Hey! lol lo que pasa es que hay que aprender a buscar, yo por ejemplo casi siempre utilizo las lineas de codigo que agrega un programa que codearon los de Gedzac... ajj ahora no lo recuerdo y me da pereza postearlo... toy estrezado..
Saludos!
oie no sean pesados
me incluyo que tambien soy ignorante en muchas cosas de vb
si quieren dar a mostrar su ego, mejor no postee y haga su tema aparte "yo soi el amo de vb", ya que atry posteo para una ayuda
no todos tenemos la misma practica en la programacion
y si de verdad les gusta que la programacion se sigua dando, no se burlen de los principiantes (me incluyo)
salu2 y gracias por la ayuda que no le prestaron a un "integrante del foro"
Cita de: Ari-Slash en 4 Septiembre 2009, 19:51 PM
oie no sean pesados
me incluyo que tambien soy ignorante en muchas cosas de vb
si quieren dar a mostrar su ego, mejor no postee y haga su tema aparte "yo soi el amo de vb", ya que atry posteo para una ayuda
no todos tenemos la misma practica en la programacion
y si de verdad les gusta que la programacion se sigua dando, no se burlen de los principiantes (me incluyo)
salu2 y gracias por la ayuda que no le prestaron a un "integrante del foro"
Perdón pero... ¿ esto es por mi ??? :huh:
Si lo es, la verdad, no veo DONDE es que he insultado o me he burlado de esta persona.
Mas bien, puse un ejemplo concreto (y es el mas sencillo y básico que se me ocurrió)
Si no lo es, pues, bueno, no he dicho nada... :-X
Cita de: MCKSys Argentina en 4 Septiembre 2009, 21:59 PM
Cita de: Ari-Slash en 4 Septiembre 2009, 19:51 PM
oie no sean pesados
me incluyo que tambien soy ignorante en muchas cosas de vb
si quieren dar a mostrar su ego, mejor no postee y haga su tema aparte "yo soi el amo de vb", ya que atry posteo para una ayuda
no todos tenemos la misma practica en la programacion
y si de verdad les gusta que la programacion se sigua dando, no se burlen de los principiantes (me incluyo)
salu2 y gracias por la ayuda que no le prestaron a un "integrante del foro"
Perdón pero... ¿ esto es por mi ??? :huh:
Si lo es, la verdad, no veo DONDE es que he insultado o me he burlado de esta persona.
Mas bien, puse un ejemplo concreto (y es el mas sencillo y básico que se me ocurrió)
Si no lo es, pues, bueno, no he dicho nada... :-X
dudo que sea por ti (y yo pa' que me meto? a ver que si dicen algo xD xD), me parece q es x el fan de naruto q hay mas arriba :rolleyes:
Cita de: Atry en 4 Septiembre 2009, 12:39 PM
Claaaro... si esk es tan sencillo! se me olvidaba k estas cosas salen con el 2 programa que haces... k cabeza lam ia eh? y weno como se tanto de esto necesito postearlo para k me echen una mano...
dejenlo no vovlere a postear una duda en esta sección, solo me sirve para perder el tiempo mientras se "burlan" de mi ignorancia cuando intento aprender cosas que no se...
P.D: Alludita con ¿y? No me Jo**s!! fijate k no lo sabia... y claro tambien tendria k llevar la "¿" al principio kizas?... dios!! te habra costado muchisimo averiguar lo que decia esa frase verdad? madre mia...
sin palabras...
Cita de: Pein en 4 Septiembre 2009, 17:57 PM
lo que pasa es que hay que aprender a buscar
el unico que dijo una frase verdadera.
estoy tratando de enseñarle a pescar y no de darle el pescado, entonces para ustedes lo "bueno" seria ponerle el codigo de un modulo y que siga sin aprender a buscar, ¿porque estan dificil? si yo busco y en 20 segundos encuentro un modulo de cifrado, no creo que busquemos tan diferente, dice que hizo el programa...hombre lo unico que hiciste fue poner 4 textbox en un fom y todavia te quejas de que no te queremos ayudar, el que no te queres ayudar sos vos mismo, sabes puede ser duro esto que te digo, pero estoy ya cansado de este tipo de post y trato de que cambien un poco la forma de preguntar, el foro no es preguntar cada cosa que se nos pasa por la cabeza y no sabemos, primero aprender a buscar y despues a preguntar, sino simepre terminas preguntando alos demas y NUNCA vas a solucionar nada solo y vas a depender de los demas hasta para hacer un MsgBox. y si es tu segundo programa peor todavia,el segundo programa deberia ser como cambiar de color el form del formulario y todas esas cosas que te hacen hacer en un manual de visual basic que estoy "seguro" que habras leido. hasta me arriesgo a decir esto: "si aprendes a buscar, te puedo asegurar que vas a dejar de preguntar en los foros." , y aveces hay que semi-burlarse par aque se de cuanta de que lo que esta haciendo lo puede solucionar buscando en internet.
saludos.
ya saben los visitantes ni se les ocurra registrarse ... mejor busquen en google
segun seba123neo.... y asi ahorramos espacio en el server o nose
@MCKSys Argentina
lo que dije mas arriba es para quien le llegue, pero para ti no era
Cita de: Atry en 4 Septiembre 2009, 12:39 PM
dejenlo no vovlere a postear una duda en esta sección, solo me sirve para perder el tiempo mientras se "burlan" de mi ignorancia cuando intento aprender cosas que no se...
te invito a .net
salu2
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "A Very Very Simple Encryption /Decryption"
ClientHeight = 3750
ClientLeft = 45
ClientTop = 330
ClientWidth = 5355
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3750
ScaleWidth = 5355
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton Command4
Caption = "About"
Height = 375
Left = 3720
TabIndex = 11
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Clear All"
Height = 375
Left = 2520
TabIndex = 5
Top = 2640
Width = 1215
End
Begin VB.TextBox Text3
Height = 975
Left = 2640
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 360
Width = 2535
End
Begin VB.CommandButton Command2
Caption = "Decrypt"
Height = 375
Left = 1320
TabIndex = 3
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Encrypt"
Height = 375
Left = 120
TabIndex = 2
Top = 2640
Width = 1215
End
Begin VB.TextBox Text2
Height = 855
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 1680
Width = 2415
End
Begin VB.TextBox Text1
Height = 975
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 360
Width = 2415
End
Begin VB.Label Label5
Caption = "PEACE , NO WAR SAVE PALESTINE"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 10
Top = 3240
Width = 3495
End
Begin VB.Label Label4
Caption = "www.bajaklaut.tk www.softgra.tk softgra@hehe.com Vote Me !!"
Height = 975
Left = 2760
TabIndex = 9
Top = 1560
Width = 2295
End
Begin VB.Label Label3
Caption = "Decryption Result"
Height = 495
Left = 2640
TabIndex = 8
Top = 120
Width = 2295
End
Begin VB.Label Label2
Caption = "Cipher Text (Encryption Result)"
Height = 495
Left = 120
TabIndex = 7
Top = 1440
Width = 2295
End
Begin VB.Label Label1
Caption = "Clear Text"
Height = 495
Left = 120
TabIndex = 6
Top = 120
Width = 1695
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i, a As Integer
Dim result As String
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
result = Asc(Mid(Text1.Text, i, 1))
Text2.Text = Chr(result + 3) + Text2.Text
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To Len(Text2.Text)
result = Asc(Mid(Text2.Text, i, 1))
Text3.Text = Chr(result - 3) + Text3.Text
Next i
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command4_Click()
'frmAbout.Show
End Sub
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=47667&lngWId=1
Crea un fichero *.frm y desde el Bloc De Notas pega lo de arriba... lo abres con el VB y solucionado...
Utiliza un crifrado Caesar... Muy simple...
Cita de: seba123neo en 5 Septiembre 2009, 02:36 AM
Cita de: Atry en 4 Septiembre 2009, 12:39 PM
Claaaro... si esk es tan sencillo! se me olvidaba k estas cosas salen con el 2 programa que haces... k cabeza lam ia eh? y weno como se tanto de esto necesito postearlo para k me echen una mano...
dejenlo no vovlere a postear una duda en esta sección, solo me sirve para perder el tiempo mientras se "burlan" de mi ignorancia cuando intento aprender cosas que no se...
P.D: Alludita con ¿y? No me Jo**s!! fijate k no lo sabia... y claro tambien tendria k llevar la "¿" al principio kizas?... dios!! te habra costado muchisimo averiguar lo que decia esa frase verdad? madre mia...
sin palabras...
Cita de: Pein en 4 Septiembre 2009, 17:57 PM
lo que pasa es que hay que aprender a buscar
el unico que dijo una frase verdadera.
estoy tratando de enseñarle a pescar y no de darle el pescado, entonces para ustedes lo "bueno" seria ponerle el codigo de un modulo y que siga sin aprender a buscar, ¿porque estan dificil? si yo busco y en 20 segundos encuentro un modulo de cifrado, no creo que busquemos tan diferente, dice que hizo el programa...hombre lo unico que hiciste fue poner 4 textbox en un fom y todavia te quejas de que no te queremos ayudar, el que no te queres ayudar sos vos mismo, sabes puede ser duro esto que te digo, pero estoy ya cansado de este tipo de post y trato de que cambien un poco la forma de preguntar, el foro no es preguntar cada cosa que se nos pasa por la cabeza y no sabemos, primero aprender a buscar y despues a preguntar, sino simepre terminas preguntando alos demas y NUNCA vas a solucionar nada solo y vas a depender de los demas hasta para hacer un MsgBox. y si es tu segundo programa peor todavia,el segundo programa deberia ser como cambiar de color el form del formulario y todas esas cosas que te hacen hacer en un manual de visual basic que estoy "seguro" que habras leido. hasta me arriesgo a decir esto: "si aprendes a buscar, te puedo asegurar que vas a dejar de preguntar en los foros." , y aveces hay que semi-burlarse par aque se de cuanta de que lo que esta haciendo lo puede solucionar buscando en internet.
saludos.
Mira que me digan que lo busque me parece correcto es cierto hay k buscar para encontrar, el caso es k el foro tambien es una forma de buscar ayuda, y k yo recuerde en el post no digo "por favor denme un modulo de encriptacion echo k esk no me apetece hacerlo..." simplemente pedi ayuda ni el codigo ni el modulo ni nada, solo un apoyo y alguna forma de comenzar esa fase del programa y seguir a raiz de hay...
P.D: Gracias por tu apoyo Ari-Slash ;)
Cita de: Ari-Slash en 5 Septiembre 2009, 10:56 AM
te invito a .net
Que tiene que ver .net con esto ? ... es porque ese foro es mas "servicial" ? ... en ese caso conozco un buen foro de cocina Hindú que tambien lo es ...
muy bien seba, esta perfecto, pero ahora otro tema, cuando dicen como podria hacer tal cosa, o tal otra, tampoco decir toma este modulo, sino decir, rompete el bocho, hacelo como puedas, averigua, y cuando lo termine y lo postee, no digan, que consume mucha memoria,que esto que lo otro, porque lo unico que se hace es tirar abajo al que esta haciendo el proyecto,eso si decirle l ode la memoria, y despues darle como una ayudita,pero que primero se rompa el bocho.
asi estoy haciendo yo, por ejemplo para el troyano que estoy haciendo(solo para aprender,no me interesa nada hacerle deño a alguien)estoy ideando un ftp, sin modulos, yo prefiero que consuma mas memoria y que tambien te consuma la memoria de tu cerebro para pensarlo.
porque es facil agarrar un modulo:es mas rapido,consume menos recursos ademas de mas cosas
pero eso, si presentan un programa algo "casero", no tirarlo abajo
saludos
no le veo el sentido a discutir por una tonteria como esa, al rato vendra otro que si este pidiendo el trabajo echo, siempre he considerado que si no te agrada simplemente no respondas al post y ya, nadie les obliga a responder.
y Atry sin mala onda, esto no es un movil, es un foro y a mi parecer es falta de repeto para con los que te leen, fijate que se detienen menos a criticar y mas a responderte sobre el tem, si vienes escribiendo correctamente.
como ya han dicho bastante, hay que buscar, intentarlo y luego de ensayo y error, tienes el foro para que muestres como vas y en donde te has varado.
saludos!!
Cita de: Hasseds en 6 Septiembre 2009, 21:47 PM
Cita de: Ari-Slash en 5 Septiembre 2009, 10:56 AM
te invito a .net
Que tiene que ver .net con esto ? ... es porque ese foro es mas "servicial" ? ... en ese caso conozco un buen foro de cocina Hindú que tambien lo es ...
si es mas servicial y ademas le puedo ayudar yo...
no seas ***** la cocina no tiene nada que ver con programacion
Cita de: cΔssiΔnі en 7 Septiembre 2009, 03:08 AM
no le veo el sentido a discutir por una tonteria como esa, al rato vendra otro que si este pidiendo el trabajo echo, siempre he considerado que si no te agrada simplemente no respondas al post y ya, nadie les obliga a responder.
y Atry sin mala onda, esto no es un movil, es un foro y a mi parecer es falta de repeto para con los que te leen, fijate que se detienen menos a criticar y mas a responderte sobre el tem, si vienes escribiendo correctamente.
como ya han dicho bastante, hay que buscar, intentarlo y luego de ensayo y error, tienes el foro para que muestres como vas y en donde te has varado.
saludos!!
Ya bueno tiene razón, me dieron un consejo parecido que he leido hace un rato y tambien lo agradeci, en fin, intentare correguir este mal habito,
pero bueno claro esta que el que se mofen de mi ignorancia en la programación no tiene nada que ver con mis faltas de ortografia...
pero bueno no quiero discutir más sobre este tema, ya dije que no volveria a postear aqui más peticiones de ayuda y sin más problemas...
Gracias por el consejo Cassiani ;)
ademas no solo tu debes corregir tus errores
algunas personas tambien...
agregame te envio mi mail por mp
y asi si quieres yo te ayudo en algo
PD: mira el post de karcrack
salu2
Cita de: Ari-Slash en 7 Septiembre 2009, 07:20 AM
no seas ***** la cocina no tiene nada que ver con programacion
Veo que te cuesta un poco "entender" los mensajes, si alguien hace una pregunta en el foro de VB 6.0 debe ser que quiere o necesita un código de VB 6.0, por lo tanto .Net es otra cosa que nada tiene que ver.
Cita de: Ari-Slash en 7 Septiembre 2009, 07:20 AM
no seas ***** la cocina no tiene nada que ver con programacion
Si estas nervioso deberias buscarte otro "novio" que te "atienda" mejor.
Cita de: Hasseds en 7 Septiembre 2009, 12:09 PM
Cita de: Ari-Slash en 7 Septiembre 2009, 07:20 AM
no seas ***** la cocina no tiene nada que ver con programacion
Veo que te cuesta un poco "entender" los mensajes, si alguien hace una pregunta en el foro de VB 6.0 debe ser que quiere o necesita un código de VB 6.0, por lo tanto .Net es otra cosa que nada tiene que ver.
Cita de: Ari-Slash en 7 Septiembre 2009, 07:20 AM
no seas ***** la cocina no tiene nada que ver con programacion
Si estas nervioso deberias buscarte otro "novio" que te "atienda" mejor.
Si se a posteado en el foro de VB es en busca de ayuda, no tiene por que ser necesariamente un codigo o algo ya hecho,
una mera ayuda para tomar la iniciativa es lo unico que se pide y necesita aveces, y odviamente el mensaje de .net iva dirigido ami, asi que si a alguien le molesta que me dira la dirección que no se sienta an aludido ni sea tan egocentrista...
el no intento ofender ni molestar a nadie, mas bien alreves,
no se tus gustos sexuales pero no creo k los comtartais asi k a lo mejor en tu caso no pero en el sullo seguro k es mas "novia"
No me estoy dirigiendo a vos, "abogado defensor Atry".
Alguien puede bloquear el tema por favor?
El tema esta resuelto hace tiempo...