Meraba Arkadaşlar ;
Bu Aralar Pek Paylaşım Yapamıyordum Kısa Zamanda Geri Dönücem . Bu Aralar Biraz VB6 İle Ugraştım Size FUD XOR Kodlarını Veriyorum Güle Güle Kullanın
Bu Aralar Pek Paylaşım Yapamıyordum Kısa Zamanda Geri Dönücem . Bu Aralar Biraz VB6 İle Ugraştım Size FUD XOR Kodlarını Veriyorum Güle Güle Kullanın
Kod:
Public Function ¬¬±¶¶
º±
Q¦°¬Ê
XQ¬
¦°¬X¬À(ByVal Q°¬¥¬Ê¥ï¬±QÊÀ¥X¥º¥¬¬±¥±QQ
¶¬ As String, ¬º¬XX¬
°¥ú¬¬ºï¬¥¶¶¬°¬ÀXʺ°úÊ As String) As String
Dim ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(0 To 255) As Integer
Dim
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±, ¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦, ÀºQ
¬¥úúºXúﱬ¬¶ï¬¬º±¬¬
As Integer
Dim ¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬± As Long
Dim ¬¬¥
¬¬
¬¬¬¬Ê¬º
°¬Ê
¶Q¬¥¬°() As Byte
Dim ±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±() As Byte
Dim º
¬°¬¶¬ºÀ¦°¶¬º¬¬°
¥¬¬º
As Byte
±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±() = StrConv(Q°¬¥¬Ê¥ï¬±QÊÀ¥X¥º¥¬¬±¥±QQ
¶¬, vbFromUnicode)
¬¬¥
¬¬
¬¬¬¬Ê¬º
°¬Ê
¶Q¬¥¬°() = StrConv(¬º¬XX¬
°¥ú¬¬ºï¬¥¶¶¬°¬ÀXʺ°úÊ, vbFromUnicode)
For
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬± = 0 To 255
ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±) =
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±
Next
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±
For
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬± = 0 To 255
º
¬°¬¶¬ºÀ¦°¶¬º¬¬°
¥¬¬º
= ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±)
ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ + ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±) + ¬¬¥
¬¬
¬¬¬¬Ê¬º
°¬Ê
¶Q¬¥¬°(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬± Mod Len(¬º¬XX¬
°¥ú¬¬ºï¬¥¶¶¬°¬ÀXʺ°úÊ))) Mod 256) = º
¬°¬¶¬ºÀ¦°¶¬º¬¬°
¥¬¬º
Next
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±
¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ = 0
For
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬± = 0 To UBound(±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±)
¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬± = (¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬± + ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ + 1) Mod 256)) Mod 256
ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ + 1) Mod 256) = ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬±)
ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬±) = ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ + 1) Mod 256)
±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±) = ±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±(
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±) Xor (ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬((¥¬¬º¬¬¥
º¦ºXבּ¶XQ¬¶Q¥À¦ + 1) Mod 256) + ï
ºÊ¬
¬À¥QÊQXQ±Qú§¬¥¬°º°
¬¬(¦±¬¬º§ú¬°¬¬ÊÀ¬¬ï
X¦¬ïÀQ¬±)) Mod 256))
Next
¦¥¬Ê¶
¬
ï
Àº¬º¦X±¬°¥X¥±X°¬±
¬¬±¶¶
º±
Q¦°¬Ê
XQ¬
¦°¬X¬À = StrConv(±ú±¬¬ú¬±QÊÀﬦ¬ï
±¬±Q¬Ê±(), vbUnicode)
End Function
Public Function ¶Q°Qº
±X¬¦¬¬¬¬¬Ê¬QÀ¬¬±¬
¶(strInput As String, second As Integer)
Dim first As Integer
For first = 1 To Len(strInput)
Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
Next first
¶Q°Qº
±X¬¦¬¬¬¬¬Ê¬QÀ¬¬±¬
¶ = strInput
End Function
Public Function ú
¬¥¬¬ú¶¥¬
ºÀ¥¬§
¬¬¥±±¬º¥(ByVal strData As String)
Dim second As Long, CryptString As String, tmpChar As String
For second = 1 To Len(strData) Step 2
CryptString = CryptString & Chr$(Val("&H" & Mid$(strData, second, 2)))
Next second
ú
¬¥¬¬ú¶¥¬
ºÀ¥¬§
¬¬¥±±¬º¥ = CryptString
End FunctionTarama Sonuçları [ Small Code ]
AVG Free : Clean
Avast : Clean
AntiVir (Avira) : Clean
BitDefender : Clean
Clam Antivirus : Clean
COMODO Internet Security : Clean
Dr.Web : Clean
eTrust-Vet : Clean
F-PROT Antivirus : Clean
F-Secure Internet Security : Clean
G Data : Clean
IKARUS Security : Clean
Kaspersky Antivirus : Clean
McAfee : Clean
MS Security Essentials : Clean
ESET NOD32 : Clean
Norman : Clean
Norton Antivirus : Clean
Panda Security : Clean
A-Squared : Clean
Quick Heal Antivirus : Clean
Solo Antivirus : Clean
Sophos : Clean
Trend Micro Internet Security : Clean
VBA32 Antivirus : Clean
Zoner AntiVirus : Clean
Ad-Aware : Clean
BullGuard : Clean
FortiClient : Clean
K7 Ultimate : Clean
NANO Antivirus : Clean
Panda CMD : Clean
VIPRE : Clean
SUPERAntiSpyware : Clean
Twister Antivirus : Clean
Filename: FUD - XOR.exe
Detection Rate: 0/35
File Size: 16kb
File MD5: 1aef82ee01e1671172f9dd90b64b66a4
File SHA1: 31581a2abd0defa772c1dd802cc880d593aafabd
Date: 02-Jun-2016 11:41:13 GMT
Link: https://pscan.xyz/results.php?id=ZStxmUiskBrlvbLW
Scan by Poison Scanner
Son düzenleme:
