31. prosince 2008

Co Vás zde nejvíce zajímalo v roce 2008?

Co Vás zde nejvíce zajímalo v roce 2008?

Jak vybrat kvalitní TV / display - toto téma zajímalo celou 1/5 vsech návštěvníků
LCD TV Calibration - How to Calibrate Your Television
LCD TV MONITOR REVIEWS
Jak vybrat novou televizi ?
Jak vybrat KVALITNÍ OBRAZOVKU která má opravdu kvalitní obraz

YouTube
Download Higher Resolution Videos from YouTube
youtube download and specific points inside a video
youtube stahuj video

ekonomie
Instantní kurz ekonomie
Zlatý standard - Gold Standard
Jaká je cena jednotlivých služeb státu
Peníze

hry
Einsteinova hádanka - Komu patří ryba?

ekologie ...
Obnovitelné zdroje energie neexistují!
Bjørn Lomborg
Posouzení energetických potřeb České republiky

EU
O čem je Lisabonská smlouva
Svrchovanost - Sovereignty
Lisabonská smlouva je mrtvá
Ekonomické aspekty Lisabonské smlouvy
Liberitas.eu

Islám
Fitna with subtitles
Máme odvahu postavit se zlu?
Evropo, tvé jméno je Zbabělost
Objevte Islám - Discover Islam

Komunismus Socialismus Totalita
ÚNOR 1948 - Komunistický puč
Srpen 1968 Komunistická invaze do Československa
Hřbitovy jsou plny těch, kdo spoléhali na diplomacii...
Chinese Tiananmen massacre - Tchien-an-men
Komunistický slib
komunismus socialismus teror a bezpraví
.
Mýty
Hysteria Myth - Mýty Hysterie
Mýty

a řada dalších ...

Výběr politických, kulturních a ekonomických očekávaných událostí ve světě v roce 2009
Přehled očekávaných událostí ve sportu v roce 2009



.

Happy new year 2009




wherethehellismatt.com - kde je sakra Matt - Matt Harding

30. prosince 2008

Kreditní karta "zadarmo"!

Kreditní karta "zadarmo"!

Proč platíte bance poplatky za používání jejich služeb, které si i bez Vašich poplatků nechá velmi dobře zaplatit?
Při každé platbě kartou platí obchodník provizi 2-5% z ceny Vašeho nákupu.
To znamená že tyto poplatky musí promítnout do ceny zboží!
Protože jsou ale lidé pohodlní hledat kvalitní služby banky jim za to učtují daší poplatky:)
Všimli jste si, že např v Německém diskontním obchodě nikde nemůžete zaplatit kartou leda karkou kterou vydal daný řetězec. Potom se možná nebudete divit že v německém diskontu často nakoupíte průměrný nákup za stejnou nebo nižší cenu než v ČR.
.
Pokud chcete kreditku ZADARMO doporučuji tuto kartu!
Ale pozor, musíte dodržovat pravidla nebo Vás přijde tato karta velmi draze. Ale to je podobné i u jiných bank.


kam dál?

účet zadarmo - bez bankovních poplatků

Peníze

Jak poslat levně peníze do zahraničí

Jak na rodinný rozpočet

.

24. prosince 2008

Vánoční sms přání na 160 znaků

Narodil se Kristus Pan, aby nikdo nebyl sam,
Cely den mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy povzbudi,
Ke stesti krucek k bohatstvi skok...

prvni verze
Narodil se Kristus Pan, aby nikdo nebyl sam,
Cele svatky mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy podrzi,
Ke stesti krucek k bohatstvi skok...
přeje autor blogu


Vánoce - tradice, zvyky, koledy, Staročeské vánoce ...

free sms brána
Vodafone
O2 - Eurotel
T-Mobile
.
.
Saddleback.com
Hillsong.co.uk
CB.cz

Exit316.cz
Příště uvidíte
Co oči nevidí
Ne, 28.12.2008 8:40 ČT2

Viděli jste
Ukradené Vánoce
Ne, 21.12.2008 8:30 ČT2
sleduj online vysilání zde
.

17. prosince 2008

S Romy si nevědí rady nikde

Proč si nikde v EU nevědí rady s Romy?
Domnívám se, že důvod je naprosto jednoduchý. V ekonomice se tomu říká pokřivené tržní prostředí. Tak jako subvence učinili afričaný závyslé tak nerovný přístup a sociální dávky vytvořili závyslou skupinu obyvatelstva.

