elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programaci๓n
| |-+  Scripting
| | |-+  Enviar y Recibir Correos en Batch usando VBS[APLICACION CHAT TERMINADA]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Enviar y Recibir Correos en Batch usando VBS[APLICACION CHAT TERMINADA]  (Leído 4,330 veces)
EddyW

Desconectado Desconectado

Mensajes: 187



Ver Perfil WWW
Enviar y Recibir Correos en Batch usando VBS[APLICACION CHAT TERMINADA]
« en: 17 Junio 2009, 18:46 pm »

Enviar y recibir correos via Batch

Originalmente Posteado en CPH, decidi compartilo aqui tambien...

Cada cierto tiempo siempre sale la misma pregunta, asi que el proposito de este post es..
Terminar con esas preguntas.., aqui expondre maneras de enviar o mejor dicho crear nuestro servidor de mails..
Ok, para los que lo adivinaron, con algo de Scripts VBS, el que se sabe otra manera bien por el..
Una manera de hacerlo es por FTP pero tendrias que exponer tu password en code abierto..
Algo muy malo  :-[ por que darias tu pass..

El metodo es sencillo..:
Comenzamos por crearnos un servidor de correos..  ;D

Paso 1
Usamos un sitio web de miarroba (Es el unico que conozco bien..)
Creamos un Sitio si no tenemos..
Nos vamos a "Administrar" de nuestro sitio..
Luego nos vamos a "Preferencias" y ahi activamos todo lo que diga PHP, incluyendo control de errores..

Paso 2
Creamos un PHP con el siguiente code (En nuestro sitioweb):
Código
  1. <?php
  2. $id=$_GET['mail'];
  3. $master=fopen('mail.txt',a);
  4. fwrite($master,"
  5. ".$id);
  6. fclose($master);
  7. ?>
Yo lo guardo como "mail.php" para mas comodidad..

Hasta aqui ya creamos nuestro servidor de correos..
Ahora es solo a๑adir dos Code a nuestro Batch, 1 para leer los Mail y otro para enviar mails..

Enviar mail
Para enviar mail solo agregar este code ha su Batch:
Código
  1. (
  2. echo URLSend = wscript.arguments(0^)
  3. echo MSG = wscript.arguments(1^)
  4. echo Set SendMail = CreateObject("InternetExplorer.Application"^)
  5. echo SendMail.Navigate URLSend ^& MSG
  6. echo Do While SendMail.ReadyState ^<^> 4
  7. echo wscript.sleep 50
  8. echo Loop
  9. )>Mail.vbs
Este es el code que genera el Script que enviara los datos al servidor..
Para llamarlo es facil lo hacemos con un:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/[PHP].php?mail=" "Mensaje ha Enviar"
El [PHP] debe venir el nombre del PHP como le pusieron por ejemplo si le pusiron mail.php debe ser asi el code:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/mail.php?mail=" "Mensaje ha Enviar"
Con eso enviamos un mensaje a nuestro server, quien creara un archivo llamado "mail.txt"
Que contendra los mensajes que le enviemos..
Si quieren ver sus mensajes recibidos desde el IExplorer lo hacen asi:
Código
  1. http://[www].webcindario.com/mail.txt
Esto fue para enviar un mensaje a nuestro servidor..
Ahora..,

Leer Mails
Bien pues aqui tambien debemos de a๑adir este code a nuestro Batch..
Que es el encargado de leer los mails recibidos en el servidor..
Código
  1. (
  2. echo Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
  3. echo URLRead = wscript.arguments(0^)
  4. echo ReadMail.Open "Get", URLRead
  5. echo ReadMail.Send
  6. echo Do While ReadMail.ReadyState ^<^> 4
  7. echo wscript.sleep 50
  8. echo Loop
  9. echo wscript.Echo ReadMail.ResponseText
  10. )>Mail.vbs
Ahora para leer con el Batch nuestros mails recibidos ejecutamos el Script de la siguiente manera:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/mail.txt"
El metodo es sencillo, bueno espero.., disculpen si parace que lo escribi rapido o algo asi..
es que me entro sue๑o y no puedo mas.., ma๑ana o cuando pueda posteo una aplicacion Chat
que casi esta terminada atraves de este metodo.., espero les guste y le hayan entendido, cualquier duda posteen..  ;)

EDIT:
ChatBox - BY 3D1 (Por Fin la aplicacion Chat Terminada)
Aqui os mostrare con este ejemplo o mejor dicho una aplicacion ya terminada de Chat el uso de los Script Mensionados para enviar y recibir mensajes..
Solo aclarar donde nos pide "Servidor" debe de ser solo el nombre.., por ejemplo http://www.google.com nada mas sin aumentar "/" al final, solo asi..
Luego en Nick eso creo que no se debe de explicar..
Bueno sin nada mas que decir aqui el code:
Código
  1. @echo off
  2. title .:Cargando...:.
  3. cls
  4. reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  5. reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  6. cls
  7.  
  8. if exist "screen.size" (goto :Cnt)
  9. @mode con cols=14 lines=1
  10. echo Existes>"screen.size"
  11. Reg export HKCU\Console Backup.reg>nul
  12. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
  13. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>nul
  14. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
  15. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 600000 /f>nul
  16. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
  17. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
  18. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
  19. Ping -n 1 0.0.0.0 >nul 2>&1
  20. start %comspec% /c %0
  21. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
  22. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
  23. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
  24. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
  25. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
  26. Reg import Backup.reg>nul
  27. Del /Q "screen.size">nul
  28. Del /Q "Backup.reg">nul
  29.  
  30. :Cnt
  31. color 0A
  32. @Echo Off
  33. @Title .:: ChatBox BY 3D1 ::.
  34. (
  35. echo URLSend = wscript.arguments(0^)
  36. echo MSG = wscript.arguments(1^)
  37. echo Set SendMail = CreateObject("InternetExplorer.Application"^)
  38. echo SendMail.Navigate URLSend ^& MSG
  39. echo Do While SendMail.ReadyState ^<^> 4
  40. echo wscript.sleep 50
  41. echo Loop
  42. )>%tmp%\SendMail.vbs
  43. (
  44. echo Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
  45. echo URLRead = wscript.arguments(0^)
  46. echo ReadMail.Open "Get", URLRead
  47. echo ReadMail.Send
  48. echo Do While ReadMail.ReadyState ^<^> 4
  49. echo wscript.sleep 50
  50. echo Loop
  51. echo wscript.Echo ReadMail.ResponseText
  52. )>%tmp%\ReadMail.vbs
  53. Del /Q /F %tmp%\keyboard.dat
  54. Del /Q /F %tmp%\key.exe
  55. Del /Q /F %tmp%\AddKey.bat
  56. set Dir=%cd%\
  57. cd %tmp%\
  58. (
  59. echo n keyboard.dat
  60. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  61. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  62. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  63. echo rcx
  64. echo 002E
  65. echo w0
  66. )>%tmp%\keyboard.dat
  67. echo type %tmp%\keyboard.dat^|debug>%tmp%\AddKey.bat
  68. echo ren %tmp%\keyboard.dat key.exe>>%tmp%\AddKey.bat
  69. start /MIN cmd /c %tmp%\AddKey.bat
  70. Cd %Dir%
  71. Set txt=HTTP://
  72.  
  73. Set frmuse=form
  74. Set enter=formnick
  75.  
  76. Set spaces=                                                             ...-SPACES-...
  77. CLs
  78. Echo Please Wait...
  79. Ping -n 2 0.0.0.0 >nul 2>&1
  80. :form
  81. Set serverbox=%txt%%spaces%
  82. Set server=%txt%
  83. Cls
  84. echo   ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  85. echo   บ                                                                          บ
  86. echo   บ En el siguiente cuadro de texto escriba el nombre del servidor con el..  บ
  87. echo   บ Siguiente Formato:                                                       บ
  88. echo   บ                                                                          บ
  89. echo   บ                     Http://name.webcindario.com                          บ
  90. echo   บ                                                                          บ
  91. echo   บ Por defecto se usara el archivo mail.php en el server y, el archivo..    บ
  92. echo   บ mail.txt en el server para leer los mails.                               บ
  93. echo   บ                                                                          บ
  94. echo   ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  95. echo                           ษออออออออออออออออออออออออออออออออออออออออออออออออออป
  96. echo      NOMBRE DEL SERVIDOR: บ%serverbox:~0,50%
  97. echo                           ศออออออออออออออออออออออออออออออออออออออออออออออออออผ
  98. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  99. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  100. echo                             Hacking And Security
  101. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  102. :keyboard
  103. %tmp%\KEY.exe
  104. IF %ERRORLEVEL% == 65 (set txt=%TXT%A)
  105. IF %ERRORLEVEL% == 66 (set txt=%TXT%B)
  106. IF %ERRORLEVEL% == 67 (set txt=%TXT%C)
  107. IF %ERRORLEVEL% == 68 (set txt=%TXT%D)
  108. IF %ERRORLEVEL% == 69 (set txt=%TXT%E)
  109. IF %ERRORLEVEL% == 70 (set txt=%TXT%F)
  110. IF %ERRORLEVEL% == 71 (set txt=%TXT%G)
  111. IF %ERRORLEVEL% == 72 (set txt=%TXT%H)
  112. IF %ERRORLEVEL% == 73 (set txt=%TXT%I)
  113. IF %ERRORLEVEL% == 74 (set txt=%TXT%J)
  114. IF %ERRORLEVEL% == 75 (set txt=%TXT%K)
  115. IF %ERRORLEVEL% == 76 (set txt=%TXT%L)
  116. IF %ERRORLEVEL% == 77 (set txt=%TXT%M)
  117. IF %ERRORLEVEL% == 78 (set txt=%TXT%N)
  118. IF %ERRORLEVEL% == 79 (set txt=%TXT%O)
  119. IF %ERRORLEVEL% == 80 (set txt=%TXT%P)
  120. IF %ERRORLEVEL% == 81 (set txt=%TXT%Q)
  121. IF %ERRORLEVEL% == 82 (set txt=%TXT%R)
  122. IF %ERRORLEVEL% == 83 (set txt=%TXT%S)
  123. IF %ERRORLEVEL% == 84 (set txt=%TXT%T)
  124. IF %ERRORLEVEL% == 85 (set txt=%TXT%U)
  125. IF %ERRORLEVEL% == 86 (set txt=%TXT%V)
  126. IF %ERRORLEVEL% == 87 (set txt=%TXT%W)
  127. IF %ERRORLEVEL% == 88 (set txt=%TXT%X)
  128. IF %ERRORLEVEL% == 89 (set txt=%TXT%Y)
  129. IF %ERRORLEVEL% == 90 (set txt=%TXT%Z)
  130.  
  131. IF %ERRORLEVEL% == 97 (set txt=%TXT%a)
  132. IF %ERRORLEVEL% == 98 (set txt=%TXT%b)
  133. IF %ERRORLEVEL% == 99 (set txt=%TXT%c)
  134. IF %ERRORLEVEL% == 100 (set txt=%TXT%d)
  135. IF %ERRORLEVEL% == 101 (set txt=%TXT%e)
  136. IF %ERRORLEVEL% == 102 (set txt=%TXT%f)
  137. IF %ERRORLEVEL% == 103 (set txt=%TXT%g)
  138. IF %ERRORLEVEL% == 104 (set txt=%TXT%h)
  139. IF %ERRORLEVEL% == 105 (set txt=%TXT%i)
  140. IF %ERRORLEVEL% == 106 (set txt=%TXT%j)
  141. IF %ERRORLEVEL% == 107 (set txt=%TXT%k)
  142. IF %ERRORLEVEL% == 108 (set txt=%TXT%l)
  143. IF %ERRORLEVEL% == 109 (set txt=%TXT%m)
  144. IF %ERRORLEVEL% == 110 (set txt=%TXT%n)
  145. IF %ERRORLEVEL% == 111 (set txt=%TXT%o)
  146. IF %ERRORLEVEL% == 112 (set txt=%TXT%p)
  147. IF %ERRORLEVEL% == 113 (set txt=%TXT%q)
  148. IF %ERRORLEVEL% == 114 (set txt=%TXT%r)
  149. IF %ERRORLEVEL% == 115 (set txt=%TXT%s)
  150. IF %ERRORLEVEL% == 116 (set txt=%TXT%t)
  151. IF %ERRORLEVEL% == 117 (set txt=%TXT%u)
  152. IF %ERRORLEVEL% == 118 (set txt=%TXT%v)
  153. IF %ERRORLEVEL% == 119 (set txt=%TXT%w)
  154. IF %ERRORLEVEL% == 120 (set txt=%TXT%x)
  155. IF %ERRORLEVEL% == 121 (set txt=%TXT%y)
  156. IF %ERRORLEVEL% == 122 (set txt=%TXT%z)
  157. IF %ERRORLEVEL% == 48 (set txt=%TXT%0)
  158. IF %ERRORLEVEL% == 49 (set txt=%TXT%1)
  159. IF %ERRORLEVEL% == 50 (set txt=%TXT%2)
  160. IF %ERRORLEVEL% == 51 (set txt=%TXT%3)
  161. IF %ERRORLEVEL% == 52 (set txt=%TXT%4)
  162. IF %ERRORLEVEL% == 53 (set txt=%TXT%5)
  163. IF %ERRORLEVEL% == 54 (set txt=%TXT%6)
  164. IF %ERRORLEVEL% == 55 (set txt=%TXT%7)
  165. IF %ERRORLEVEL% == 56 (set txt=%TXT%8)
  166. IF %ERRORLEVEL% == 57 (set txt=%TXT%9)
  167. IF %ERRORLEVEL% == 32 (set txt=%TXT% )
  168. IF %ERRORLEVEL% == 63 (set txt=%TXT%?)
  169. IF %ERRORLEVEL% == 61 (set txt=%TXT%=)
  170. IF %ERRORLEVEL% == 47 (set txt=%TXT%/)
  171. IF %ERRORLEVEL% == 58 (set txt=%TXT%:)
  172. IF %ERRORLEVEL% == 95 (set txt=%TXT%_)
  173. IF %ERRORLEVEL% == 45 (set txt=%TXT%-)
  174. IF %ERRORLEVEL% == 46 (set txt=%TXT%.)
  175. IF %ERRORLEVEL% == 27 (Exit)
  176. IF %ERRORLEVEL% == 8 (SET TXT=<NUL&&set txt=%txt:~0,-1%)
  177. IF %ERRORLEVEL% == 13 (Set "txt=" &Goto :%enter%)
  178. Goto :%frmuse%
  179. :formnick
  180. IF "" == "%server%" (Goto :form)
  181. IF "HTTP://" == "%server%" (Goto :form)
  182. Set nickbox=%txt%%spaces%
  183. Set enter=formchat
  184. Set frmuse=formnick
  185. Set "nick=%txt%"
  186. Cls
  187. echo                       ษออออออออออออออออออออออออออออออออออออออออออออออออออป
  188. echo      ESCRIBE TU NICK: บ%nickbox:~0,50%
  189. echo                       ศออออออออออออออออออออออออออออออออออออออออออออออออออผ
  190. for /l %%_ in (1 1 14) do (echo.)
  191. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  192. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  193. echo                             Hacking And Security
  194. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  195. Goto :keyboard
  196. :formchat
  197. IF "" == "%nick%" (Goto :formnick)
  198. Cls
  199. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  200. echo           CHATBOX: BY 3D1
  201. echo              NICK: %nick%
  202. echo    CONNECT SERVER: %server%
  203. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  204. CScript //nologo %tmp%\ReadMail.vbs "%server%/mail.txt"
  205. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  206. echo                   ษอออออออป                           ษอออออออป
  207. echo  Actualizar Chat: บ ENTER บ      Escribir un mensaje: บ  TAB  บ
  208. echo                   ศอออออออผ                           ศอออออออผ
  209. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  210. :keyy
  211. %tmp%\KEY.exe
  212. IF %ERRORLEVEL% == 13 (goto :formchat)
  213. IF %ERRORLEVEL% == 9 (goto :formchattxt)
  214. IF %ERRORLEVEL% == 27 (Exit)
  215. goto :keyy
  216. :formchattxt
  217. Set enter=sendding
  218. Set frmuse=formchattxt
  219. set spacez=                                                                                  
  220. Set sendtext=%txt%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%
  221. Cls
  222. ECHO        ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  223. ECHO        บ                                                            บ
  224. ECHO        บ VERSION BETA: NO ESTAN AUN INCLUIDOS LOS EMOTIONS..        บ
  225. ECHO        บ               USESE  :O XD :P, ETC..                       บ
  226. ECHO        บ                                     ESC - Salir            บ
  227. ECHO        บ                                   ENTER - Enviar           บ
  228. echo        ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  229. echo        ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  230. echo        บ%sendtext:~0,60%
  231. echo        บ%sendtext:~60,60%
  232. echo        บ%sendtext:~120,60%
  233. echo        ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  234. echo                                                          ษออออออออออป
  235. echo                                                          บ ENVIAR.. บ
  236. echo                                                          ศออออออออออผ
  237. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  238. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  239. echo                             Hacking And Security
  240. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  241. Goto :keyboard
  242. :sendding
  243. Cls
  244. Echo Sendding Message...
  245. echo Please Wait...
  246. Set /p"=> ..."<nul
  247. CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%nick% Dice:"
  248. CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%sendtext%"
  249. Goto :formchat
Por ser el estreno les dejo la URL de prueba y quisiera que todos los actualmente "Conectados" se conecten al TagBoard..
la direccion del Server es http://3d1.webcindario.com Conectense usando su Nick asi sabremos quienes son los espero...
como es la version beta algunos caracteres se excluyen asi que no podran usarlos por el momento...
SaluDOS!!!


« Última modificación: 17 Junio 2009, 18:48 pm por 3D1 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda sobre como recibir correos
.NET (C#, VB.NET, ASP)
hackertotal22 3 3,268 Último mensaje 28 Diciembre 2011, 11:45 am
por hackertotal22
Alg๚n sistema de memoria en la nube que permita recibir archivos usando solo IP
Hacking
Mister12 2 2,747 Último mensaje 3 Julio 2014, 02:07 am
por Mister12
Error al enviar y recibir archivos por chat de Whatsapp en emulador Android SDK
Android
chelo87_ec 0 2,512 Último mensaje 26 Septiembre 2014, 10:07 am
por chelo87_ec
Outlook no me permite enviar ni recibir correos
Foro Libre
Shell Root 5 3,333 Último mensaje 25 Mayo 2016, 17:53 pm
por Shell Root
Enviar y recibir informacion en LAN con BATCH « 1 2 »
Scripting
branon32 12 7,365 Último mensaje 28 Noviembre 2019, 12:52 pm
por branon32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines