tarama Sonucu Compile Ayarları Ve Submain rc4 bağlantısından Değişebilir
p-code compile ayarları kullandım rıca module kullanmayın form kullanın
p-code compile ayarları kullandım rıca module kullanmayın form kullanın
Kod:
Function C¥N±±¯S
»×±±
±M¢¶¶ºD¯¾K¾±¬CMº¾¯
NKKº±»±J±¬ZK¢CM¶
Q±K±ZH¬¶HM¢¶O
FZ¬ZQ¶Ï¥(º¶±Q
¬MZDH±¾¾¥®¾Z»¶ººC
¶¶±N±JZ¾K¶FÏVºÏJIG¶K¶HF¬G±Z±¬C±»NºHC
D¢¾D¯I±H As String, »J¶O»R¥Z¾¢®Z¯¬±QRRRMJZC
S
¶FO¬MD
¶¬¶HJM¶±
®¶¥Ï¯G¶ºQQ
VDGºR±G¶±NKF¶º
VZ±±Z¾ As String) As String
Dim vzbchabshcba() As Byte
Dim sdfsdbfhsdbhjhsdbf() As Byte
Dim hsacvsdhcjsdgchsdcvghsdv As Long
Dim hcvgashdcshxcasvhxcvash As Long
Dim jhsvbcjhsdgchsdhvchsdvhcsdc As Long
Dim ±¯VOK¯MºI¯DU¢G¶ºC¶H±ºK±KºK±D»ºDZ¥±M¬¶¶Hº±OVK¶K±¯HM¶¶±¶¢¶KM¶±º As Long
sdfsdbfhsdbhjhsdbf() = StrConv(º¶±Q
¬MZDH±¾¾¥®¾Z»¶ººC
¶¶±N±JZ¾K¶FÏVºÏJIG¶K¶HF¬G±Z±¬C±»NºHC
D¢¾D¯I±H, vbFromUnicode)
vzbchabshcba() = StrConv(»J¶O»R¥Z¾¢®Z¯¬±QRRRMJZC
S
¶FO¬MD
¶¬¶HJM¶±
®¶¥Ï¯G¶ºQQ
VDGºR±G¶±NKF¶º
VZ±±Z¾, vbFromUnicode)
jhsvbcjhsdgchsdhvchsdvhcsdc = UBound(sdfsdbfhsdbhjhsdbf)
±¯VOK¯MºI¯DU¢G¶ºC¶H±ºK±KºK±D»ºDZ¥±M¬¶¶Hº±OVK¶K±¯HM¶¶±¶¢¶KM¶±º = UBound(vzbchabshcba)
Do Until hsacvsdhcjsdgchsdcvghsdv > jhsvbcjhsdgchsdhvchsdvhcsdc
sdfsdbfhsdbhjhsdbf(hsacvsdhcjsdgchsdcvghsdv) = sdfsdbfhsdbhjhsdbf(hsacvsdhcjsdgchsdcvghsdv) Xor vzbchabshcba(hcvgashdcshxcasvhxcvash)
hcvgashdcshxcasvhxcvash = hcvgashdcshxcasvhxcvash + 1
If hcvgashdcshxcasvhxcvash > ±¯VOK¯MºI¯DU¢G¶ºC¶H±ºK±KºK±D»ºDZ¥±M¬¶¶Hº±OVK¶K±¯HM¶¶±¶¢¶KM¶±º Then hcvgashdcshxcasvhxcvash = 0
hsacvsdhcjsdgchsdcvghsdv = hsacvsdhcjsdgchsdcvghsdv + 1
Loop
Erase vzbchabshcba
C¥N±±¯S
»×±±
±M¢¶¶ºD¯¾K¾±¬CMº¾¯
NKKº±»±J±¬ZK¢CM¶
Q±K±ZH¬¶HM¢¶O
FZ¬ZQ¶Ï¥ = StrConv(sdfsdbfhsdbhjhsdbf, vbUnicode)
Erase sdfsdbfhsdbhjhsdbf
End Function
