|
Mostrar Mensajes
|
Páginas: 1 2 [3] 4 5
|
21
|
Programación / Programación Visual Basic / Re: crypter, 50% deteccion
|
en: 29 Octubre 2010, 19:57 pm
|
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
|
|
|
22
|
Programación / Programación Visual Basic / Re: tres en raya sencillito en vb
|
en: 29 Octubre 2010, 19:45 pm
|
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: if Label3.Caption = "" then
Ess alguna variable boolean asi se entenderia mas (Aun que aún asi se entiedne =). 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?
|
|
|
23
|
Programación / Programación Visual Basic / Re: crypter, 50% deteccion
|
en: 29 Octubre 2010, 19:38 pm
|
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
|
|
|
25
|
Programación / Programación Visual Basic / tres en raya sencillito en vb
|
en: 29 Octubre 2010, 18:50 pm
|
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: el codigo: 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
|
|
|
26
|
Programación / Programación Visual Basic / Re: crypter hecho por mi, medio FUD
|
en: 29 Octubre 2010, 17:02 pm
|
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
|
|
|
28
|
Programación / Programación Visual Basic / Re: crypter hecho por mi, 50% deteccion
|
en: 29 Octubre 2010, 15:51 pm
|
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
|
|
|
29
|
Programación / Programación Visual Basic / Re: crypter hecho por mi, medio FUD
|
en: 28 Octubre 2010, 23:46 pm
|
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
|
|
|
30
|
Programación / Programación Visual Basic / crypter, 50% deteccion
|
en: 28 Octubre 2010, 23:27 pm
|
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
|
|
|
|
|
|
|