Rc4 12.07.2016 | Fud

Function €œH¶•D¶O±DºI¶‹œ¶•H±C¯™€±KJ“HH…Œ±Œ•D‹¯¶K¶ºHQ¥H¢…¶¥®G±Z“ZZZ±¯™(“Mϓ¶º¶SœHMZ±…H¶…•ºHœJ“¶œº¶€±HK¯º™€Eº“¬Œ±¯€J±“¶ŒC¶‘Œ»±±…UQZº As String, H…‹¥¬€E“¾±ZHDKZ‹M¬¶™º¶€¾¬…•“DQH¶Ï¾N€¯¯MºG¥H¥º“RG¬º‘±º¶¬HŒ×QU As String) As String
Dim KQKN±ºÏ¯•œ±±Z•±G“ŒU¶‹™Œºœ…¢HOJZHKN™H±º¯…±NDº±U¬OI¶œº“…“¬±¯QQ() As Byte
Dim ‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹() As Byte
Dim JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H± As Long
Dim Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO As Long
Dim ™»ºHKM…ºM¶MŒ¯¶Mº€H±ºI¶¢ŒQŒ¯HKœ“Ï“S¢±‘±œº€Q±¶“ºº¢CZ“¶¬¶ºZ»…¶C As Long
Dim U““¾H»NVœQG¬¯¶Nœº“G“™NMŒ¥M…¶€MMœK¬HI¬œ»Qœ™¾F“H…¶¯¢‹Ï™‹Z€º“±“ As Long
‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹() = StrConv(“Mϓ¶º¶SœHMZ±…H¶…•ºHœJ“¶œº¶€±HK¯º™€Eº“¬Œ±¯€J±“¶ŒC¶‘Œ»±±…UQZº, vbFromUnicode)
KQKN±ºÏ¯•œ±±Z•±G“ŒU¶‹™Œºœ…¢HOJZHKN™H±º¯…±NDº±U¬OI¶œº“…“¬±¯QQ() = StrConv(H…‹¥¬€E“¾±ZHDKZ‹M¬¶™º¶€¾¬…•“DQH¶Ï¾N€¯¯MºG¥H¥º“RG¬º‘±º¶¬HŒ×QU, vbFromUnicode)
™»ºHKM…ºM¶MŒ¯¶Mº€H±ºI¶¢ŒQŒ¯HKœ“Ï“S¢±‘±œº€Q±¶“ºº¢CZ“¶¬¶ºZ»…¶C = UBound(‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹)
U““¾H»NVœQG¬¯¶Nœº“G“™NMŒ¥M…¶€MMœK¬HI¬œ»Qœ™¾F“H…¶¯¢‹Ï™‹Z€º“±“ = UBound(KQKN±ºÏ¯•œ±±Z•±G“ŒU¶‹™Œºœ…¢HOJZHKN™H±º¯…±NDº±U¬OI¶œº“…“¬±¯QQ)
Do Until JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H± > ™»ºHKM…ºM¶MŒ¯¶Mº€H±ºI¶¢ŒQŒ¯HKœ“Ï“S¢±‘±œº€Q±¶“ºº¢CZ“¶¬¶ºZ»…¶C
‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹(JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H±) = ‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹(JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H±) Xor KQKN±ºÏ¯•œ±±Z•±G“ŒU¶‹™Œºœ…¢HOJZHKN™H±º¯…±NDº±U¬OI¶œº“…“¬±¯QQ(Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO)
Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO = Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO + 1
If Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO > U““¾H»NVœQG¬¯¶Nœº“G“™NMŒ¥M…¶€MMœK¬HI¬œ»Qœ™¾F“H…¶¯¢‹Ï™‹Z€º“±“ Then Ï¥CN¶D¯Œ¥…¥¶JZ±¯KHZ™Q±…H€ÏM‹±™¶N•…DQ±¥•»M‹•F“±Q“€•…M…¶Œ“J•ºO = 0
JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H± = JNHO™¾•…M…±¶¶D¶¢œ¶¯U±K“M¯“¶±¬¶±…¢±±¶MU‹¯¬MMUŒ¶º“O™¶ZZº¬œ®•H± + 1
Loop
Erase KQKN±ºÏ¯•œ±±Z•±G“ŒU¶‹™Œºœ…¢HOJZHKN™H±º¯…±NDº±U¬OI¶œº“…“¬±¯QQ
€œH¶•D¶O±DºI¶‹œ¶•H±C¯™€±KJ“HH…Œ±Œ•D‹¯¶K¶ºHQ¥H¢…¶¥®G±Z“ZZZ±¯™ = StrConv(‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹, vbUnicode)
Erase ‹¶ŒHDDG±±Kœ¾J¯ºHIH¢•Q™¶ŒCDM¾M“±V¶™×œJHZ¢™¶±¶“±•“¶Œ±M€±G¶O•I‹
End Function