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:

---

Solucionado el error que corrompia algunos proyectos...

Felicitaciones , lo estoy viendo.

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

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.

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

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

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:

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

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:


por esta

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