[SOURCE][ACTUALIZADO] Karcrack Project Crypter, cifra tus proyectos en VB

[Karcrack]

Bueno, os presento un programa que cifra vuestros proyectos en VB para evitar heuristica y demas. Este programa esta basado en este del que MadAntrax mostro la interfaz:
Necesito opinión sobre una futura GUI
Lo posteo con su consentimiento.


Descripción:
El 'Karcrack Project Crypter' es un programa que cifra strings/cadenas de nuestros proyectos en VB6.0.


Capturas:

Caracteristicas:

• cifra usando un StrReverse() o un Xor()
  
• La funcion del Xor es dinámica, lo que significa que varia cada vez que encriptas un proyecto.
  
• Permite seleccionar los ficheros del proyecto que se encriptaran.
  
• Permite crear ficheros de respaldo de los fichero modificados.
  
• Muestra el progreso de encriptacion de cada fichero, en la parte inferior de la ventana.
  
  
  Descargas:
  

  UploadSourceCode
  

  
  
  Solucionado el error que corrompia algunos proyectos...

[naderST]

Muy bueno sigue asi 

Saludos.

[krackwar]

Felicitaciones , lo estoy viendo.

[‭‭‭‭jackl007]

nose si soy yo, pero al momento de cifrar no cargan los formularios ...
y tan solo un simple proyecto con un form y un textbox...

[invisible_hack]

Precioso tio, se me ocurren cientos de cosas que hacer con esto...

[Karcrack]

nose si soy yo, pero al momento de cifrar no cargan los formularios ...
y tan solo un simple proyecto con un form y un textbox...

Borralo y bajatelo de nuevo, es posible que lo bajaras mal... prueba a cambiar el Mirror..
Saludos

[‭‭‭‭jackl007]

osea todo baja bien, pero el problema es cuando el programa intenta cifrar un proyecto, pues lo hace mal.
tambien cuando abres otro nuevo proyecto, las variables no se reinician, sino tienen el valor del antiguo proyecto, y esto cambia, si lo abres desde cero el segundo proyecto.

[Karcrack]

osea todo baja bien, pero el problema es cuando el programa intenta cifrar un proyecto, pues lo hace mal.
tambien cuando abres otro nuevo proyecto, las variables no se reinician, sino tienen el valor del antiguo proyecto, y esto cambia, si lo abres desde cero el segundo proyecto.

Podrias dar mas informacion sobre el proyecto que estas cifrando... creo que se donde puede estar el problema, con que pongas las 10 primeras lineas del fichero *.vbp...

[‭‭‭‭jackl007]

abres un nuevo proyecto y por defecto se agrega un form, luego lo guardas en una carpeta, y luego lo encriptas, y queda corrupto, al intentar abrirlo, no va.

el proyecto

Código (vb) [Seleccionar] Expandir


Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1


form

Código (vb) [Seleccionar] Expandir

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

despues de encriptarlo queda asi:

Código (vb) [Seleccionar] Expandir


Module=MOUKPTMH; MOUKPTMH.bas
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\WINDOWS\system32\stdole2.tlb#OLE Automation
Startup="Form1"
Command32=""
Name="Proyecto1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1


form

Código (vb) [Seleccionar] Expandir


End
5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

el error esta al momento de encriptarlo, hay que reemplazar estas lineas del form cifrado:

Código [Seleccionar] Expandir

End
5.00


por esta

Código [Seleccionar] Expandir

VERSION 5.00

(al menos probe el cambio de lineas con ese proyecto, mas no con otro mas complejo).



ya no puse el codigo del modulo porque ya sabes como es.

[Karcrack]

Bueno, la finalidad de este programa es cifrar proyectos, si encriptas un proyecto vacio pues da errores... creo que es por eso

Deberias probar poniendo por ejemplo un boton y en su accion un MsgBox.

Saludos