Mensajes

a ver vine a este foro porque pensé que era el mas adecuado, por lo visto me equivoque tendría que haber ido a ese

vine pidiendo ayuda , si alguien conocía algún runpe que no tuviera firmas(de todas formas ya lo encontré yo y me bajo de las 6 u 8 que tenia a 3, que era el análisis del stub sin runpe(dichosos avira,a-squared y ikarus...)

yo no es que no publique el código porque tenga miedo de que me lo roben y lo usen, eso me da igual,como dije el cripter lo hice por 2 motivos,uno para aprender y otro para usarlo para una cosa que me interesa, y si lo publico corro el riesgo de que alguien lo compile y lo suba a novirus sin marcar la casillita esa, y entonces ya no me servirá para lo que yo quiero xD

cuando lo haya usado, lo publicare por si alguien lo quiere usar o moddear o lo que quiera xD

Aprende a usar arrays de controles

No lo mal acostumbres recuerda que en vb.NEt no se puede usar eso xS (maldito .Net ¬¬")

Un consejo ademas del ya dado

En lugar de de usar:

Código (Vb) [Seleccionar] Expandir



if Label3.Caption = "" then



Ess alguna variable boolean asi se entenderia mas (Aun que aún asi se entiedne =).

Código (Vb) [Seleccionar] Expandir



If VaribaleBoolean then



eso ultimo no acabo de entenderlo,las variables tipo boolean no eran true y false?

como le digo lo que es true y lo que es false?

edit: otra cosa que me acabo de fijar:

con lo de lbound lo que haces es usar el command mas pequeño no?

eso no causaría conflicto con el command1 que es para hacer una nueva partida?

se solucionaría cambiándole el nombre no?

yo lo hago por dos motivos, porque quiero aprender y porque me interesa usarlo, cuando lo haya usado para lo que tengo pensado, pondré el código

no cambie una variable ni una o dos lineas, lo que cogí del tuto fue la idea básica, el resto lo hice yo, tampoco llegue aquí diciendo que esto es mio y de nadie mas, si lees un poquito al principio digo que lo hice viendo varios tutos y con algo de mi cosecha, lo que cogi del tuto fue la idea principal,cargar archivo a cifrar, cifrar,concatenar,luego ir al stub, separar,descifrar, y por ultimo cargar con el runpe,en el primer tuto que vi, solo era el cripter, rc4 y listo,yo le añadí lo de contraseña aleatoria,luego busque como hacer para que cargara varios métodos de cifrado ,y por ultimo busque como hacer el eof data,no te digo que todo el código sea 100% mio,pero tampoco cambie 2 lineas ni un par de variables

busque info sobre eso, pero tengo un problema,al crear una copia del mismo commandbutton, el código es el mismo que el del original,no puedo ponerle un código distinto, no se si me explico

pues siguiendo consejos he echo este 3 en raya rapidito xD

la interfaz he de reconocer que me quedo muy chapuzas xD

en el rar esta el form el proyecto y el exe ya compilado pero si no se fían compilenlo ustedes xD

el código creo que se podría optimizar un poco, ya que repito muchas veces el mismo código a ver si pueden decirme como

el enlace:

http://www.megaupload.com/?d=AMMG7WS5

el codigo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Function cambio()
If Label11.Caption = "1" Then
Label11.Caption = "2"
Command2.Caption = "O"
Command3.Caption = "O"
Command4.Caption = "O"
Command5.Caption = "O"
Command6.Caption = "O"
Command7.Caption = "O"
Command8.Caption = "O"
Command9.Caption = "O"
Command10.Caption = "O"
Else: Label11.Caption = "1"
Command2.Caption = "X"
Command3.Caption = "X"
Command4.Caption = "X"
Command5.Caption = "X"
Command6.Caption = "X"
Command7.Caption = "X"
Command8.Caption = "X"
Command9.Caption = "X"
Command10.Caption = "X"
End If

End Function
Function ganador()
If Label1.Caption & Label2.Caption & Label3.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label4.Caption & Label5.Caption & Label6.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label7.Caption & Label8.Caption & Label9.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label1.Caption & Label4.Caption & Label7.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label2.Caption & Label5.Caption & Label8.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label3.Caption & Label6.Caption & Label9.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label1.Caption & Label5.Caption & Label9.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label3.Caption & Label5.Caption & Label7.Caption = "XXX" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:1"
MsgBox "EL GANADOR ES EL JUGADOR 1!!!", vbExclamation, Me.Caption
End If
If Label1.Caption & Label2.Caption & Label3.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label4.Caption & Label5.Caption & Label6.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label7.Caption & Label8.Caption & Label9.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label1.Caption & Label4.Caption & Label7.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label2.Caption & Label5.Caption & Label8.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label3.Caption & Label6.Caption & Label9.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label1.Caption & Label5.Caption & Label9.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If
If Label3.Caption & Label5.Caption & Label7.Caption = "OOO" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Label12.Caption = "Jugador:2"
MsgBox "EL GANADOR ES EL JUGADOR 2!!!", vbExclamation, Me.Caption
End If



End Function

Private Sub Command1_Click()
Label11.Caption = "1"
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label12.Caption = "Jugador:"
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
End Sub

Private Sub Command2_Click()
If Label1.Caption = "" Then
Label1.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If

End Sub

Private Sub Command3_Click()
If Label4.Caption = "" Then
Label4.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command4_Click()
If Label7.Caption = "" Then
Label7.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command5_Click()
If Label2.Caption = "" Then
Label2.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command6_Click()
If Label5.Caption = "" Then
Label5.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command7_Click()
If Label8.Caption = "" Then
Label8.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command8_Click()
If Label3.Caption = "" Then
Label3.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub

Private Sub Command9_Click()
If Label6.Caption = "" Then
Label6.Caption = Command2.Caption
Call cambio
Call ganador
Else: MsgBox "ya se ha marcado esta casilla", vbInformation, Me.Caption
End If
End Sub


bueno fallo técnico, cambie lo de fud ahora cambio lo otro

a ver, yo se mas o menos donde están esas firmas, y se porque están precisamente ahí, lo que no se es como quitarlas, como ya he dicho no he copiado literalmente los tutoriales, lo he hecho yo guiándome con el tutorial, lo que he hecho lo entiendo, se que las firmas del runpe están en lib "kernel32", pero no se como quitarla, y el resto de firmas me imagino que sera por los algoritmos de cifrado

no sabia que cosas mas simples podía hacer, y un dia encontre un tuto de hacer un cripter asi que busque unos cuantos mas y me hice uno

podrías decirme algo mas simple que podría hacerme?

a ver, yo no he copiado directamente códigos, los he hecho yo, pero para saber como funciona un cripter y ver mas o menos como es el código tendré que haber visto algo antes no?

no soy tan listo como para de buenas a primeras hacerme un cripter yo solito, y menos runtime que tendría que hacerme también el runpe

mi intención no es demostrar mi "EGO" como dices tu, solo intentaba explicar porque prefería no postear el código, decia lo que tenia para que se hagan una idea d elo que tiene, porque a lo mejor puede ser detectado por los metodos de cifrado o por el EOF(que no creo)

para enseñar hay que saber ,¿no?

así que lo de enseñar no puedo, solo cosas básicas, ayudar ayudaré cuando pueda y cuando sepa hacerlo y compartir pues lo haré cuando tenga algo que compartir, por ahora venia en busca de ayuda y de que me enseñen

y lo de los lammers ya lo se, pero si subo el código seguro que mas de uno lo va a coger y lo va a usar y entonces no va a ser fud ni de coña xD

preferiría poder usarlo yo antes un tiempo y después lo compartiré

PD: ya cambie el titulo del post

pues daba las gracias por adelantado, porque lo que pedía era si podían pasarme algún runPe que no tuviera firmas o alguna forma de indetectar el mio,están absolutamente seguros de que le pasa muestras a los antivirus?

porque este cripter lo empece hace mucho, a mediados del 2009, y por aquel entonces no conseguía que me quedara funcional el archivo cifrado y por curiosidad lo subí a novirus para ver cuantos antivirus lo detectaban,y hoy me dio por seguir y hoy solo le corregí un par de errores, lo volví a subir y la detección no ha cambiado...

curioso no?

y lo de fud

fud no significa que no lo detecta ningún antivirus?

porque si es así creo que decir medio fud estaría bien dicho ya que el stub es detectado por el 50%


Edit:

ya se que no es nada del otro mundo,pero es el primer programa en vb que me hago (sin contar el típico hola mundo),y de todas formas no esta acabado, tengo intención de meterle mas cosas, un joiner, un iconchanger, un spread, y un par de cosas mas, pero si se lo meto todo de golpe y luego lo hago indetectable me va a costar mas que hacerlo indetectable ahora y cuando le añada algo nuevo hacer las modificaciones oportunas para dejar ese algo nuevo indetectable también, digo yo que asi es mas sencillo


EDIT2:mods pueden cerrar, ya encontré uno por mi cuenta, ya veré como quito el avira que me lo detecta aunque no tenga runpe

buenas, viendo varios tutos y mezclando un poco de mi cosecha he conseguido crearme un cripter con 10 metodos de encriptacion distintos y contra aleatoria(es el primero que hago xD) y EOF

pero tengo un problema y es que todos los rumpe que consigo estan muy quemados y tienen firmas,y incluso quitandole el modulo del rumpe al stub, me lo sigue detectando el avira el ikarus y el a-squared

el avira creo que es por lod e sub main que por lo visto siempre que hay sub main lo detecta como dropper

aqui les pongo los analisis:

solo el stub(sin RunPe):

File Info

Report date: 2010-10-28 20:58:12 (GMT 1)
File name: staf-dll
File size: 212992 bytes
MD5 Hash: 149ddf3b235529babab23d29e490778f
SHA1 Hash: 6edecec8589ac72ea43ac0c831cb16f15a63f8d3
Detection rate: 3 on 16 (19%)
Status: INFECTED

Detections

a-squared - Virus.Win32.VBInject!IK
Avast -
AVG -
Avira AntiVir - TR/Dropper.Gen
BitDefender -
ClamAV -
Comodo -
Dr.Web -
F-PROT6 -
Ikarus T3 - Virus.Win32.VBInject
Kaspersky -
NOD32 -
Panda -
TrendMicro -
VBA32 -
VirusBuster -

Scan report generated by
NoVirusThanks.org

el sutb(con el RunPe):

File Info

Report date: 2010-10-28 20:47:16 (GMT 1)
File name: staf-dll
File size: 221184 bytes
MD5 Hash: 70ad185799219edf35c317d09c53028e
SHA1 Hash: 61cd435d8b00a3e3a41105f41da14461c0743e6c
Detection rate: 6 on 16 (38%)
Status: INFECTED

Detections

a-squared - Virus.Win32.VBInject!IK
Avast -
AVG -
Avira AntiVir - TR/Dropper.Gen
BitDefender -
ClamAV -
Comodo -
Dr.Web -
F-PROT6 -
Ikarus T3 - Virus.Win32.VBInject
Kaspersky -
NOD32 - Win32/Injector.AFL
Panda - Suspicious file
TrendMicro -
VBA32 - Trojan.VB.Levelup
VirusBuster -

Scan report generated by
NoVirusThanks.org

el stub(con RunPe y el server de un troyano cifrado):

File Info

Report date: 2010-10-28 20:05:25 (GMT 1)
File name: foto1-exe
File size: 1219130 bytes
MD5 Hash: d0945ab36f69b8ccedb0ad8c3e0a507b
SHA1 Hash: d4d7649f0bc6df65b1bd8d40454e2634ca9c3e9a
Detection rate: 8 on 16 (50%)
Status: INFECTED

Detections

a-squared - Riskware.Win32.VBInject!IK
Avast -
AVG -
Avira AntiVir - TR/Dropper.Gen
BitDefender - Gen:Trojan.Heur.ZGY.5
ClamAV -
Comodo -
Dr.Web -
F-PROT6 - W32/VBTrojan.7!Maximus
Ikarus T3 - VirTool.Win32.VBInject
Kaspersky -
NOD32 - Win32/Injector.AFL
Panda - Suspicious file
TrendMicro -
VBA32 - Trojan.VB.Levelup
VirusBuster -

Scan report generated by
NoVirusThanks.org

el codigo prefiero no postearlo,porque tengo pensado usarlo para un par de cosas y no quiero que venga el tipico lammer que lo sube a virustotal xD

ya lo liberare cuando lo haya usado para lo que tengo pensado xD

si necesitan el codigo puedo enviarselos por mp

gracias por adelantado xD