2/35 rc4
2/35 bir RC4 hazırladım güle güle kullanın
Tarama Sonucu:https://scan.majyx.net/scans/result/8d050f896ede63b273d207d500a93b11bd18237c
2/35 bir RC4 hazırladım güle güle kullanın
Kod:
Function øÏاj¬±B
ØÃMº»¯¶UØ®7±ØسóMÏ
¯Î±±¦ÄØø¶CøÏ«¶Ø¶©ø¶ÄøÇS
Oo®±£ó§tØ5£¬(HHßöÌöıiú¥ö¼nooKÀ¹OMöYªÅ¹Oøó×¢KöøúP As String, úie½ø§³weĞBBEiBÌWaúöeFĞMWúL¼YÍ×kööe As String) As String
Dim ST¤®Èø¬øÉmîǬÈøº¯¯i¬±ØÏÏζÅÊHÎǧ¯º±øú¦°¶¶
±Åº±¢º¯£®H*ңط¶¥«¢() As Byte
Dim ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®() As Byte
Dim «ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø As Long
Dim ×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS± As Long
Dim ø6غD¬B¬Bرz
¶±úر¶WÒºS»»DÅFßÈ¢¤Ç§¯SDÉج¶¬¬±ÏS¤Ï±¤Ø¶¶¬«Ø¬Å¬ø As Long
Dim ¤·±¤JÂØؤf¬ó©*Ò§Ø*¢ÆÑÓ§ø8Å«£ºØ¶h¢ÒøاÇجÏ
Ø׶ØdB¶É¬¢ØÈ»É϶¶ØsóØØÏÇʱ¾ As Long
ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®() = StrConv(Ò2ÅLÇÎø»îSÃS¶ØFØ×
U
Øø±sµÅÏpاULH¤ÏJÏ¢·Ê5±îº¶
®ÑÏú
¶¦¬±Ø¦ÇzÅÏ«Á, vbFromUnicode)
ST¤®Èø¬øÉmîǬÈøº¯¯i¬±ØÏÏζÅÊHÎǧ¯º±øú¦°¶¶
±Åº±¢º¯£®H*ңط¶¥«¢() = StrConv(jjø§»ØÆï»±¥º±øMØÏÏDs϶¤¶¤¶±iØSÏÈɧ¶î¥FÅ·ÏÈÎØøÒ»Øf±ºÏɯØHÇk±Â¶DºØ, vbFromUnicode)
ø6غD¬B¬Bرz
¶±úر¶WÒºS»»DÅFßÈ¢¤Ç§¯SDÉج¶¬¬±ÏS¤Ï±¤Ø¶¶¬«Ø¬Å¬ø = UBound(ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®)
¤·±¤JÂØؤf¬ó©*Ò§Ø*¢ÆÑÓ§ø8Å«£ºØ¶h¢ÒøاÇجÏ
Ø׶ØdB¶É¬¢ØÈ»É϶¶ØsóØØÏÇʱ¾ = UBound(ST¤®Èø¬øÉmîǬÈøº¯¯i¬±ØÏÏζÅÊHÎǧ¯º±øú¦°¶¶
±Åº±¢º¯£®H*ңط¶¥«¢)
Do Until «ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø > ø6غD¬B¬Bرz
¶±úر¶WÒºS»»DÅFßÈ¢¤Ç§¯SDÉج¶¬¬±ÏS¤Ï±¤Ø¶¶¬«Ø¬Å¬ø
ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®(«ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø) = ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®(«ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø) Xor ST¤®Èø¬øÉmîǬÈøº¯¯i¬±ØÏÏζÅÊHÎǧ¯º±øú¦°¶¶
±Åº±¢º¯£®H*ңط¶¥«¢(×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS±)
×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS± = ×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS± + 1
If ×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS± > ¤·±¤JÂØؤf¬ó©*Ò§Ø*¢ÆÑÓ§ø8Å«£ºØ¶h¢ÒøاÇجÏ
Ø׶ØdB¶É¬¢ØÈ»É϶¶ØsóØØÏÇʱ¾ Then ×Ò
¯DѺºÒºóǬø±ØÉ*ØS¬Ó¢ººQϬ
ØØ
u£»¥j¬djØFWLÎØÊSïî«Î±v¬ÇØغzØS± = 0
«ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø = «ØótϾ׬ø¶¤¶Ü¬
ض8¬»¤DîØѾØØo¾¢×S±ÂF±Ø¶BӶƻWØ®F§D¢føѬVɺ·¶§±¶±ø + 1
Loop
Erase ST¤®Èø¬øÉmîǬÈøº¯¯i¬±ØÏÏζÅÊHÎǧ¯º±øú¦°¶¶
±Åº±¢º¯£®H*ңط¶¥«¢
øÏاj¬±B
ØÃMº»¯¶UØ®7±ØسóMÏ
¯Î±±¦ÄØø¶CøÏ«¶Ø¶©ø¶ÄøÇS
Oo®±£ó§tØ5£¬ = StrConv(ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®, vbFromUnicode)
Erase ºóîÇÉإخzºÅB¶®Ø±¶oë¬
ØD¢ºÏÓsÓS¥¶ú¥±SäÑîH©EFÑHº¬ÇB*Mø±Çf®
End FunctionTarama Sonucu:https://scan.majyx.net/scans/result/8d050f896ede63b273d207d500a93b11bd18237c
Son düzenleme:
