creo q cifrar es la palabra...
hice un programa sencillo q la verdad lo uso mucho... es para guardar tus contraseñas para no olvidarlas...(ej: hotmail, yahoo, etc..)
para guardarlas hice q se cree un archivo en una determinada carpeta q esta bien escondida para q no se tenga facil acceso... pero igualmente cualquiera q la vea puede entrar y ver mis contraseñas... queria saber como puedo hacer a cifrar esa carpeta para q solo mi programa pueda leerla...
Pues puedes hacer un pekeño algoritmo q sustitulla una letra por otra distinta. y asi solo lo podras ver al aplicando la operación inversa con tu programa.
Ponle tb una extension rara a tu archivo para q no se vea q es un txt asi será mas dificil q lo habran...
por que no mandas esto archivos al regedit o mejor aun a la carpteta de windows y le colocas una extensión bien extraña como *.psw y listo nadie sabe cual es tu archivo ni tampoco donde esta ubicado.
muy buenas ideas... lo de cambiar la extension ya lo hice y funciona muy bien... pero lo del algoritmo no lo entendi... va lo entendi pero no se ocmo hacerlo...
si me pueden ayudar desde ya muchas gracias
Pues el algoritmo puede ser tan simple como sustituir las a por la cadena ?##"@
Usando la funcion replace es facil. Para volver a ver tus contraseñas utilizas la operacion inversa, es decir replazar los ?##"@ por a y ya esta.
Evidentemente habria q hacerlo con mas caracteres xDD
Hay un bug en Win que permite que los archivos alojados en ciertas carpetas no se puedan acceder a ellos haciendo doble click, este bug tambien hace que algunos AntiVirus no puedan escanear esos archivos, aunque esos AV's tienen que ser bastante mediocres para caer en tal error, pero bueno, en este mundo nadie es perfecto.
Esto es una alternativa para no tener que cifrar los textos.
Salu2
Si, es verdad, una de ellas es C:\system volume information, si acedes a ella mediante otro explorador (el del poisin por ejemplo xDDD) pues lo puedes guardar ahí sin problemas.
Hendrix, tu no tenias un programa q encriptaba texto??
Si...aunke es un algoritmo que me salio de "churra", mas de la mitad del algoritmo hiba destinado a otra cosa, otro poyecto...xD xD xD xD
http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=66819&lngWId=1
Los otros algoritmos que tengo caseros no los posteo..... ;) ;)
no entiendo... como se usa la funcion replace? estuve buscando en google.. pero el unico ejemplo q encontre esta hecho en vb5 y no es nada q ver con vb6...
si me pudriesen dar un ej. cortito aunque sea cambiar a por #&&$ se lo agradeceria mucho...
Pues muy simple, pon dos botones y un text box y añade este codigo
Private Sub Command1_Click()
'Sustituimos a por la cadena
Text1.Text = Replace(Text1.Text, "a", "#&&$")
End Sub
Private Sub Command2_Click()
'La operacion inversa desciframos la cadena
Text1.Text = Replace(Text1.Text, "#&&$", "a")
End Sub
Ahora si introduces el texto alber@hotmail.com por ejemplo cifrado kedaria #&&$lber@hotm#&&$il.com
Puedes comprovar como despues puedes devolver la cadena a su estado inicial ;)
1S4ludo
Como no tenia donde poner el .vbp, y no queria complicarlos tanto copie el .frm
Abran un archivo de texto y pongan lo que esta abajo, y despues guardenlo como .frm
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "Encriptador/Desncriptador"
ClientHeight = 2220
ClientLeft = 45
ClientTop = 435
ClientWidth = 4995
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2220
ScaleWidth = 4995
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdReset
BackColor = &H00000000&
Caption = "Reset"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
MaskColor = &H0000FF00&
TabIndex = 5
Top = 1200
Width = 1815
End
Begin VB.TextBox txtDesencriptado
Height = 375
Left = 1440
TabIndex = 3
Top = 1680
Width = 3495
End
Begin VB.CommandButton cmdDesencriptar
BackColor = &H00000000&
Caption = "descifrar"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
MaskColor = &H0000FF00&
TabIndex = 2
Top = 1200
Width = 1815
End
Begin VB.TextBox txtEncriptado
Height = 375
Left = 1200
TabIndex = 1
Top = 600
Width = 3735
End
Begin VB.TextBox txtFuente
Height = 375
Left = 1200
TabIndex = 0
Top = 120
Width = 3735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "A cifrar ->"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 0
TabIndex = 7
Top = 120
Width = 1095
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "descifrado ->"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 0
TabIndex = 6
Top = 1680
Width = 1455
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "cifrado ->"
BeginProperty Font
Name = "Comic Sans MS"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 0
TabIndex = 4
Top = 600
Width = 1095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDesencriptar_Click()
On Error Resume Next
Dim Code() As String
Dim i As Integer
Code = Split(txtEncriptado.Text, "-")
For i = 0 To UBound(Code)
txtDesencriptado.Text = txtDesencriptado.Text & Chr(Code(i))
Next i
End Sub
Private Sub txtFuente_KeyPress(KeyAscii As Integer)
txtEncriptado.Text = txtEncriptado.Text & KeyAscii & "-"
End Sub
Private Sub cmdReset_Click()
'Reseteamos todo =O
txtFuente.Text = ""
txtEncriptado.Text = ""
txtDesencriptado.Text = ""
End Sub
Al ejecutar el .frm ya les abrira el proyecto y no tendran que hacer nada! :) es una encriptacion tonta en ASCII pero sirve de algo :P
Sancho.Mazorka :P