Černé svědomí Evropy: s Romy si nevědí rady nikde na kontinentu

Demagogické plány sociálních inženýrů likvidují celé generace některých skupin obyvatelstva a to především Cikánů či Rómů nebo jak se správně nazývají.
Nemalá část z nich ma asi smůlu že vypadají jinak a že budí díky nedobrým zkušenostem často obecnou více či méně oprávněnou nedůvěru.
Jediné co může Rómy postavit alespoň částečně na nohy je rovný přístup ve všech oblastech. Ať se jedna o povinnosti nebo práva.
Jak je ale vyhecovat a naučit konzumu to opravdu nevím.

7. prosince 2008

unlock workbook password and sheet passwords

Unlock a workbook password and sheet passwords

Odemknutí tabulky v Excelu xls

OS:
Windows
Product:
MS Excel (2002, ..)
Description:
Kód dokáže najít hrubou silou heslo sešitu i listu. Pro použití nakopírovat kód do modulu. Pro odemčení sešitu spustit makro
UnlockWorkbookPro odemčení listu pak makro



UnlockSheet
' modUnlockRoutines
'
' Module provides Excel workbook and sheet unlock routines. The algorithm
' relies on a backdoor password that can be 1 to 9 characters long where each
' character is either an "A" or "B" except the last which can be any character
' from ASCII code 32 to 255.
'
' Implemented as a regular module for use with any Excel VBA project.
'
' Dependencies:
'
' None
'
' © 2007 Kevin M. Jones

Option Explicit

Private Sub DisplayStatus( _
ByVal PasswordsTried As Long _
)

' Display the status in the Excel status bar.
'
' Syntax
'
' DisplayStatus(PasswordsTried)
'
' PasswordsTried - The number of passwords tried thus far.

Static LastStatus As String

LastStatus = Format(PasswordsTried / 57120, "0%") & " of possible passwords tried."
If Application.StatusBar <> LastStatus Then
Application.StatusBar = LastStatus
DoEvents
End If

End Sub

Private Function TrySheetPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean

' Try unlocking the sheet with all passwords of the specified size.
'
' TrySheetPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.

Dim Index As Long

On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TrySheetPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TrySheetPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveSheet.Unprotect Base & Chr(Index)
If Not ActiveSheet.ProtectContents Then
TrySheetPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0

DisplayStatus PasswordsTried

End Function

Private Function TryWorkbookPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean

' Try unlocking the workbook with all passwords of the specified size.
'
' TryWorkbookPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.

Dim Index As Long

On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TryWorkbookPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TryWorkbookPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveWorkbook.Unprotect Base & Chr(Index)
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
TryWorkbookPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0

DisplayStatus PasswordsTried

End Function

Public Sub UnlockSheet()

' Unlock the active sheet using a backdoor Excel provides where an alternate
' password is created that is more limited.

Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String

PasswordsTried = 0
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveSheet.Protect ""
ActiveSheet.Unprotect ""
On Error GoTo 0
If ActiveSheet.ProtectContents Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TrySheetPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet " & ActiveSheet.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False

End Sub

Public Sub UnlockWorkbook()

' Unlock the active workbook using a backdoor Excel provides where an alternate
' password is created that is more limited.

Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String

PasswordsTried = 0
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveWorkbook.Unprotect vbNullString
On Error GoTo 0
If ActiveWorkbook.ProtectStructure Or ActiveWorkbook.ProtectWindows Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TryWorkbookPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook " & ActiveWorkbook.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False

End Sub

1. prosince 2008

fee comparison betwene visa and master card

fee comparison betwene visa and master card

A merchant account is a contract under which an acquiring bank extends a line of credit to a merchant, who wishes to accept payment card transactions of a particular card association brand... more

... The National Retail Federation today welcomed the introduction of landmark antitrust legislation that would address hidden MasterCard and Visa fees that cost merchants and their customers more than $40 billion a year ...
more

Merchant Account Services and Info
Read this before signing up for a Merchant Account

Price Comparison - Case Study of a Sample Merchant's costs
Total Fees Paid

National Retail Federation
Visa/MasterCard Settlement

Fight Unfair Credit Card Fees

PAYMENTS NEWS

Secure Payment Gateway

Shop.org

master card - visa card
.