Imprimir Página - cifrar archivo

Título: cifrar archivo
Publicado por: vivachapas en 17 Marzo 2007, 15:33 pm

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...

Título: Re: cifrar archivo
Publicado por: ~~ en 18 Marzo 2007, 19:01 pm

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...

Título: Re: cifrar archivo
Publicado por: Zeroql en 19 Marzo 2007, 03:19 am

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.

Título: Re: cifrar archivo
Publicado por: vivachapas en 19 Marzo 2007, 23:54 pm

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

Título: Re: cifrar archivo
Publicado por: ~~ en 20 Marzo 2007, 18:09 pm

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

Título: Re: cifrar archivo
Publicado por: Hendrix en 20 Marzo 2007, 19:11 pm

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

Título: Re: cifrar archivo
Publicado por: ~~ en 20 Marzo 2007, 19:16 pm

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??

Título: Re: cifrar archivo
Publicado por: Hendrix en 20 Marzo 2007, 19:49 pm

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..... ;) ;)

Título: Re: cifrar archivo
Publicado por: vivachapas en 22 Marzo 2007, 20:53 pm

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...

Título: Re: cifrar archivo
Publicado por: ~~ en 23 Marzo 2007, 18:25 pm

Pues muy simple, pon dos botones y un text box y añade este codigo

Código:

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

Título: Re: cifrar archivo
Publicado por: Sancho.Mazorka en 23 Marzo 2007, 20:55 pm

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

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: vivachapas en 17 Marzo 2007, 15:33 pm